Скопируйте порядок заданного столбца в двух разных фреймах

Question

У меня есть два кадра данных

> x
               tags freq.Freq
1            #solar         1
2      #solarpanels         2
3             #wind         3
4    #ClimateChange         4
5           #energy         5
6  #renewableenergy         6
7         #windfarm         7
8           #Suncor         8
9            #Solar         9
10        #WindTree        10
11       #renewable        11
12      #climatecri        12
13      #renewables        13

и

> y
               tags freq.Freq
1        #renewable       740
2    #ClimateChange       722
3             #wind       638
4           #energy       541
5         #WindTree       525
6       #climatecri       518
7            #solar       359
8  #renewableenergy       326
9            #Solar       296
10      #renewables       245
11     #solarpanels      1029
12        #windfarm       291
13          #Suncor       282

Столбец y$freq.Freq неверен. Я хотел бы скопировать соответствующие значения для этого столбца в соответствии с позициями в x. Например, #renewable в x имеет x$freq.Freq равно 11, #ClimateChange имеет x$freq.Freq равно 4 и так далее. Тогда второй кадр данных должен быть:

> y
               tags freq.Freq
1        #renewable       11
2    #ClimateChange       4
3             #wind       3
4           #energy       5
5         #WindTree       10
6       #climatecri       12
7            #solar       1
8  #renewableenergy       6
9            #Solar       9
10      #renewables       13
11     #solarpanels       2
12        #windfarm       7
13          #Suncor       8

Как я могу получить правильное выражение y? Я пытался с x[order(y$tags),], но я не получил правильный результат.

Answer 1

Мы можем использовать match, чтобы сопоставить столбец 'tags' в обоих наборах данных и получить соответствующее значение 'freq.Freq' из набора данных 'x'

x$freq.Freq[match(y$tags, x$tags)]
#[1] 11  4  3  5 10 12  1  6  9 13  2  7  8

---

Или другой вариант factor

as.integer(factor(y$tags, levels = x$tags))
#[1] 11  4  3  5 10 12  1  6  9 13  2  7  8

---

Или с mutate

library(dplyr)
y %>% 
    mutate(freq.Freq = match(tags, x$tags))

data

x <- structure(list(tags = c("solar", "solarpanels", "wind", "ClimateChange", 
"energy", "renewableenergy", "windfarm", "Suncor", "Solar", "WindTree", 
"renewable", "climatecri", "renewables"), freq.Freq = 1:13), class = "data.frame", row.names = c("1", 
"2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13"
))

y <- structure(list(tags = c("renewable", "ClimateChange", "wind", 
"energy", "WindTree", "climatecri", "solar", "renewableenergy", 
"Solar", "renewables", "solarpanels", "windfarm", "Suncor"), 
    freq.Freq = c(740L, 722L, 638L, 541L, 525L, 518L, 359L, 326L, 
    296L, 245L, 1029L, 291L, 282L)), class = "data.frame", row.names = c("1", 
"2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13"
))

Answer 2

Мы можем использовать join для объединения двух наборов данных, а затем select необходимые столбцы

library(dplyr)
inner_join(y, x, by = 'tags') %>% select(tags, freq.Freq.y)

#              tags freq.Freq.y
#1        renewable          11
#2    ClimateChange           4
#3             wind           3
#4           energy           5
#5         WindTree          10
#6       climatecri          12
#7            solar           1
#8  renewableenergy           6
#9            Solar           9
#10      renewables          13
#11     solarpanels           2
#12        windfarm           7
#13          Suncor           8

В базе R мы можем использовать merge

merge(y, x, by = 'tags')