library(readxl)
mydata<- read_excel("F:/Study data/Drawing/Predict Model/Predict_Annual_O3.xlsx")
library(ggplot2)
p <- ggplot(mydata,aes(x=O3,y=Predict_O3_Annual)) + geom_point()###注意根据导入excel表修改x,y
p + stat_smooth(method='lm',formula = y~x+ I(x),colour='blue') + theme(axis.text=

最低0.47元/天 解锁文章
488

被折叠的 条评论
为什么被折叠?



