Функция ggsave не экспортирует организоватьGrobs

Question

По какой-то причине моя функция ggsave не сохраняет аранжировки. Я сохраняю прямо в определенный каталог и в формате PNG. Код для воспроизведения ниже

N=1
pacsum<-data.frame(Subject=rep(1:N,each=9),Time=rep(0:8,N), Conc = rep(10:18,N))
pacsum

g1<-ggplot(pacsum, aes(x=Time, y = Conc))+
  geom_point()+
  xlab("Time")+ylab("Conc")+
  ggtitle("Graph 1")
g1

g2<-ggplot(pacsum, aes(x=Time, y = Conc))+
  geom_point()+
  xlab("Time")+ylab("Conc")+
  ggtitle("Graph 2")
g2

grid.arrange(g1, g2, ncol = 1)
g1g2graph<-arrangeGrob(g1, g2, ncol = 1)
ggsave(g1g2graph,file="c:/destination/test.png", width=7.5, height=9.5)

После выполнения кода ggsave отображается сообщение об ошибке:

 TableGrob (2 x 1) "arrange": 2 grobs
  z     cells    name           grob
 1 1 (1-1,1-1) arrange gtable[layout]
 2 2 (2-2,1-1) arrange gtable[layout]

заранее спасибо