hack のためのネタ帳, etc,,,

サンプルデータ

set.seed(0)
df=data.frame(date="2019-12-16", score=rnorm(1000, mean=500, sd=100))

ヒストグラムのプロット

geom_histogram() を用いる場合、aes() に y=stat(width*density)を与えることで、割合が得られる。
ggplot(df)+
    aes(x=score, fill=date, colour=date)+
    geom_histogram(breaks=seq(0,1000,50),closed="left",aes(y=stat(width*density)))+
    coord_cartesian(xlim=c(0,1000),ylim=c(0,0.25))+
    scale_x_continuous(breaks=seq(0,1000,200))+
    scale_y_continuous(labels=scales::percent)+
    scale_fill_manual(values=c("#FF000040")) +
    scale_colour_manual(values = c("#ff0000"))+
    ylab("割合")+
    #facet_wrap(~date)+
    theme_bw() %+replace% theme(legend.position="none")

参考

コメントをかく


「http://」を含む投稿は禁止されています。

利用規約をご確認のうえご記入下さい

Wiki内検索

フリーエリア

編集にはIDが必要です