RData<-read.delim(file="D:/data1/R/SST/7 south.txt",header=TRUE)#打开数据文件

si<-RData$SI
sst<-RData$SST
f<-RData$Fishing.Effort
sstpos<-RData$SSTpos
x<-log(sst)


twoord.plot(sst, si, sstpos, f,xlab="SST(°C)",
            xlim=c(25.8,32.2),lylim=c(0,1.1), rylim=c(0,110), type=c("b","bar"),
            ylab="SI", rylab="Fishing Effort(%)",
            text=list(si,f),
            xtickpos=seq(26,32,by=1),lytickpos=seq(0,1,by=0.2), rytickpos=seq(0,100,by=20), ylab.at=0.5,rylab.at=50,
            main="7 south",
            lcol="red", rcol=4,do.first="plot_bg(\"white\")")


abline(h=0.8,lwd=2,col="blue")
出图如下：

问题1：想要上图的红色折线变成光滑曲线
问题2：如何再在图上绘制一条拟合曲线Y<-exp(-858*(x-3.374)^2)