Rで解析：データの分布をプロット「redingPlot」パッケージ

データ分布の確認に便利なパッケージの紹介です。scatterコマンド以外でプロットに利用するデータ形式はlistなので注意が必要です。実行コマンドにdata.frameからlistへ変換するコマンドを合わせて紹介します。

list形式はデータ数やクラスが異なっても同一の引数で管理できるので非常に便利です。
・Rでウェブ解析:割と役に立つリストコマンドの紹介
　https://www.karada-good.net/analyticsr/r-69/
・Rで解析：listの操作に便利です。「listenv」パッケージ
　https://www.karada-good.net/analyticsr/r-299/

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

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

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

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

実行コマンド

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

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

###&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;#####
TestData <- data.frame(Group = sample(paste0("TEST", 1:4), 100, replace = TRUE),
                       Data1 = sample(1:500, 100),
                       Data2 = sample(1:200, 100))
########

#&#12503;&#12525;&#12483;&#12488;&#12487;&#12540;&#12479;&#12398;&#28310;&#20633;
#list&#24418;&#24335;&#12391;&#25351;&#23450;&#12377;&#12427;&#24517;&#35201;&#12364;&#12354;&#12426;&#12414;&#12377;&#12290;
PlotData <- NULL
for(i in seq(levels(TestData[, 1]))){
  PlotData <- c(PlotData, list(TestData %&gt;% filter(Group == unique(TestData[, 1])[i]) %&gt;% .$Data1))
}

#barplot&#12398;&#25551;&#20889;:bar&#12467;&#12510;&#12531;&#12489;
bar(PlotData, lab = levels(TestData[, 1]), CI = FALSE, SE = TRUE, median = TRUE)

#&#12498;&#12473;&#12488;&#12464;&#12521;&#12512;&#12398;&#25551;&#20889;:beeStrip&#12467;&#12510;&#12531;&#12489;
beeStrip(PlotData, lab = levels(TestData[, 1]), point_col = viridis(length(PlotData) + 2)[1:length(PlotData)])

#&#12498;&#12473;&#12488;&#12464;&#12521;&#12512;&#12395;&#31665;&#12498;&#12466;&#22259;:beeStripBox&#12467;&#12510;&#12531;&#12489;
beeStripBox(PlotData, lab = levels(TestData[, 1]), point_col = viridis(length(PlotData) + 2)[1:length(PlotData)])

#jitterplot&#12398;&#25551;&#20889;:strip&#12467;&#12510;&#12531;&#12489;
strip(PlotData, lab = levels(TestData[, 1]))

#&#25955;&#24067;&#22259;&#12398;&#25551;&#20889;:scatter&#12467;&#12510;&#12531;&#12489;
scatter(TestData[, 2], TestData[, 3])