ggsave ggpairs图错误

Question

由于当前的ggsave无法正常工作，如何保存ggpair？

脚本：

library(GGally)
library(ggplot2)
data(diamonds, package="ggplot2")
diamonds.samp <- diamonds[sample(1:dim(diamonds)[1],200),]
pf<-ggpairs(  diamonds.samp[,1:3],mapping = ggplot2::aes(color = cut))
ggsave("C:/Users/top/Desktop/ggpairs.jpg", pf, dpi=500)

Answer 1

如果您尝试使用ggsave ，则会出现错误

ggsave("ggpairs.jpg", pf, dpi=500)

在图像中保存7 x 7 UseMethod（“ grid.draw”）中的错误：'grid.draw'的适用方法不适用于类“ c（'gg'，'ggmatrix'）”的对象

因此，您可以为ggpairs对象类编写自己的grid.draw方法

grid.draw.gg <- function(x){
  print(x)
}

ggsave("ggpairs.jpg", pf, dpi=500)