データセット raincloud を data に格納します（ファイルの読み込み）
使用するパケージ
library(ggplot2)
library(ggdist)
library(dplyr)
library(gridExtra)
描き方は、ChatGPTにプロンプトして教えてもらいました
Raincloud plotの作成
g1 <- ggplot(data, aes(x = group, y = value, fill = group)) +
ggdist::stat_halfeye(
adjust = 0.5,
justification = -0.2,
.width = 0,
point_colour = NA
) +
geom_boxplot(
width = 0.12,
outlier.shape = NA
) +
ggdist::stat_dots(
side = "left",
justification = 1.1,
dotsize = 0.7
) +
theme_minimal() +
coord_flip() # 図を左に90度回転
print(g1)
図Aと図Bを別に描いて間隔をあけます
# グループAのRaincloud plotの作成（オレンジ色）
plot_A <- ggplot(data %>% filter(group == "A"), aes(x = group, y = value, fill = group)) +
ggdist::stat_halfeye(
adjust = 0.5,
justification = -0.2,
.width = 0,
point_colour = NA
) +
geom_boxplot(
width = 0.12,
outlier.shape = NA
) +
ggdist::stat_dots(
side = "left",
justification = 1.1,
dotsize = 0.7
) +
theme_minimal() +
coord_flip() +
scale_fill_manual(values = c("A" = "orange")) +
scale_y_continuous(limits = c(0, 13), breaks = seq(0, 13, 1)) +
labs(title = "Group A")
# グループBのRaincloud plotの作成（緑色）
plot_B <- ggplot(data %>% filter(group == "B"), aes(x = group, y = value, fill = group)) +
ggdist::stat_halfeye(
adjust = 0.5,
justification = -0.2,
.width = 0,
point_colour = NA
) +
geom_boxplot(
width = 0.12,
outlier.shape = NA
) +
ggdist::stat_dots(
side = "left",
justification = 1.1,
dotsize = 0.7
) +
theme_minimal() +
coord_flip() +
scale_fill_manual(values = c("B" = "green")) +
scale_y_continuous(limits = c(0, 13), breaks = seq(0, 13, 1)) +
labs(title = "Group B")
# プロットの結合（縦に並べる）
grid.arrange(plot_A, plot_B, ncol = 1)
図Bのみを描く
# グループBのRaincloud plotの作成（緑色）
plot_B <- ggplot(data %>% filter(group == "B"), aes(x = group, y = value, fill = group)) +
ggdist::stat_halfeye(
adjust = 0.5,
justification = -0.2,
.width = 0,
point_colour = NA
) +
geom_boxplot(
width = 0.12,
outlier.shape = NA
) +
ggdist::stat_dots(
side = "left",
justification = 1.1,
dotsize = 0.7
) +
theme_minimal() +
coord_flip() +
scale_fill_manual(values = c("B" = "#20B2AA")) +
labs(title = "Group B")
# グループBのプロットを描画
print(plot_B)
コメント欄 『間違い』や『分かりにくい部分』などのご意見もお寄せください