我想检查一个条件,如果col是=='value' - 那么如果从列列表中,是任何列=='value2'
# create dummy data set
pb=c('1','0','0','0','0','1','Not_ans','1','0','Not_ans')
qa=c('1','1','0','0','1','0','Not_ans','1','Not_ans','Not_ans')
#zy=c('1','Not_ans','0','1','Not_ans','0','1','1','1','Not_ans')
#sub questions for pb
pb.abr=c('1','0','0','0','0','1','0','1','0','0')
pb.ras=c('0','0','0','0','1','0','0','1','0','0')
pb.sfg=c('1','0','0','0','0','0','0','1','0','0')
#sub questions for qa
qa.fgs=c('1','0','0','0','0','0','0','1','0','0')
qa.sdf=c('0','1','0','0','0','0','0','0','0','0')
qa.tyu=c('0','0','0','0','1','0','0','1','0','0')
df=data.frame(pb,qa,pb.abr,pb.ras,pb.sfg,qa.fgs,qa.sdf,qa.tyu)
df
pb qa pb.abr pb.ras pb.sfg qa.fgs qa.sdf qa.tyu
1 1 1 1 0 1 1 0 0
2 0 1 0 0 0 0 1 0
3 0 0 0 0 0 0 0 0
4 0 0 0 0 0 0 0 0
5 0 1 0 1 0 0 0 1
6 1 0 1 0 0 0 0 0
7 Not_ans Not_ans 0 0 0 0 0 0
8 1 1 1 1 1 1 0 1
9 0 Not_ans 0 0 0 0 0 0
10 Not_ans Not_ans 0 0 0 0 0 0
在上面的数据集中 - 我要检查的是列'pb'是否为0,如果有任何列pb.abr或pb.ras或pb.sfg == 1
subset_df=subset(df,(pb==0) & ((pb.abr==1) | (pb.ras==1)|(pb.sfg==1)))
挑战是我有100个列什么有pb.xxx格式和手动编写子集中的所有列是不可行的解决方案。我如何检查上面的逻辑使用contains("pb.")
并检查列之间的OR
条件,并在最后提供数据框?
我们可以使用filter_at
library(dplyr)
df %>%
filter(pb == 0) %>%
filter_at(vars(matches("pb\\.")), any_vars(. == 1))
# pb qa pb.abr pb.ras pb.sfg qa.fgs qa.sdf qa.tyu
#1 0 1 0 1 0 0 0 1
或者在基地R
df[df$pb == 0 & rowSums(df[grep("pb\\.", names(df))] == 1) > 0, ]
# pb qa pb.abr pb.ras pb.sfg qa.fgs qa.sdf qa.tyu
#5 0 1 0 1 0 0 0 1
样本数据
dont' forget to set StringsAsFactors to FALSE!
df=data.frame(pb,qa,pb.abr,pb.ras,pb.sfg,qa.fgs,qa.sdf,qa.tyu, stringsAsFactors = FALSE)
码
library(dplyr)
df %>%
#set all columns starting with 'pb.' to numeric
mutate_at( vars( starts_with("pb.") ), funs( as.numeric ) ) %>%
#first filter
filter( pb == "0" ) %>%
#second filter
filter( rowSums( .[, grep("pb\\.", names(df))]) > 0 )
产量
pb qa pb.abr pb.ras pb.sfg qa.fgs qa.sdf qa.tyu 1 0 1 0 1 0 0 0 1
作为一个班轮:
filter(df,pb==0 & rowSums(z[,grepl("pb\\.",names(z))])>0)