可以在stat_summary中映射频率吗？如果是这样，怎么样？

Question

我试图将来自不同部门（awarded）的人平均花费dpt。我使用了stat_summary（基于this sample data）。

library(ggplot2)

ggplot(x, aes(dpt, awarded, color = dpt)) + 
  facet_wrap(~ type) +
  stat_summary(fun.y = mean, geom = "point")

根据作业type（A或B）分割此图。但是，我想添加另一个变量，即作业数量 - 每个气泡的大小应该与数据中该部门的出现次数成比例。

有没有办法用一些ggplot2命令来做，或者是否应事先计算并以某种方式实现到图中？如果是这样，究竟是怎么回事？

或者，请提出更好的解决方案。谢谢！ ; - ）

Answer 1

所以，例如，像这样：

library(plyr)
library(ggplot2)
dat_sum <- ddply(dat,
                 .(type,dpt),
                 summarise,
                 mean_awrd = mean(awarded,na.rm = TRUE),
                 n = length(dpt))

ggplot(dat_sum) + 
   facet_wrap(~type) + 
   geom_point(aes(x = dpt,y = mean_awrd,size = n,color = dpt))