Я рисую 15 разбросанных участков, которые включают линии регрессии. Тем не менее, я хотел бы отобразить на одной странице, чтобы лучше визуализировать. Функция grid.arrange помогает добавить несколько графиков в соответствии с нашим интересом, но я всегда сталкиваюсь с ошибкой.Добавление нескольких графиков в одну страницу grid.arrange function
Ошибка в GList (список (wrapvp = лист (х = 0,5, у = 0,5, ширина = 1, высота = 1,: только 'grobs' разрешены в "GList"
plots <- list()
for (i in 1:(ncol(xx2)-1)) {
cn <- colnames(xx2)
reg<-lm(xx2[,i]~xx2[,16], data=data.frame(xx2))
aa<-summary(reg)
p1<-plot(xx2[,16], xx2[,i], xlab=cn[16], ylab=cn[i],
pch=1, cex.main=1.5, frame.plot=FALSE, col="grey")+ abline(reg, col="blue", lwd=2) + text(max(xx2[,16]/1.3), max(xx2[,i])/2, paste("R-Squared:",round(aa$r.squared,3)),cex = .8)
#plot(density(resid(reg)))
plots[[i]] <- p1
}
grid.arrange(grobs = plots[1:15], ncol=5)
ИЛИ
do.call(grid.arrange, c(plots, ncol=3))
Я редактирование, чтобы удалить неправильный тег. –