r - 错误没有适用于“ggplot_build”的方法应用于“格子”类的对象
问题描述
在使用 randomForest、partial 和 plotPartial 之后,我想为 3 个(多)部分依赖图创建一个通用图例。每当我尝试任何建议的解决方案时,它都会出现:
Error in UseMethod("ggplot_build") :
no applicable method for 'ggplot_build' applied to an object of class "trellis"
这是我的代码示例:
data(boston, package = "pdp") # load the (corrected) Boston housing data
library(pdp)
library(randomForest) # for randomForest, partialPlot, and varImpPlot functions
set.seed(101) # for reproducibility
boston.rf <- randomForest(cmedv ~ ., data = boston, importance = TRUE)
varImpPlot(boston.rf)
# Compute partial dependence data for lstat and rm
pd <- partial(boston.rf, pred.var = c("lstat", "rm"))
# Default PDP
a <- plotPartial(pd)
# Compute partial dependence data for lstat and dis
pd2 <- partial(boston.rf, pred.var = c("lstat", "dis"))
# Default PDP
b <- plotPartial(pd2)
# Compute partial dependence data for rm and dis
pd3 <- partial(boston.rf, pred.var = c("rm", "dis"))
# Default PDP
c <- plotPartial(pd3)
grid_arrange_shared_legend(a,b,c, ncol = 3, nrow = 1)
解决方案
您提取的代码很可能是用于ggplot2
. plotPartial
使用格子。
class(a)
[1] "trellis"
理论上,您可以使用latticeExtra
例如,将绘图与公共图例合并,但此函数假定图例是相同的:
library(latticeExtra)
library(pdp)
c(a,b)
但是我认为颜色条一开始就不一样,所以用普通图例制作情节是错误的
grid.arrange(a, b, ncol = 2)
要使其正常工作,您必须首先找到一种方法使两个图的图例相等。也许尝试这样的事情:
library(patchwork)
# get the range of values
col_limits = range(c(pd$yhat,pd2$yhat,pd3$yhat))
col_limits = c(floor(col_limits[1]),ceiling(col_limits[2]))
plts = lapply(list(pd,pd2,pd3),function(i){
g = ggplot(i,aes(x=!!sym(colnames(i)[1]),
y=!!sym(colnames(i)[2]),fill=yhat)) +
geom_tile() +
scale_fill_viridis_c(limits=col_limits)+
theme_bw()
return(g)
})
combined = plts[[1]] + plts[[2]] + plts[[3]] & theme(legend.position = "bottom")
combined + plot_layout(guides = "collect")
推荐阅读
- python - 在完整数据框中查找 excat 字符串
- python - 如何按信息对日志文件进行排序?
- bash - 将每个文件中的最后一个数字添加到以下文件中的数字中
- javascript - XMLHttpRequest onloadend 事件未在错误时运行
- homestead - 使用 api 平台客户端生成器创建 vue.js 应用程序时出现 SSL 错误
- php - Symfony 4:从“dev”切换到“prod”时,无法将文件上传到文件夹
- python-3.x - 如何从在 docker compose 的不同端口上运行的另一个烧瓶容器调用一个容器的端点?
- macos - DMG 是否需要经过公证才能通过 Catalina 上的 Gatekeeper
- c# - 从 MVC C# 导出到 excel 后,如何以日期时间格式显示日期
- anaconda - 如何在 Spyder / Anaconda 中使用 autopep8 格式化代码