r - 根据所有列中特定行的平均值创建新行

Question

假设我有一个数据集。

w=c(5,6,7,8)
x=c(1,2,3,4)
y=c(1,2,3,5)
length(y)=4
z=data.frame(w,x,y)

这将返回

  w x  y
1 5 1  1
2 6 2  2
3 7 3  3
4 8 4  5

我想要第 5 行，平均只有第 2 行和第 3 行。

  w   x   y
1 5   1   1
2 6   2   2
3 7   3   3
4 8   4   5
5 6.5 2.5 2.5

我将如何处理这个？有很多示例rowMeans，但我希望平均所有列，并且仅来自特定行。

标签： r

Answer 1

这是否有效：

library(dplyr)

z %>% bind_rows(sapply(z[2:3,], mean))
    w   x   y
1 5.0 1.0 1.0
2 6.0 2.0 2.0
3 7.0 3.0 3.0
4 8.0 4.0 5.0
5 6.5 2.5 2.5