计算每行中不同列的 rowMeans

Question

我有一个这样的 DF：

df <- read.table(text = "x1 x2 x3 x4 x5 x6 start end
                    1 2 2 1 2 3 2 6 
                    2 3 2  5  7  9 1 3 
                    1 9 12 6 1 1 3 6 ", header = TRUE)

start 和end 表示应包含在rowMeans 中的列数。即第一行：平均从 x2 到 x6；第二行：从 x1 到 x3 的平均值，以此类推

我试过这个没有成功：

df$means <- rowMeans(df[,df$X7:df$X8]) 

Answer 1

apply 的一种方式：

apply(df, 1, function(x) mean(as.numeric(x[x[7]:x[8]], na.rm = TRUE)))
#[1] 2.000000 2.333333 5.000000

有点描述。 apply 将遍历每一行。变量x 代表每一行。因此，我们告诉 R 根据第 7 列和第 8 列对每一行进行子集化，然后计算平均值。