【ggplotメモ13】棒グラフをx軸につける

ところでなんですが、ggplotで特に何も指定せずに棒グラフを描くと、

こう、x軸とy = 0ところの間に隙間(赤枠で囲ったところ)ができてしまうの、気になりませんか?棒グラフ、地に足をつけてほしいなと思います。

ということで、いつものコードにちょっと一言付け足しましょう。これまで(上の図)と同様にirisデータを使います

# 使用するパッケージの読み込み 
library( ggplot2 ) 

# グラフの基本設定 
ggplot() + theme_set( theme_classic(base_size = 12, base_family = "Hiragino Kaku Gothic Pro W3") ) 

b4 <- ggplot( iris, aes( x = Species, y = Petal.Length, fill = Species ) ) + 
    geom_bar( position = position_dodge( width = .9), stat = "summary", fun = "mean", alpha = .5 ) + 
    geom_point( aes( color = Species ), size = .2, shape = 21, stroke = 1 ) + 
    stat_summary( fun.data = "mean_se", geom = "errorbar", width = .2) +
    labs(x = "品種", y = "花びらの長さ" ) + 
    scale_y_continuous( breaks = c( 0, 2, 4, 6, 8 ), limits = c( 0, 8 ), expand = c( 0, 0 ) ) + 
    theme( legend.position = "none" ) 

plot( b4 )

scale_y_continuous()の中に「expand = c( 0, 0 )」を加えました。そうすると、

こんな風に、x軸とバーの間に隙間のないグラフを描くことができました。

以上、棒グラフの隙間をなくす書き方でした。