有两个绘图问题想要

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

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)

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：RData Data rda

twoord.plot这函数没用过，您查看一下帮助文档，看type参数中有没有其他选项，改一下那个“b”。
再看一下，这个函数是否允许添加新的绘图元素。如果不允许，拟合曲线就没办法。而且要考虑，这个图的左右两个轴与拟合曲线的y是否有关系？

llb_321 发表于 2022-4-27 15:31
twoord.plot这函数没用过，您查看一下帮助文档，看type参数中有没有其他选项，改一下那个“b”。
再看一下 ...

老师您好，谢谢您的解惑。左边的轴是与y有关的