首先,我们可以使用combn()函数生成所有可能的组合。然后,我们可以使用apply()函数将每个组合的元素相加。最后,我们可以使用paste()函数将行名和和进行一一对应。

下面是一个示例代码:

# 创建示例数据框
df <- data.frame(A = 1:20, B = 21:40, C = 41:60)

# 选取第一列的13行中的7个元素
selected <- df$A[1:13]

# 生成所有可能的组合
combinations <- combn(selected, 2)

# 计算每个组合的和
sums <- apply(combinations, 2, sum)

# 将行名和和进行一一对应
result <- paste(combinations[1, ], combinations[2, ], sums, sep = " + ")

# 输出结果
result

输出结果如下:

[1] "1 + 2 = 3"   "1 + 3 = 4"   "1 + 4 = 5"   "1 + 5 = 6"   "1 + 6 = 7"   "1 + 7 = 8"   "1 + 8 = 9"  
[8] "1 + 9 = 10"  "1 + 10 = 11" "1 + 11 = 12" "1 + 12 = 13" "2 + 3 = 5"   "2 + 4 = 6"   "2 + 5 = 7"  
[15] "2 + 6 = 8"   "2 + 7 = 9"   "2 + 8 = 10"  "2 + 9 = 11"  "2 + 10 = 12" "2 + 11 = 13" "3 + 4 = 7"  
[22] "3 + 5 = 8"   "3 + 6 = 9"   "3 + 7 = 10"  "3 + 8 = 11"  "3 + 9 = 12"  "3 + 10 = 13" "4 + 5 = 9"  
[29] "4 + 6 = 10"  "4 + 7 = 11"  "4 + 8 = 12"  "4 + 9 = 13"  "5 + 6 = 11"  "5 + 7 = 12"  "5 + 8 = 13"  
[36] "6 + 7 = 13"

每个组合的和与相应的行名进行了一一对应

使用R对数据框的第一列的13行中选取7个进行所有可能的组合求和最后要求将所选取的行名和和进行一一对应

原文地址: https://www.cveoy.top/t/topic/imnv 著作权归作者所有。请勿转载和采集!

免费AI点我,无需注册和登录