Rで解析：ggplot2でお手軽な平行座標プロット「ggparallel」パッケージ

ggplot2を利用して平行座標プロットを作成するパッケージです。手軽に利用できますのでオススメです。

パッケージバージョンは0.2.0。R version 4.2.2で確認しています。

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

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

#パッケージのインストール
install.packages("ggparallel")

実行コマンド

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

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

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

###&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;#####
n <- 25
TestData <- data.frame("Group" = sample(paste0("Group", 1:3), n, replace = TRUE),
                       "Data1" = sample(LETTERS[1:24], n, replace = TRUE),
                       "Data2" = sample(1:10, n, replace = TRUE))
########

#&#24179;&#34892;&#24231;&#27161;&#12503;&#12525;&#12483;&#12488;&#12398;&#20316;&#25104;:ggparallel&#12467;&#12510;&#12531;&#12489;
#&#12487;&#12540;&#12479;&#12398;&#25351;&#23450;:data&#12458;&#12503;&#12471;&#12519;&#12531;
#X&#36600;&#26041;&#21521;&#12398;&#38917;&#30446;&#12434;&#25351;&#23450;:vars&#12458;&#12503;&#12471;&#12519;&#12531;;list&#12391;&#25351;&#23450;&#12375;&#12414;&#12377;,2&#22793;&#25968;&#20197;&#19978;&#12398;&#25351;&#23450;&#12364;&#21487;&#33021;
#&#22615;&#12398;&#36879;&#26126;&#24230;&#12434;&#25351;&#23450;:alpha&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12503;&#12525;&#12483;&#12488;&#12398;&#24133;&#12434;&#25351;&#23450;:width&#12458;&#12503;&#12471;&#12519;&#12531;
#&#38917;&#30446;&#12398;&#20006;&#12403;&#26367;&#12360;:order&#12458;&#12503;&#12471;&#12519;&#12531;:&#38477;&#38918;;1,&#26119;&#38918;;0
#&#12521;&#12505;&#12523;&#12398;&#34920;&#31034;:label&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12521;&#12505;&#12523;&#12398;&#35282;&#24230;:text.angle&#12458;&#12503;&#12471;&#12519;&#12531;
ggparallel(data = TestData, vars = list("Group", "Data2", "Data1"),
           alpha = 0.7, width = 0.25, order = 1,
           label = TRUE, label.size = 4, text.angle = 45) +
  #&#22615;&#33394;&#12434;&#22793;&#26356;&#12377;&#12427;&#22580;&#21512;
  scale_fill_manual(values = colormap(colormap = colormaps[[20]])) +
  #&#26528;&#32218;&#12434;&#22793;&#26356;&#12377;&#12427;&#22580;&#21512;
  scale_colour_manual(values = colormap(colormap = colormaps[[22]]))

出力例

・ggparallelコマンド

少しでも、あなたの解析が楽になりますように！！