grid.arrange() 输出在 R Markdown 中添加空白 space 和额外的绘图

grid.arrange() output adding blank space and extra plot in R Markdown

我正在努力弄清楚如何在 R Markdown 中很好地绘制两个 transform()(dlookr 库)图。以下代码生成此 post 中包含的图片的输出。我想要最后一个地块 (2x2),并且想知道为什么其他两个地块也在填充。 Markdown怎么只打印最后一个?

# payment transformation
payment_log <- transform(my_data$payment, method = "log")
# income transformation
income_log <- transform(my_data$income, method = "log")

grid.arrange(
  plot(payment_log,typographic=FALSE),  # visual of transformation
  plot(income_log,typographic=FALSE),  # visual of transformation
  ncol=1)

前两个图可以通过将每个图包装在 as.grob 内的 function 调用中来避免,然后将这些变量传递给 grid.arrange

library(dlookr)
library(ggplotify)
my_data=data.frame(payment=c(1,2,2,3,3,3,4,4,4,4,5,5,5,5,5,6,6,6,6,6,6,7,7,7,7,7,7,7,8,8,8,8,8,8,8,8,9,9,9,9,9,9,9,9,9),
                   income=c(1,2,2,3,3,3,4,4,4,4,5,5,5,5,5,6,6,6,6,6,6,7,7,7,7,7,7,7,8,8,8,8,8,8,8,8,9,9,9,9,9,9,9,9,9))
payment_log=transform(my_data$payment, method="log")
income_log=transform(my_data$income, method="log")

x=as.grob(function() plot(payment_log))
y=as.grob(function() plot(income_log))
grid.arrange(grobs=list(x,y), ncol=1)