如何在R中对列表的所有唯一元素对执行减法操作？

给定如下R语言列表，我们需要对其中所有不重复的唯一元素对执行减法运算，生成choose(3,2)=3组结果，匹配目标输出Desired_output：

My_list = 
  list("(    beginner_post1 - beginner_baseline    )"= c(5,-2),
       "(intermediate_post1 - intermediate_baseline)"= c(6,-3),
       "(    advanced_post1 - advanced_baseline    )"= c(4,-1))

# 目标输出
Desired_output = 
  list("(beginner_post1 - beginner_baseline) - (    advanced_post1 - advanced_baseline    )"= c(5,-2,-4,1),
       "(beginner_post1 - beginner_baseline) - (intermediate_post1 - intermediate_baseline)"= c(5,-2,-6,3),
       "(advanced_post1 - advanced_baseline) - (intermediate_post1 - intermediate_baseline)"= c(4,-1,-6,3)
  )

实现代码 #

可以通过combn函数生成所有唯一元素对，再逐个处理名称和数值：

# 获取列表的名称和对应数值
names_my <- names(My_list)
vals_my <- unname(My_list)

# 生成所有不重复的元素对索引组合
pairs <- combn(length(My_list), 2)

# 遍历每一对，构造结果列表
result <- lapply(1:ncol(pairs), function(i) {
  idx1 <- pairs[1, i]
  idx2 <- pairs[2, i]
  # 构造新名称：第一个元素名 - 第二个元素名
  new_name <- paste0(names_my[idx1], " - ", names_my[idx2])
  # 计算减法结果：a - b = c(a的向量, -b的向量)
  new_val <- c(vals_my[[idx1]], -vals_my[[idx2]])
  # 返回命名向量
  setNames(list(new_val), new_name)
})

# 将列表合并为一个最终列表
result <- unlist(result, recursive = FALSE)

# 查看结果
result

代码解释 #

• combn(length(My_list), 2)：生成从3个元素中选2个的所有不重复索引组合，得到3组索引对。
• 遍历每一组索引对，分别获取对应的名称和数值：
  • 名称部分直接用paste0拼接成"元素A名 - 元素B名"的格式。
  • 数值部分通过将第一个元素的向量，拼接上第二个元素向量取反的结果，实现A - B的运算（对应目标输出的长向量格式）。
• 最后用unlist将多个小列表合并成一个完整的结果列表，与Desired_output完全一致。

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