在R中，如果元素与另一列的元素占据同一行，则从列中选择元素

Question

这个问题可能是在其他地方提出的，但由于我对R是新手，而且我的词汇量有限，我似乎找不到它。

如果我有一个字符填充的数据框架，请说：

c1 <- c("aa", "bb", "cc", "dd", "ee")
c2 <- c("ff", "gg", "hh", "ii", "jj")
c3 <- c("kk", "ll", "mm", "nn", "oo")
c4 <- c("pp", "qq", "rr", "ss", "tt")
c5 <- c("uu", "vv", "ww", "xx", "yy")
df <- cbind.data.frame(c1, c2, c3, c4, c5)

结果是

  c1 c2 c3 c4 c5
1 aa ff kk pp uu
2 bb gg ll qq vv
3 cc hh mm rr ww
4 dd ii nn ss xx
5 ee jj oo tt yy

我想从第4列中选择与第2列中的多个元素占据同一行的元素(例如，"gg“、"ii”和"jj")，有没有办法不对每个元素使用不同的命令来做到这一点？

例如,

df$c4[i = c(2,4,5)]

会回来

[1] qq ss tt
Levels: pp qq rr ss tt

和

df$c4[df$c2 == "gg"]

会回来

[1] qq
Levels: pp qq rr ss tt

但当我试图把这两者结合起来

df$c4[i = c(df$c2=="gg", df$c2=="ii", df$c2=="jj")]

R似乎只有部分知道该做什么，返回

[1] qq   <NA> <NA>
Levels: pp qq rr ss tt

Answer 1

不确定你真正想要完成什么，但在最后一行中，这就是你实际上正在做的事情：

> df$c4[i = c(df$c2=="gg", df$c2=="ii", df$c2=="jj")]
[1] "qq" NA   NA  
> i = c(df$c2=="gg", df$c2=="ii", df$c2=="jj")
> i
 [1] FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE
[10] FALSE FALSE FALSE FALSE FALSE  TRUE
> df$c2
[1] "ff" "gg" "hh" "ii" "jj"

您正在将长度15逻辑向量传递给5长度字符向量，这没有多大意义。