memory.limit()
memory.limit(100000)
getwd()
setwd("E:/科学论文/2018Winter_PM25年际变化_SDEI/20190315 文章绘图/Fig_2 重点区域年际变化/")
jpeg("Fig_2_Boxplot_each region_V2.jpeg",width=600,height=600)
p<-ggplot(PM_data,aes(x=region,y=PM,fill=region))+geom_boxplot()+
theme(legend.position="none",axis.text=element_text(size=20),axis.title=element_text(size=20,face="bold")
,plot.title = element_text(size=20,hjust = 0.5))+
labs(title = "(a)箱型图",x=" ",y=expression(PM[2.5]*' ('*mu*"g /"*m^{3}*')'))
#ylab(expression(PM[2.5]*' ('*mu*"g /"*m^{3}*')'))+ggtitle("(a)箱型图")+xlab(" ")
p
dev.off()
getwd()
setwd("E:/科学论文/2018Winter_PM25年际变化_SDEI/20190315 文章绘图/Fig_2 重点区域年际变化/")
jpeg("Fig_2_line chart_V2.jpeg",width=600,height=600)
p<-ggplot(data=PM_data,aes(x=year,y=PM, group=region))+
geom_line(aes(color=region),lwd=2)+
geom_point()+
theme(legend.position="bottom",axis.text=element_text(size=20),axis.title=element_text(size=20,face="bold")
,plot.title = element_text(size=20,hjust = 0.5)
,legend.text = element_text(size = 16, face = 'bold')
,legend.title=element_blank())+
labs(title = "(b)区域年均浓度时间序列",x=" ",y=expression(PM[2.5]*' ('*mu*"g /"*m^{3}*')'))
p
dev.off()
（1）library(patchwork)
R | ggplot拼图 —— patchwork
R小tip（六）ggplot2拼图
（2）这个效果更好
ggplot2|ggpubr进行“paper”组图合并
R 函数学习 - colorRamp() 和 colorRampPalette()
R 语言配色收集
#设置自己想要的colorbar内容
color_bar <- colorRampPalette(c("#ffffff","#c0c0c0", "#ffff80","#d0d000", "#00ff00","#00bb00", "#008000"))
#带n可以设置n个颜色，做梯度
p1<-ggplot() +#一大堆其他内容
scale_fill_gradientn(colors=color_bar(12))+ #带n可以设置n个颜色，做梯度
ggplot2 |legend参数设置，图形精雕细琢
【r<-ggplot2】修改x和y轴刻度
r语言矩阵转为图表以读入txt格式的数据为例子。第一步打开R软件包，读入数据。第二部使用转换矩阵命令as.matrix()，使读入的数据变成矩阵格式。第三部验证是否转换成功，命令is.matrix()返回TRUE表示转换成功。
