stat_summary（）の結果と合流してください

Question

私はface_gridを使って別の1つ（ZONE）に従って変数の割合を表示するggplotグラフを作成しようとしています。 stat_summaryを使用するバイナリ変数（BG）。しかし、今、私はポイント（手段）に参加して、パーセント形式（ポイントの近く）で平均を表示したいと思います。私が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())