R高级实战绘图:
https://www.jianshu.com/p/e2d4a4d3d0d2
https://www.jianshu.com/p/0536cce0acad
---------------------------------------待学习
> install.packages("gridExtra")
> library(gridExtra)
> library(ggplot2)
> p1 <- ggplot(data, aes(x=mpg)) + geom_bar()
> p1
> p3 <- ggplot(data, aes(x=mpg, y=wt)) + geom_point()
> p3
> p2 <- ggplot(data, aes(x=wt)) + geom_bar()
> p2
> grid.arrange(p1,p2,p3,ncol=3)
> myplot <- ggplot(data=mtcars, aes(x=mpg)) + geom_histogram()
> myplot
> ggsave(file="mygraph.png",plot=myplot,width=5,height=4)
保存,5X4英寸
>help(ggsave)