英文:
Is it possible to change the color scale with ggparty::geom_node_plot()?
问题
我希望能够使用 scale_fill_manual() 来更改此图中的填充颜色，但它不起作用：
library(ggparty)#> Loading required package: ggplot2#> Loading required package: partykit#> Loading required package: grid#> Loading required package: libcoin#> Loading required package: mvtnormsp_o <- partysplit(1L, index = 1:3)n1 <- partynode(id = 1L, split = sp_o, kids = lapply(2L:4L, partynode))t2 <- party(n1,data = WeatherPlay,fitted = data.frame("(fitted)" = fitted_node(n1, data = WeatherPlay),"(response)" = WeatherPlay$play,check.names = FALSE),terms = terms(play ~ ., data = WeatherPlay))ggparty(t2) +geom_edge() +geom_edge_label() +geom_node_splitvar() +# 通过传递包含要为每个节点绘制的所有 ggplot 组件的 gglist 列表#（默认：终端）节点geom_node_plot(gglist = list(geom_bar(aes(x = "", fill = play),position = position_fill()),xlab("play") +scale_fill_manual(values = c("lightblue", "blue"))))
<!-- -->
<sup>此代码来自 ggparty "Graphic Partying" 详细介绍 的“节点图”部分，除了 scale_fill_manual() 这一行。</sup>
英文:
I would expect to be able to change the fill colors in this plot with scale_fill_manual() but it doesn't work:
library(ggparty)#> Loading required package: ggplot2#> Loading required package: partykit#> Loading required package: grid#> Loading required package: libcoin#> Loading required package: mvtnormsp_o <- partysplit(1L, index = 1:3)n1 <- partynode(id = 1L, split = sp_o, kids = lapply(2L:4L, partynode))t2 <- party(n1,data = WeatherPlay,fitted = data.frame("(fitted)" = fitted_node(n1, data = WeatherPlay),"(response)" = WeatherPlay$play,check.names = FALSE),terms = terms(play ~ ., data = WeatherPlay))ggparty(t2) +geom_edge() +geom_edge_label() +geom_node_splitvar() +# pass list to gglist containing all ggplot components we want to plot for each# (default: terminal) nodegeom_node_plot(gglist = list(geom_bar(aes(x = "", fill = play),position = position_fill()),xlab("play") +scale_fill_manual(values = c("lightblue", "blue"))))
<!-- -->
<sup>Created on 2023-03-03 with reprex v2.0.2</sup>
This code is from the Node Plot section of the ggparty "Graphic Partying" vignette with the exception of the scale_fill_manual() line.
答案1
得分: 1
你应该在你的ggplot公式列表中删除“+”并替换为“,”：
library(ggparty)#> Loading required package: ggplot2#> Loading required package: partykit#> Loading required package: grid#> Loading required package: libcoin#> Loading required package: mvtnormsp_o <- partysplit(1L, index = 1:3)n1 <-partynode(id = 1L,split = sp_o,kids = lapply(2L:4L, partynode))t2 <- party(n1,data = WeatherPlay,fitted = data.frame("(fitted)" = fitted_node(n1, data = WeatherPlay),"(response)" = WeatherPlay$play,check.names = FALSE),terms = terms(play ~ ., data = WeatherPlay))ggparty(t2) ,geom_edge() ,geom_edge_label() ,geom_node_splitvar() ,# 将包含我们要为每个（默认：终端）节点绘制的所有ggplot组件的列表传递给gglistgeom_node_plot(gglist = list(geom_bar(aes(x = "", fill = play),position = position_fill()),xlab("play") ,scale_fill_manual(values = c("lightblue", "blue"))))
不要删除“+”或者“,”前面的空格，因为它们在代码中起着重要的分隔作用。
英文:
You should remove the "+" and replace by "," in your ggplot formula list :
library(ggparty)#> Loading required package: ggplot2#> Loading required package: partykit#> Loading required package: grid#> Loading required package: libcoin#> Loading required package: mvtnormsp_o <- partysplit(1L, index = 1:3)n1 <-partynode(id = 1L,split = sp_o,kids = lapply(2L:4L, partynode))t2 <- party(n1,data = WeatherPlay,fitted = data.frame("(fitted)" = fitted_node(n1, data = WeatherPlay),"(response)" = WeatherPlay$play,check.names = FALSE),terms = terms(play ~ ., data = WeatherPlay))ggparty(t2) +geom_edge() +geom_edge_label() +geom_node_splitvar() +# pass list to gglist containing all ggplot components we want to plot for each# (default: terminal) nodegeom_node_plot(gglist = list(geom_bar(aes(x = "", fill = play),position = position_fill()),xlab("play") ,scale_fill_manual(values = c("lightblue", "blue"))))
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论