如何将字符型ifelse条件向量传入mutate生成二元变量两两对比列？

你的方法是可行的，但需要将字符型的条件向量转换成可执行表达式，才能被mutate识别。具体可以借助rlang包的工具完成解析，以下是实现示例：

library(dplyr)
library(rlang)

# 构造测试数据集
set.seed(123)
df <- tibble(
  sf1 = sample(c(0,1), 10, replace = TRUE),
  sf2 = sample(c(0,1), 10, replace = TRUE),
  sf3 = sample(c(0,1), 10, replace = TRUE),
  sf4 = sample(c(0,1), 10, replace = TRUE)
)

# 生成变量两两组合，构造字符型条件向量
var_pairs <- combn(names(df), 2, simplify = FALSE)
dfs <- sapply(var_pairs, function(pair) {
  sprintf("ifelse(%s&%s, 1, 0)", pair[1], pair[2])
})

# 解析表达式并传入mutate生成新列
df_new <- df %>% mutate(!!!parse_exprs(dfs))

这里的!!!是解引用运算符，用于将解析后的表达式列表传递给mutate，自动生成对应新列。

更优实现方案 #

对于二元(0,1)变量，ifelse(sf1&sf2,1,0)完全等价于sf1 * sf2（两个1相乘得1，其余情况均为0），可以简化逻辑。同时直接构造表达式而非字符串，能避免解析风险，更符合tidyverse编程风格：

# 直接生成计算表达式，无需字符串构造
var_exprs <- combn(names(df), 2, function(pair) {
  expr(!!sym(pair[1]) * !!sym(pair[2]))
})
# 为新列设置可读性名称（如sf1_sf2）
names(var_exprs) <- sapply(var_pairs, paste, collapse = "_")

df_new2 <- df %>% mutate(!!!var_exprs)

该方法用sym()将变量名字符转为符号，expr()构造计算表达式，无需处理字符串，既高效又能避免变量名含特殊字符时的解析错误。

内容的提问来源于stack exchange，提问作者ThallyHo