Rで解析:ggplot2の軸を範囲指定で省略！「ggbreak」パッケージ

ggplot2の軸を指定した範囲で省略する「ggbreak」パッケージの紹介です。X軸、Y軸どちらも指定した範囲で省略できます。また、省略前後の軸スケールの比率も指定することが可能です。なお、正しいグラフの解釈のためにも各軸の省略範囲や軸スケールの比率は適切に使用しましょう。

パッケージのバージョンは0.0.7。実行コマンドはwindows 11のR version 4.1.2で動作を確認しています。

パッケージのインストール

下記コマンドを実行してください。

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#12452;&#12531;&#12473;&#12488;&#12540;&#12523;
install.packages("ggbreak")

実行コマンド

詳細はコマンド、パッケージヘルプを確認してください。

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("ggbreak")
#ggplot2&#12434;&#21033;&#29992;&#12377;&#12427;&#12383;&#12417;&#12395;tidyverse&#12497;&#12483;&#12465;&#12540;&#12472;&#12434;&#35501;&#12415;&#36796;&#12415;
#tidyverse&#12497;&#12483;&#12465;&#12540;&#12472;&#12364;&#12394;&#12369;&#12428;&#12400;&#12452;&#12531;&#12473;&#12488;&#12540;&#12523;
if(!require("tidyverse", quietly = TRUE)){
  install.packages("tidyverse");require("tidyverse")
}

###&#12458;&#12522;&#12472;&#12490;&#12523;&#12398;&#12503;&#12525;&#12483;&#12488;####
PlotCol <- ggplot(data = diamonds[1:1000, ], aes(x = depth, y = carat, fill = cut)) +
  geom_col() + theme_dark()
#&#34920;&#31034;
PlotCol
########

#&#31684;&#22258;&#12434;&#25351;&#23450;&#12375;&#12390;&#36600;&#12434;&#30465;&#30053;&#12375;&#12390;&#12503;&#12525;&#12483;&#12488;:scale_x_break, scale_y_break&#12467;&#12510;&#12531;&#12489;
#&#20363;&#12391;&#12399;scale_y_break&#12467;&#12510;&#12531;&#12489;&#12434;&#20351;&#29992;&#12375;&#12390;&#12356;&#12414;&#12377;
#&#36600;&#12398;&#30465;&#30053;&#31684;&#22258;&#12434;&#25351;&#23450;:breaks&#12458;&#12503;&#12471;&#12519;&#12531;
#&#30465;&#30053;&#21069;&#24460;&#12398;&#36600;&#12473;&#12465;&#12540;&#12523;&#27604;&#29575;&#12434;&#25351;&#23450;:scales&#12458;&#12503;&#12471;&#12519;&#12531;
PlotCol + scale_y_break(breaks = c(9, 17), scales = 3)

#&#35079;&#25968;&#12398;&#30465;&#30053;&#31684;&#22258;&#12434;&#25351;&#23450;
#scale_x_break, scale_y_break&#12467;&#12510;&#12531;&#12489;&#12434;&#35079;&#25968;&#20351;&#29992;&#12375;&#12414;&#12377;
PlotCol + scale_y_break(breaks = c(2.5, 5.0), scales = 5) +
  scale_y_break(breaks = c(9, 17), scales = 3)

#x&#36600;&#12434;&#25351;&#23450;&#25968;&#12391;&#20998;&#21106;&#12375;&#12390;&#12503;&#12525;&#12483;&#12488;:scale_wrap&#12467;&#12510;&#12531;&#12489;
PlotCol + scale_wrap(n = 4)