plot.y + geom_abline(intercept=coef.y[1],. slope=coef.y[2]). plot.y <- qplot(y=Temp, x=Wind, data=data) model.y <- lm(Temp ~ Wind, ...
確定! 回上一頁