三.方法3
利用grid.arrange()函数。...library(gridExtra)
#(a) 二维散点与统计直方图
# 绘制主图散点图,并将图例去除,这里point层和path层使用了不同的数据集
scatter grid.arrange(hist_top, empty, scatter, hist_right, ncol=2, nrow=2, widths=c(4,1), heights=c(1,4))
?...# 绘制主图散点图,并将图例去除,这里point层和path层使用了不同的数据集
scatter <- ggplot() +
geom_point(data=data2,aes(x=x,y=y,fill...grid.arrange(hist_top, empty, scatter, hist_right, ncol=2, nrow=2, widths=c(4,1), heights=c(1,4))
?