如何通过R中的另一列值过滤列值

Question

如何从Col3 值中过滤Col2 值。例如，我只需要针对Col2 真实值返回Col2 值。

我的数据框：

Col1            Col2                                   Col3 

Check           first,second,first,four,Five          true,true,false,true,false 

预期数据框：

Col1            Col2                       

Check           first,second,four

请帮助我实现这一目标。

输入，

structure(list(Col1 = "Check", Col2 = "first,second,first,four,Five", 
    col3 = "true,true,false,true,false"), class = "data.frame", row.names = c(NA, 
-1L), .Names = c("Col1", "Col2", "col3"))

Answer 1

您提出的问题在R 中非常标准，但您的数据呈现方式却不是。

您的数据似乎更适合列表，因此我将首先将其转换为向量列表：

dlist <- lapply(lapply(df, strsplit, ","), unlist)
print(dlist)
$Col1
[1] "Check"

$Col2
[1] "first"  "second" "first"  "four"   "Five"  

$col3
[1] "true"  "true"  "false" "true"  "false"

然后很容易将其恢复为您的预期结果：

df2 <- data.frame(Col1 = dlist$Col1, 
                  Col2 = paste0(dlist$Col2[as.logical(dlist$col3)], collapse = ","))
print(df2)
   Col1              Col2
1 Check first,second,four

Answer 2

创建你的 data.frame "db"

Col1<-c("Check","Check2")
Col2<-c("first,second,first,four,Five","first,second,first,four")
Col3<-c("true,true,false,true,false","false,true,false,true")

db<-as.data.frame(cbind(Col1,Col2,Col3))

    Col1                         Col2                       Col3
1  Check first,second,first,four,Five true,true,false,true,false
2 Check2      first,second,first,four      false,true,false,true

通过 Col3 过滤 Col2

logical_value<-lapply(strsplit(as.character(db[,3]),","),as.logical)
list_Col2<-strsplit(as.character(db[,2]),",")

out<-NULL
for (i in 1:length(list_Col2))
{
  out[[i]]<-(unlist(list_Col2[i]))[unlist(logical_value[i])]
}

输出

out
[[1]]
[1] "first"  "second" "four"  

[[2]]
[1] "second" "four"