r - 用一行连接 stat_summary() 的结果

Question

我正在尝试制作一个 ggplot 图，使用 face_grid 显示一个变量 (SIZE) 与另一个变量 (ZONE) 的比例，然后在每个类别中显示二进制变量的平均值(BG) 使用stat_summary。但现在，我想加入点(平均值)并以百分比格式显示平均值(在点附近)。为了加入我尝试过使用 stat_summary('arguments here',geom="line") 和其他命令的点，但事实是我不知道该怎么做。

    library(ggplot2)
    library(scales)

    set.seed(100)

    data <- data.frame(ID = 1:600,
                   SIZE = rep(c('B','M','S'), each = 200), 
                   ZONE = sample(c('A','B'), size = 600, replace=T),
                   BG = c(sample(0:1, size = 200, prob = c(1,1), replace=T),
                          sample(0:1, size = 200, prob = c(2,3), replace=T),
                          sample(0:1, size = 200, prob = c(1,2), replace=T)))

    ggplot(data, aes(x = SIZE)) + 
      geom_bar(aes(y = (..count..)/sum(..count..))) +
      facet_grid(~ZONE) + 
      stat_summary(aes(y = BG), fun.y=mean, colour="red", geom="point", size = 3) + 
      scale_y_continuous('Percent', labels = percent_format())

提前致谢，抱歉我的英语不好。

Answer 1

使用geom_line时始终记住group美感!

ggplot(data, aes(x = SIZE)) + 
      geom_bar(aes(y = (..count..)/sum(..count..))) +
      facet_grid(~ZONE) + 
      stat_summary(aes(y = BG,group = 1), fun.y=mean, colour="red", geom="line", size = 3) + 
      scale_y_continuous('Percent', labels = percent_format())