棒グラフと点グラフの調整

R による可視化ベストプラクティス

Nick Strayer

Instructor

込み合った棒グラフ

who_disease %>% 
  filter(region == 'EMR', disease == 'measles', year == 2015) %>% 
  ggplot(aes(x = country, y = cases)) +
    geom_col()
R による可視化ベストプラクティス

R による可視化ベストプラクティス

棒の向きを反転

  • geom_bar() と geom_col() は y 軸にカテゴリを置けない
    busy_bars <- who_disease %>% 
    filter(region == 'EMR', disease == 'measles', year == 2015) %>% 
    ggplot(aes(x = country, y = cases)) +
    geom_col() 
    
  • なので、反転が必要です
busy_bars + coord_flip() # x と y 軸を入れ替え
R による可視化ベストプラクティス

R による可視化ベストプラクティス

過剰なグリッド

  • 棒グラフでは平行なグリッドは不要
  • 点グラフでは点の位置に沿うグリッドのみ必要

R による可視化ベストプラクティス

R による可視化ベストプラクティス

縦グリッドを削除

plot <- who_disease %>% 
  filter(country == "India", year == 1980) %>% 
  ggplot(aes(x = disease, y = cases)) +
    geom_col()
# Remove vertical grid lines
 plot + theme(
    panel.grid.major.x = element_blank()
  )
R による可視化ベストプラクティス

R による可視化ベストプラクティス

点グラフに明るい背景を適用

  • デフォルトの灰色背景は点に対してコントラストが弱いことがある
  • theme_minimal() で手早く改善
  • 点を大きくするのも有効
who_subset %>% 
  ggplot(aes(y = reorder(country, cases_2016), x = log10(cases_2016))) +
  # Point size increased
  geom_point(size = 2) +
  # Theme minimal for light background
  theme_minimal()
R による可視化ベストプラクティス

R による可視化ベストプラクティス

練習してみましょう!

R による可視化ベストプラクティス

Preparing Video For Download...