如何在R中合并tapply()和hist()？

Question

如何合适地合并R中的hist()和tapply()函数,以获得数据子集的直方图？当我使用标准的tapply()公式尝试这个时tapply(X, INDEX, FUN),我成功地获得了每个数据子集的值输出,但我只获得了一个标题为"直方图X [[4L]]"的直方图.如何为每个子集获取单独的直方图？谢谢,

Answer 1

试试这个:

par(mfrow = c(2, 2))
tapply(iris$Sepal.Length, iris$Species, hist)

但是,对于多面板图,您可能会发现格子或ggplot2贴图更合适.

library(lattice)
histogram(~ Sepal.Length | Species, iris)

library(ggplot2)
ggplot(iris, aes(Sepal.Length)) + geom_histogram() + facet_wrap(~ Species)