r - 在ggplot2中分别标准化多面直方图

Question

我的问题类似于 Normalizing y-axis in histograms in R ggplot to proportion但我想补充一点。

一般来说，我在 2x3 构面设计中有 6 个直方图，我想分别对每个直方图进行标准化。我将尝试在此处制作一个示例数据集来给出一个想法:

hvalues=c(3,1,3,2,2,5,1,1,12,1,4,3)
season=c("fall","fall","fall","fall","winter","winter","winter","winter","summer","summer","summer","summer")
year=c("year 1","year 1","year 2","year 2","year 1","year 1","year 2","year 2","year 1","year 1","year 2","year 2")
group=c("fall year 1","fall year 1","fall year 2","fall year 2","winter year 1","winter year 1","winter year 2","winter year 2","summer year 1","summer year 1","summer year 2","summer year 2")
all=data.frame(hvalues,season,year)

使用

ggplot(all, aes(x=hvalues,group=group)) + 
geom_histogram(aes(y=..count../sum(..count..))) + 
facet_grid(season ~ year)

给出总体比例(即组合所有方面)。我希望每个组方面都标准化为 1。hvalues 在我的实际数据中不是整数 - 它们是数字。

我是 R 的新手，非常感谢一些帮助。提前致谢!

Answer 1

解决办法是:

ggplot(all, aes(x=hvalues)) +
    facet_grid(season ~ year,drop=T) +
    geom_histogram(aes(y=(..count..)/tapply(..count..,..PANEL..,sum)[..PANEL..]))

我从这个question偷了这个

顺便说一下，我觉得你的问题可能与那个问题重复。