如下图中染料浓度和X重叠，如何进行修改？？？由图可知，这是一元一次方程，如何使其显示?如何显示R平方的值？

x<- c(0,10,20,30,40,50,60,70,80)

y<- c(0,0.33,0.605,0.897,1.115,1.394,1.687,1.954,2.198)

plot(x,y)

fit<- lm(y~x)

abline(fit,lwd=0.5)

title(main="标准曲线",xlab="染料浓度（mg/l）",ylab="吸光值")

李芬要加油

2019-02-23

源自：R语言之数据可视化 3-3

关注问题我要回答

897

操作

收起

1 回答

Tenrai
2019-05-23

x<- c(0,10,20,30,40,50,60,70,80)
y<- c(0,0.33,0.605,0.897,1.115,1.394,1.687,1.954,2.198)
plot(x,y,main="标准曲线",xlab="染料浓度（mg/l）",ylab="吸光值")
fit<- lm(y~x)
abline(fit,lwd=0.5)

把 title(main="标准曲线",xlab="染料浓度（mg/l）",ylab="吸光值") 这行代码直接放到plot里面就好了。