1

绘图的结果可以正常排列在网格中。ctree我目前有一个问题，将包中的函数结果绘制party在网格中。这个问题是 6 年零 8 个月前的一个问题的副本（Plot of BinaryTree (ctree, party) 忽略了 par() 的 plot 选项）。选择 gridExtra 可以提供解决方案。然而，到目前为止，还没有针对这个问题给出解决方案。考虑下面的例子。

library(party)
library(gridExtra)

#Create random dataframe
dfA <- data.frame(x=c(rnorm(50, 5), rnorm(50, 2)), 
                  y=c(rbinom(50, 1, .9), rbinom(50, 1, .1)))

#Duplicate dataframe
dfB <- dfA

#Plot in base R wit par (does not work)
par(mfrow = c(1, 2))
plot(party::ctree(y~x, data=dfA))
plot(party::ctree(y~x, data=dfB))

#Try to organize in a grid wit gridExtra (does not work)
treeA <- party::ctree(y~x, data=dfA)
treeB <- party::ctree(y~x, data=dfB)

grobA <- arrangeGrob(plot(treeA))
grobB <- arrangeGrob(plot(treeB))

grid.arrange(grobA, grobB, ncol=2)

Error in gList(list(wrapvp = list(x = 0.5, y = 0.5, width = 1, height = 1,  : 
                                    only 'grobs' allowed in "gList"

并且arrangeGrob(plot(treeA))还arrangeGrob(plot(treeB))返回一个错误说明Error in vapply(x$grobs, as.character, character(1)) : values must be length 1, but FUN(X[[1]]) result is length 0

有人知道如何在网格中绘制 ctree 函数的结果吗？

先感谢您。

4

2 回答 2

2 
## grab the scene as a grid object
library(gridExtra)
library(gridGraphics)
library(grid)

list.to.pass <- list('plot(ctree(y~x, data=dfA))',
                     'plot(ctree(y~x, data=dfB))')
out<-list()
for (i in c(1,2)){
  print(i)
  
  formula(list.to.pass[[i]])
  
  out[[i]] <- grid.grab()
  
  print(out[[i]])
  dev.off()
}
grid.arrange(out[[1]], out[[2]], nrow = 1,ncol=2)

你会得到：

在此处输入图像描述

于 2020-07-29T12:30:16.100 回答
0

中的绘图party及其后继程序包partykit已实现grid，因此par()诸如此类的基本图形选项mfrow不起作用。您可以使用grid.layout()来达到类似的效果。这样做grid有点技术性，但代码不应该太难理解：

grid.newpage()
pushViewport(viewport(layout = grid.layout(1, 2)))

pushViewport(viewport(layout.pos.row = 1, layout.pos.col = 1))
plot(treeA, newpage = FALSE)
popViewport()

pushViewport(viewport(layout.pos.row = 1, layout.pos.col = 2))
plot(treeB, newpage = FALSE)
popViewport()

方格

争论的原因newpage = FALSE是默认情况下，绘图是在新页面上绘制的，而不是添加到可能存在的绘图中。

于 2020-07-29T14:43:20.863 回答