基于Base R生成含比较运算符的无重复字符串组合方法咨询

需要生成包含>、<等数学符号的字符串组合，满足以下要求：

• 行内无重复变量（同一行不能同时出现a > 0和a < 0这类同一变量的相反运算）
• 行与行之间无重复组合（不同顺序的同一组合只保留一个）
• 仅使用Base R实现

原代码通过expand.grid直接组合所有表达式，会出现同一变量的相反运算共存的问题（比如y > 0 a > 0 a < 0），事后去重的逻辑也不够高效。

解决方案：从根源避免冲突的组合生成 #

1. 结构化定义变量与表达式 #

先把每个变量对应的两种比较表达式整理成映射关系，方便后续按变量筛选：

# 定义所有需要用到的变量
target_vars <- c("a", "b", "c", "d", "e", "y")

# 为每个变量生成对应的>0和<0表达式
expr_map <- lapply(target_vars, function(var) {
  c(paste(var, "> 0"), paste(var, "< 0"))
})
names(expr_map) <- target_vars

2. 生成无冲突的基础组合 #

我们需要确保每行包含y的一个表达式，加上另外两个不同变量的各一个表达式，从根源避免同一变量重复：

# 拆分y变量和其他变量
y_exprs <- expr_map[["y"]]
other_vars <- setdiff(target_vars, "y")

# 生成其他变量的两两不重复组合
var_pairs <- combn(other_vars, 2, simplify = FALSE)

# 对每对变量，生成它们的表达式组合（每个变量选一个表达式）
other_combinations <- lapply(var_pairs, function(pair) {
  expand.grid(expr_map[[pair[1]]], expr_map[[pair[2]]], stringsAsFactors = FALSE)
})

# 合并所有其他变量的组合为数据框
other_combs_df <- do.call(rbind, other_combinations)
colnames(other_combs_df) <- c("Expr2", "Expr3")

# 结合y的表达式，生成最终的完整组合
final_combinations <- expand.grid(
  Y_Expr = y_exprs,
  Expr2 = other_combs_df$Expr2,
  Expr3 = other_combs_df$Expr3,
  stringsAsFactors = FALSE
)

3. 去除行间重复组合 #

对每行的表达式排序后生成唯一标识，以此去重（比如y > 0 a > 0 b > 0和a > 0 y > 0 b > 0视为同一组合）：

# 为每行生成排序后的唯一字符串标识
row_unique_ids <- apply(final_combinations, 1, function(row) {
  paste(sort(row), collapse = "|")
})

# 去重得到最终结果
unique_final_combs <- final_combinations[!duplicated(row_unique_ids), ]

4. 验证结果正确性 #

检查是否存在行内变量重复的情况：

# 提取每行的变量名
row_var_names <- apply(unique_final_combs, 1, function(exprs) {
  gsub(" > 0| < 0", "", exprs)
})

# 检查每行是否有重复变量
has_duplicate_vars <- apply(row_var_names, 2, function(vars) any(duplicated(vars)))

# 输出重复行数（应为0，说明无冲突）
sum(has_duplicate_vars)

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