每两列产品（不是所有成对产品）

Question

与R pairwise product相同。

请考虑以下事项：

df <- structure(list(V1 = 10.3333333333333, V2 = 1.66666666666667, 
    V3 = 8.66666666666667, V4 = 2.66666666666667, V5 = 8.76666666666667, 
    V6 = 2, V7 = 6.33333333333333, V8 = 1.66666666666667, V9 = 11, 
    V10 = 2.66666666666667, V11 = 4.33333333333333, V12 = 1.66666666666667, 
    V13 = 9.83333333333333, V14 = 3.33333333333333), class = "data.frame", .Names = c("V1", 
"V2", "V3", "V4", "V5", "V6", "V7", "V8", "V9", "V10", "V11", 
"V12", "V13", "V14"), row.names = c(NA, -1L))

如果我们将其视为向量V，我想计算一个由元素V [i] * V [i + 1]组成的向量，其中i = 1,3,5，....，13 （即，第一个成分是df的前两个成分的乘积，第二个成分是df等的第三个和第四个成分的乘积。）

即，以下产生所需的输出：

> v <- numeric(7)
> df <- structure(list(V1 = 10.3333333333333, V2 = 1.66666666666667, 
+     V3 = 8.66666666666667, V4 = 2.66666666666667, V5 = 8.76666666666667, 
+     V6 = 2, V7 = 6.33333333333333, V8 = 1.66666666666667, V9 = 11, 
+     V10 = 2.66666666666667, V11 = 4.33333333333333, V12 = 1.66666666666667, 
+     V13 = 9.83333333333333, V14 = 3.33333333333333), class = "data.frame", .Names = c("V1", 
+ "V2", "V3", "V4", "V5", "V6", "V7", "V8", "V9", "V10", "V11", 
+ "V12", "V13", "V14"), row.names = c(NA, -1L))
> for (i in 1:length(v)){
+     v[i] <- df[1,2*i-1] * df[1,2*i]
+ }
> v
[1] 17.222222 23.111111 17.533333 10.555556 29.333333  7.222222 32.777778 

有没有办法没有循环？

Answer 1

如果data.frame只有一行，那么这就是你要求的字样：

v <- as.numeric(df[, seq(1, ncol(df), by=2)] * df[, seq(2, ncol(df), by=2)])

省略as.numeric以将结果保持为data.frame。这将在具有更多行的data.frame上按行方式工作，如果data.frame具有奇数个变量，则会抛出错误。

如果你所谓的那行数字只是一个向量V，那么原理是一样的。

V <- unlist(df, recursive = TRUE, use.names = FALSE)
v <- V[seq(1, length(V), by=2)] * V[seq(2, length(V), by=2)]

Answer 2

您还可以使用dplyr的lag / lead函数。例如：

library(dplyr)
(df*lag(df))[,seq(2,length(df),2)]