r - ggplot2 中的方面累积总和

Question

我想安排几个ggplot2-plots。
它适用于直方图，使用以下代码:

df<-NULL
df$Temp<-rnorm(mean=20,sd=3,n=100) 
df$Modul<-rep(seq(1,4,1),25)
df<-as.data.frame(df)   

qplot(Temp, data=df, geom="histogram",binwidth=1)+
    facet_grid(Modul ~ .)

现在我想要累积直方图，我跟着 this recipy .
但它给了我错误的总和:

qplot(Temp, data=df, geom="histogram",binwidth=1)+
geom_histogram(aes(y=cumsum(..count..)),binwidth=1)+
facet_grid(Modul ~ .)

虽然我大致了解正在发生的事情，但我还不够专业，无法解决这个问题。
任何提示？

此致，
约亨

Answer 1

这可能是这里的顺序问题:我认为在将函数应用于内部生成的变量(此处为 stat "bin"引擎)之前，您不能进行分面。因此，正如其他答案中所述，您需要在外面进行计算。

我会 :

使用 geom_histogram通过统计内部引擎获取创建数据

使用生成的数据在 ggplot2 之外按组计算累积计数。

绘制新数据的条形图

p <- ggplot(df,aes(x=Temp))+
  geom_histogram(binwidth=1)+facet_grid(Modul~.)

dat <-  ggplot_build(p)$data[[1]]
library(data.table)
ggplot(setDT(dat)[,y:=cumsum(y),"PANEL"],aes(x=x)) +
  geom_bar(aes(y=y,fill=PANEL),stat="identity")+facet_grid(PANEL~.) +
  guides(title="Modul")