如何在R中合并tapply()函数？

Question

输入:

data(iris)
tapply(iris$Sepal.Length, iris$Species, mean)
tapply(iris$Sepal.Length, iris$Species, median)

期望的输出:显示以下内容的数据集

#setosa versicolor virginica
#5.006  5.936      6.588
#5.0    5.9        6.5

创建包含各种tapply()输出的新单个数据集的最佳方法是什么？

Answer 1

您可以通过一个tapply电话试试:

mat <-
do.call(cbind, 
        tapply(iris$Sepal.Length, iris$Species, function(x) c(mean(x), median(x)))
        )

输出:

> mat
     setosa versicolor virginica
[1,]  5.006      5.936     6.588
[2,]  5.000      5.900     6.500