获得类似对之和乘以结果以获得相同的数据帧中的新列

Question

df1 <- data.frame(first_pair1_1=c(1,2,3,1,2,3,4),second_pair1_1=c(1,3,3,1,4,3,4),third_pair1_1=c(1,3,3,1,4,3,4),first_pair1_2=c(7,4,3,1,4,3,4),second_pair1_2=c(7,4,3,1,4,3,4),third_pair1_2=c(1,3,3,1,4,3,4),first_pair2_1=c(1,2,3,1,2,3,4),second_pair2_1=c(1,3,3,1,4,3,4),third_pair2_1=c(1,3,3,1,4,3,4),first_pair2_2=c(7,4,3,1,4,3,4),second_pair2_2=c(7,4,3,1,4,3,4),third_pair2_2=c(1,3,3,1,4,3,4)) 

我有数据帧以上，我尝试做如下计算：

(first_pair1_1 * second_pair1_1 * third_pair1_1) + 
(first_pair1_2 * second_pair1_2 * third_pair1_2) + 
(first_pair2_1 * second_pair2_1 * third_pair2_1) + 
(first_pair2_2 * second_pair2_2 * third_pair2_2) 

我想造成同一个数据框中的新列。可以有更多的对，但模式会相同。

Answer 1

这是一个基于R的想法。我们遍历1_1，1_2，...的唯一后缀，并将包含每个后缀（即1_1 * 1_1 * 1_1等）的所有列相乘。然后，我们使用rowSums添加它们，即

ind <- unique(sub('.*pair', '', names(df1))) 
rowSums(sapply(ind, function(i) Reduce(`*`, df1[grepl(i, names(df1))]))) 
#[1] 100 132 108 4 192 108 256 

Answer 2

Reduce("+", lapply(split.default(df1, sub(pattern = "^[^_]*_", "", names(df1))), 
        function(a) Reduce("*", a))) 
#[1] 100 132 108 4 192 108 256