计算df中的row-means

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