将列中的值替换为同一数据帧中另一列的相应值

Question

我试图匹配一列中的特定值,并将其替换为另一列(同一行)中的相应值.这可能是很容易的......我一直在试图找到一个解决方案for loop,sub,subset,data.table但我还没有成功.必须有一个巧妙的方法来做到这一点.

示例数据,我们的目标是a在第一列中交换第二列中的相应值并再次输出列.

df <- data.frame(rbind(c('a','D'),c('H','W'),c('Q','E'),c('a','F'),c('U','P'),c('a','B')))

df$X1 <- as.character(df$X1)
df$X2 <- as.character(df$X2)

# not working
for (i in seq_along(df$X1)){
  a <- df$X1[i]
  b <- df$X2[i]
  x <- ifelse(a[i=='a'], a[i]<-b[i], do.nothing )
  print(x)
}

输出就像这样;

   X1 X2
1  D  a
2  H  W
3  Q  E
4  F  a
5  U  P
6  B  a

(不需要开关).这是我感兴趣的第一栏.

任何指针都将不胜感激,谢谢!

Answer 1

有几种选择.这是三个:

最基本的,使用data.frames:

df[ df$X1 == "a" , "X1" ] <- df[ df$X1 == "a", "X2" ]

更多Terse,使用with:

df$X1 <- with( df, ifelse( X1 == "a", X2, X1 ) )

最简洁透明使用data.tables

library(data.table) ## >= 1.9.0
setDT(df)           ## converts to data.table by reference, no need for `<-`

df[ X1 == "a", X1 := X2 ]