计算df中的行均值

Question

我正在尝试在df中编写计算行均值：

mix <- read.table(header=T, text="agrp  1998-1999   2000-2001   tot
1   140903  72208   213111
2   88322   33704   122026
3   18175   3804    21979
4   6125    797 6922")

这是我到目前为止编写的代码，但是我看不出为什么它不起作用：

count <- apply(mix[ ,4], 1, mean)

这可能有一个非常简单且可能显而易见的解决方案，只是无法弄清楚问题出在哪里。

有任何想法吗？

Answer 1

您可以使用rowMeans

 transform(mix, Mean=rowMeans(mix[,2:3]), check.names=FALSE)
 #  agrp 1998-1999 2000-2001    tot     Mean
 #1    1    140903     72208 213111 106555.5
 #2    2     88322     33704 122026  61013.0
 #3    3     18175      3804  21979  10989.5
 #4    4      6125       797   6922   3461.0