1、基本绘图
P <- ggplot2::ggplot(data=zx2,aes(X1,Y1,color=as.factor(code),shape=as.factor(code))) +
geom_point(size=2)
+ geom_smooth(mapping = aes(X1,Y1),method='lm',data=zx2[1:10,],se=F)
+ labs(title="sccm~ppmv",x="sccm",y="ppmv") +theme_classic()
+ scale_x_continuous(breaks = seq(0,12,0.5))
+ geom_text(aes(x=9,y=3000),label=