替换其他数据框中的值

Question

我有一个数据框（x），其中有一个因子变量，其值由逗号分隔。我有另一个数据框（y）与相同值的描述。现在我想用数据帧（y）中的描述替换数据帧（x）中的值。任何帮助将不胜感激。

比方说，这两个数据帧看起来像下面

data frame (x) 
    s.no x 
    1  2,5,45 
    2  35,5 
    3  45 

data fram (y) 
s.no x description 
1  2  a 
2  5  b 
3  45  c 
4  35  d 

我需要的输出如下

s.no x 
1  a,b,c 
2  d,b 
c  c 

Answer 1

我们可以在“X”的数据集“split的“X”列，'循环访问list，将值与'y'中的'x'列进行匹配以获得数字索引，从'y'获取相应的'description'值并将它们结合在一起。

x$x <- sapply(strsplit(x$x, ","), function(z) 
      toString(y$description[match(as.numeric(z), y$x)])) 

x 
# s.no  x 
#1 1 a, b, c 
#2 2 d, b 
#3 3  c 

注：如果在 'X' 的 'x' 列是factor类中，使用strsplit(as.character(x$x, ","))

Answer 2

随着splitstackshape：

library(splitstackshape) 

cSplit(x, 'x', ',', 'long')[setDT(y), on='x'][,.(x=paste(description, collapse=',')), s.no] 

# s.no  x 
#1: 1 a,b,c 
#2: 2 b,d 
#3: 3  c 

Answer 3

使用dplyr和tidyr A液：

library(dplyr) 
library(tidyr) 
x %>% 
    separate(x, paste0('x',1:3),',',convert=TRUE) %>% 
    gather(var, x, -1, na.rm=TRUE) %>% 
    left_join(., y, by='x') %>% 
    group_by(s.no = s.no.x) %>% 
    summarise(x = paste(description,collapse = ',')) 

结果：

s.no  x 
    (int) (chr) 
1  1 a,b,c 
2  2 d,b 
3  3  c