R绘图合并

gridExtra包的grid.arrange函数

library(Hmisc)
library(ggplot2)
library(gridExtra)
set.seed(7)
x <- sort(rnorm(1000,10,100))[26:975]
y <- x * 500 + rnorm(950,5000,20000)
df <- data.frame(x = x,y = y,cuts = factor(cut2(x,g=5)),resid = resid(lm(y ~ x)))

scatterP1 <- ggplot(df,aes(x = x,y = y)) + 
  geom_point(aes(colour = cuts,fill = cuts),shape = 1,show.legend = FALSE) + 
  geom_smooth(method = lm,level = 0.99)

plot_left <- ggplot(df,aes(x = y,fill = cuts)) + 
  geom_density(alpha = .5,show.legend = FALSE) + coord_flip() + scale_y_reverse()

plot_right <- ggplot(df,aes(x = resid,fill = cuts)) + geom_density(alpha = .5,show.legend = FALSE) + coord_flip()

grid.arrange(plot_left,scatterP1,plot_right,ncol = 3,nrow = 1,widths = c(1,2,1))

Rplotmul.png