Rで解析：インタラクティブに展開収束なツリーダイアグラム「collapsibleTree」パッケージ

インタラクティブに展開収束なツリーダイアグラムを作成するパッケージの紹介です。かなり、活用範囲が広いパッケージと考えます。

パッケージバージョンは0.1.7。実行コマンドはRStudioのRStudio Desktop 2021.09.2+382、windows 11のR version 4.1.2で確認しています。

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

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

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

実行コマンド

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

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

###&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;#####
n <- 500
TestData <- data.frame("Group" = sample(paste0("Group", 1:5), n, replace = TRUE),
                       "LETTERS" = sample(LETTERS[1:24], n, replace = TRUE),
                       "letters" = sample(letters[1:24], n, replace = TRUE),
                       "numeric" = sample(as.character(seq(n)), n, replace = FALSE))

########

#&#12452;&#12531;&#12479;&#12521;&#12463;&#12486;&#12451;&#12502;&#12395;&#23637;&#38283;&#21454;&#26463;&#12377;&#12427;&#12484;&#12522;&#12540;&#12480;&#12452;&#12450;&#12464;&#12521;&#12512;&#12434;&#20316;&#25104;:collapsibleTree&#12467;&#12510;&#12531;&#12489;
#&#12487;&#12540;&#12479;&#12434;&#25351;&#23450;:df&#12458;&#12503;&#12471;&#12519;&#12531;
#&#38542;&#23652;&#12487;&#12540;&#12479;&#12434;&#25351;&#23450;:hierarchy&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12471;&#12531;&#12508;&#12523;&#22615;&#33394;&#12434;&#35373;&#23450;:fill&#12458;&#12503;&#12471;&#12519;&#12531;;root&#12434;&#21547;&#12417;&#12383;&#20840;&#38542;&#23652;&#20998;&#12398;&#12487;&#12540;&#12479;&#25968;&#12364;&#24517;&#35201;
collapsibleTree(df = TestData,
                hierarchy = c("Group", "LETTERS", "letters", "numeric"),
                fill = c(
                  #TestData
                  "black",
                  #"Group"
                  rep("green", length(unique(paste(TestData$Group)))),
                  #LETTERS
                  rep("#fef0e7", length(unique(paste(TestData$Group, TestData$LETTERS)))),
                  #letters
                  rep("#5c463e", length(unique(paste(TestData$Group,
                                                     TestData$LETTERS,
                                                     TestData$letters)))),
                  #numeric
                  rep("#f5c971", length(unique(paste(TestData$Group,
                                                     TestData$LETTERS,
                                                     TestData$letters,
                                                     TestData$numeric)))))
)

出力例

シンボルをクリックすることで展開収束します。

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