Заменить значение из другого фрейма данных

Question

У меня есть фрейм данных (x) с переменной множителем, который имеет значения, разделенные запятой. У меня есть другой фрейм данных (y) с описанием для тех же значений. Теперь я хочу заменить значения в кадре данных (x) описанием из фрейма данных (y). Любая помощь будет высоко оценен.

говорят, например, два фрейма данных выглядит, как показано ниже

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

Мы можем split столбец «х» в «х» набор данных по ' , ', петля над list, сопоставьте значение с столбцом' x 'в' y ', чтобы получить числовой индекс, получить соответствующее значение' description 'от' y 'и paste вместе.

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 

Примечание: Если столбец 'х' в 'х' 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:

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