Error in gList(list(wrapvp = list(x = 0.5, y = 0.5, width = 1,...only ‘grobs‘ allowed in “gList“

在r语言中用plot输出图像时，一直报这个错误
Error in gList(list(wrapvp = list(x = 0.5, y = 0.5, width = 1, height = 1,(MAIN.R#80)only ‘grobs’ allowed in “gList”

这里主要是因为plot输出的方式和ggplot不一样，不能直接用grid.arrange进行输出，需要进行调整
例如下面这段代码，要把plot输出的对象放在with这个括号中，png输出写在上面，这里d.class是引用的文件的数据，如d.class <- read_csv(“data/class.csv”)

png(file='fig-hw.png', height=1000, width=1000)
with(d.class, plot(height, weight,
                   main='体重与身高关系'))
dev.off()

要想在另一个功能调用这个png照片，还可以用一下代码完成调用

img <- readPNG( "png/dog.png")
p1<-ggdraw() +
  draw_image(img)

需要加载library(magick)和library(png)