将列中的值替换为其他两列值

Question

Data1
  A     B      C 
  a     1     a,b
  b     6     c,b
  c     5     b,c
  d     3     a,d

所以现在我想制作新专栏＆＃34; D＆＃34;

例如，它根据A列和B列值替换值。

  C      D
 a,b    1,6
 c,b    5,6
 b,c    6,5
 a,d    1,3

Answer 1

我们可以使用offset()。通过chartr old列为new创建chartr和paste个参数，即＆＃39; A＆＃39;和＆＃39; B＆＃39;并使用key/value作为＆＃39; C＆＃39;用于替换＆＃39; C＆＃39;中的子字符串的列匹配＆＃39; A＆＃39;对于＆＃39; B＆＃39;

x

更新

如果＆＃39; x＆＃39;来自不同的数据集

Data1$D <- with(Data1, chartr(paste(A,collapse=""), paste(B,collapse=""), C))
Data1$D
#[1] "1,6" "5,6" "6,5" "1,3"

数据

with(Data1, chartr(paste(A,collapse=""), paste(B,collapse=""), Data2$Col1))
#[1] "1,5" "6,3" "1,1" "1,5"