如何在r中列名相同的数据框的rowMeans

Question

我有下表

x | y | z | x | y | z
0 | 1 | 1 | 1 | 0 | 0
1 | 1 | 1 | 1 | 1 | 1
0 | 0 | 0 | 0 | 0 | 0

我想只在具有相同名称的列上使用rowMeans。由于我有三个不同的列名称，我希望结果数据框有三列，每列代表该列的rowMeans具有相同的名称

所以基本上，我想要跟随输出

x   | y   | z   |
0.5 | 0.5 | 0.5 |
1   | 1   | 1   |
0   | 0   | 0   |

Answer 1

我们可以split

sapply(split.default(df1, names(df1)), rowMeans)
#      x   y   z
#[1,] 0.5 0.5 0.5
#[2,] 1.0 1.0 1.0
#[3,] 0.0 0.0 0.0

数据

df1 <- structure(list(x = c(0L, 1L, 0L), y = c(1L, 1L, 0L), z = c(1L, 
 1L, 0L), x = c(1L, 1L, 0L), y = c(0L, 1L, 0L), z = c(0L, 1L, 
 0L)), .Names = c("x", "y", "z", "x", "y", "z"), class = "data.frame",
 row.names = c(NA, -3L))

Answer 2

sapply(unique(names(df)), function(a) rowMeans(df[which(names(df) == a)]))
#       x   y   z
#[1,] 0.5 0.5 0.5
#[2,] 1.0 1.0 1.0
#[3,] 0.0 0.0 0.0