Rで解析：ggplot2を水平方向にプロット「ggstance」パッケージ

ggplot2を水平方向にプロットするパッケージの紹介です。簡単に利用できるのでオススメです。対象となるプロットは箱ひげ図、バイオリンプロット、棒グラフ、ラインレンジプロット、ポイントレンジプロット、クロスバープロットです。

パッケージバージョンは0.3.6.9000。実行コマンドはR version 4.2.2で確認しています。

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

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

#パッケージのインストール
install.packages("devtools")
devtools::install_github("lionel-/ggstance")

実行コマンド

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

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("ggstance")

#ggplot2&#12434;&#21033;&#29992;&#12377;&#12427;&#12383;&#12417;&#12395;tidyverse&#12497;&#12483;&#12465;&#12540;&#12472;
#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")
}

###&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;#####
n <- 3000
#geom_boxploth,geom_violinh&#12395;&#36969;&#24540;
TestData <- data.frame(Group = sample(paste0("Group", 1:5), n, replace = TRUE),
                       Data1 = runif(n),
                       Data2 = runif(n) + runif(n))
#geom_barh,geom_linerangeh,geom_pointrangeh,geom_crossbarh&#12395;&#36969;&#24540;
TestData2 <- aggregate(TestData[, 2:3], by = list(TestData[, 1]), mean)
#######

#ggplot2&#12398;&#12486;&#12540;&#12510;&#12434;&#12475;&#12483;&#12488;
theme_set(theme_linedraw())

#&#27178;&#21521;&#12365;&#12398;box plot:geom_boxploth&#12467;&#12510;&#12531;&#12489;
ggplot(TestData, aes(x = Data1, y = Group)) +
  geom_boxploth(aes(fill = factor(Group)))

#&#27178;&#21521;&#12365;&#12398;violin plot:geom_violinh&#12467;&#12510;&#12531;&#12489;
ggplot(TestData, aes(x = Data1, y = Group)) +
  geom_violinh(aes(fill = factor(Group)))

#&#27178;&#21521;&#12365;&#12398;bar plot:geom_barh&#12467;&#12510;&#12531;&#12489;
ggplot(TestData2, aes(x = Data1, y = Group.1)) +
  geom_barh(aes(fill = factor(Group.1)), stat = "identity")

#&#27178;&#21521;&#12365;&#12398;linerange plot:geom_linerangeh&#12467;&#12510;&#12531;&#12489;
ggplot(TestData2, aes(x = Data1, y = Group.1)) +
  geom_linerangeh(aes(xmin = Data1, xmax = Data1 * 0.1, color = Group.1))

#&#27178;&#21521;&#12365;&#12398;pointrange plot:geom_pointrangeh&#12467;&#12510;&#12531;&#12489;
ggplot(TestData2, aes(x = Data1 + 0.1, y = Group.1)) +
  geom_pointrangeh(aes(xmin = Data1, xmax = Data1 + 0.3, color = Group.1))

#&#27178;&#21521;&#12365;&#12398;crossbar plot:geom_crossbarh&#12467;&#12510;&#12531;&#12489;
ggplot(TestData2, aes(x = Data1 + 0.1, y = Group.1)) +
  geom_crossbarh(aes(xmin = Data1, xmax = Data1 + 0.3, color = Group.1))