从语句向量中获取逻辑值的数据框

Question

我有许多条件列表，我想评估它们的组合，然后我想获取这些逻辑值的二进制值（True = 1，假= 0）。条件本身可能随着我的项目进展而改变或增加，所以我希望在脚本中有一个可以改变这些条件语句的位置，而脚本的其余部分保持不变。

这里是一个简化的，可重复的例子：

# get the data 
df <- data.frame(id = c(1,2,3,4,5), x = c(11,4,8,9,12), y = c(0.5,0.9,0.11,0.6, 0.5)) 

# name and define the conditions 
names1 <- c("above2","above5") 
conditions1 <- c("df$x > 2", "df$x >5") 

names2 <- c("belowpt6", "belowpt4") 
conditions2 <- c("df$y < 0.6", "df$y < 0.4") 

# create an object that contains the unique combinations of these conditions and their names, to be used for labeling columns later 

names_combinations <- as.vector(t(outer(names1, names2, paste, sep="_"))) 

condition_combinations <- as.vector(t(outer(conditions1, conditions2, paste, sep=" & "))) 

# create a dataframe of the logical values of these conditions 

condition_combinations_logical <- ????? # This is where I need help 

# lapply to get binary values from these logical vectors 

df[paste0("var_",names_combinations] <- +(condition_combinations_logical) 

获得输出，可能看起来像：

-id -- | -x -- | -y -- | -var_above2_belowpt6 -- | -var_above2_belowpt4 -- | etc. 
1  | 11 | 0.5 | 1      | 0      | 
2  | 4 | 0.9 | 0      | 0      | 
3  | 8 | 0.11 | 1      | 1      | 
etc. .... 

Answer 1

貌似可怕的eval(parse())它（很难想象的要容易得多办法 ...）。然后使用storage.mode()<-从逻辑转换为整数...

res <- sapply(condition_combinations,function(x) eval(parse(text=x))) 
storage.mode(res) <- "integer"