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

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

#パッケージの読み込み
library("collapsibleTree")

###データ例の作成#####
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))

########

#インタラクティブに展開収束するツリーダイアグラムを作成:collapsibleTreeコマンド
#データを指定:dfオプション
#階層データを指定:hierarchyオプション
#シンボル塗色を設定:fillオプション;rootを含めた全階層分のデータ数が必要
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)))))
)