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

Question

前提・実現したいこと

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の時すべてグレーになってしまいます。

該当のソースコード

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)),

と修正しましたが、結果は変わらずでした。。。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[shimiken]

６つの箱ひげグラフをそれぞれ別の色にしたいということでしょうか？

[Kkeguri]

ご返答が遅くなり申し訳ありません。
Bが1,2,3,4の４つに分類されているのですが、Ｂごとに4色に色分けしたいという意味です。
場合によっては、一つのグラフの枠中にBが1のもの、2のものなど、２つのグラフができると思われます。

Answer 1

fill=A の部分を fill=B にすればBごとに色分けされます。
ただ、Bは数値なのでダメかもです。

df <- read.csv("test2.csv",header=T)
df$B <- as.factor(df$B)
head(df)

このようにBをfactorに変換してから、fill=B にすればうまくいくと思います。

Comments

[Kkeguri]

factorに変換したできました。
まさにやりたかったことができました。
ありがとうございます！