如何在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)