Сохранить график из R рядом с данными в Excel

Question

Я хочу сохранить сгенерированный в R файл с данными и графиками. Чтобы сделать мою проблему более понятной, приведу упрощенный код. Сначала создайте несколько матриц

library(ggplot2)

m1 = runif(10, 5.0, 7.5)
m2 = seq(1:10)
matrix_1 = cbind(m2,m1)
matrix_1

m3 = runif(10, 5.0, 7.5)
m4 = seq(1:10)
matrix_2 = cbind(m4,m3)
matrix_2

Постройте матрицы:

df1 = data.frame(data=matrix_1)
plot1 = ggplot(data=df1, aes(x=(df1[,1]), y=(df1[,2]))) +
  geom_bar(stat="identity")
plot1

df2 = data.frame(data=matrix_2)
plot2 = ggplot(data=df2, aes(x=(df2[,1]), y=(df2[,2]))) +
  geom_bar(stat="identity")
plot2

Теперь сохраните матрицы как одну таблицу в Excel:

m=rbind(matrix_1, matrix_2)
m
write.xlsx(m, "test.xlsx",
           sheetName="Sheet1", 
           col.names=T, row.names=F, append=FALSE, showNA=TRUE, password=NULL) 

Теперь я хочу сохранить сгенерированные графики в файле Excel рядом с данными, используемыми для матриц. Как на этом скриншоте:

Если возможно, высота графиков должна соответствовать высоте матриц.