ファセットの描画領域

ggplot2 中級データ可視化

Rick Scavetta

Founder, Scavetta Academy

ファセットと可変な描画領域

一貫した描画領域を使わない理由:

変数型	サブセットの内容
連続値	範囲が大きく異なる
カテゴリ	グループが異なる

描画領域の調整...

ggplot(msleep2, aes(bodywt_log,
                    brainwt_log)) +
  geom_point(alpha = 0.6, shape = 16) +
  coord_fixed() +
  facet_grid(rows = vars(vore), 
             cols = vars(conservation))

...ただし固定比率とは併用不可

ggplot(msleep2, aes(bodywt_log,
                         brainwt_log)) +
  geom_point(alpha = 0.6, shape = 16) +
  coord_fixed() +
  facet_grid(rows = vars(vore), 
             cols = vars(conservation),
             scales = "free_x")

Error: coord_fixed doesn't support free scales

描画領域の調整

ggplot(msleep2, aes(bodywt_log, 
                    brainwt_log)) +
  geom_point(alpha = 0.6, shape = 16) +
  facet_grid(rows = vars(vore), 
             cols = vars(conservation),
             scales = "free_x")

描画領域の調整

ggplot(msleep2, aes(bodywt_log, 
                    brainwt_log)) +
  geom_point(alpha = 0.6, shape = 16) +
  facet_grid(rows = vars(vore), 
             cols = vars(conservation),
             scales = "free_y")

描画領域の調整

ggplot(msleep2, aes(bodywt_log, 
                    brainwt_log)) +
  geom_point(alpha = 0.6, shape = 16) +
  facet_grid(rows = vars(vore), 
             cols = vars(conservation),
             scales = "free")

描画領域の調整

ggplot(msleep2, aes(x = bodywt_log, 
                    y = name)) +
  geom_point() +
  facet_grid(rows = vars(vore))

描画領域の調整

ggplot(msleep2, aes(x = bodywt_log, 
                    y = name)) +
  geom_point() +
  # y のスケールとスペースを可変に
  facet_grid(rows = vars(vore), 
             scales = "free_y")

描画領域の調整

ggplot(msleep2, aes(x = bodywt_log, 
                    y = name)) +
  geom_point() +
  # y のスケールとスペースを可変に
  facet_grid(rows = vars(vore),
             scales = "free_y", 
             space = "free_y")

最終調整

msleep2 <- msleep2 %>% 
  # 体重の高い順に並べ替え
  arrange(-bodywt_log) %>% 
  # 因子レベルをその順に再定義
  mutate(name = as_factor(name)) 

# 新しい順序が y 軸に反映
ggplot(msleep2, aes(x = bodywt_log,
                    y = name)) +
  geom_point() +
  # y のスケールとスペースを可変に
  facet_grid(rows = vars(vore),
             scales = "free_y", 
             space = "free_y")

練習しましょう！

ggplot2 中級データ可視化