### 前提・実現したいこと https://www.trifields.jp/visualization-of-decision-tree-using-ggparty-in-r-3499 上記ＵＲＬのサイトの中段の「回帰木」のコードを参考にして、目的変数を"henni"、説明変数をA～Iの9つの変数としてコードを書き換えております。サイト内では最終的に”Type"別に箱ひげグラフが出力されておりますが、私が書き換えるとBが4のときが青、それ以外は全てグレーになってしまい、サイトのように色分け出来ませんでした。おわかりになる方、アドバイスいただけますと有り難いです。 csvで取り込んでいますが、中身の一部を出力すると下記のような形です。 > head(df) henni A B C D E F G H I 1 0.5 1 2 2 1 3 2 2 1 1 2 2.2 1 2 2 1 3 2 2 1 1 3 1.0 1 2 2 1 3 2 2 1 1 4 1.9 1 2 2 1 3 2 2 1 1 5 2.0 1 2 2 1 3 2 2 1 1 6 1.2 1 2 2 1 3 2 2 1 1 Ａ～Ｉは1,2,3,4の変数をとります。 ### 発生している問題・エラーメッセージ ``` 下記のソースコードでの出力結果を添付します。６つ箱ひげグラフが出力されますが、Bが1,2,3の時すべてグレーになってしまいます。 ``` ### 該当のソースコード ```R library(rpart) library(partykit) library(ggplot2) library(ggparty) df <- read.csv("test2.csv",header=T) head(df) rt <- rpart(henni ~ A + B + C + D + E + F + G + H + I, data = df ) #henniが目的変数　A+～が説明変数に何を指定するか） prt <- as.party(rt) g <- ggparty(prt, terminal_space = 0.5) g <- g + geom_edge(size = 1.5) g <- g + geom_edge_label(colour = "grey", size = 3) g <- g + geom_node_plot( + gglist = list(geom_boxplot(aes(x="",y=henni,fill = A)),theme_bw(base_size =12)), + scales = "fixed", + id = "terminal", + shared_axis_labels = TRUE, + shared_legend = TRUE, + legend_separator = TRUE, + ) g <- g + geom_node_label( + aes(col = splitvar), + line_list = list(aes(label = paste("Node", id)), + aes(label = splitvar)), + line_gpar = list(list( + size = 10, + col = "black", + fontface = "bold" + ), + list(size = 12)), + ids = "inner" + ) g <- g + geom_node_label( + aes(label = paste0("Node ", id, ", N = ", nodesize)), + fontface = "bold", + ids = "terminal", + size = 3, + nudge_y = 0.01 + ) g <- g + theme(legend.position = "none") plot(g) ``` ### 試したこと https://qiita.com/besuboiu/items/bddd41cb8bd7dd9ef717 上記のサイトでは"condition"別に色分けできているため、参考に + gglist = list(geom_boxplot(aes(x="",y=henni,colore = X ,fill = A)),theme_bw(base_size =12)), と修正しましたが、結果は変わらずでした。。。 ![イメージ説明](d84167abd8c671e72b0dac13e1908239.png) ### 補足情報（FW/ツールのバージョンなど）ここにより詳細な情報を記載してください。

	@@ -1,1 +1,1 @@
1	- [R]Ｒの箱ひげグラフを条件別に出力する方法
1	+ [R]Ｒの箱ひげグラフを条件別に出力する方法（aes(fill=●●）で色分けができない）

質問編集履歴