您建议的命令在某种程度上起到了一定的作用但是我仍然在寻找一个命令/函数来给出更平滑的曲线。我在下面给出了一个可重复的代码,该代码绘制的是比较尖锐的边缘,或者更粗略一些:连接点的线条太尖锐,特别是从一点到另一点的时刻。对于非技术性语言对不起,因为我仍然不熟悉该领域。感谢您提供有关此问题的帮助。请在下面的代码中建议修改以获得更平滑的曲线。为极小量级的数据绘制平滑线
xdata1<-c(6:11)
ydata1<-c(-0.75132894, -1.71909555, -0.62653171, 0.49512191, 0.29201836, 0.31094460)
plot(NULL,NULL,xlim=xlims,ylim=ylims,axes=FALSE, ann=FALSE)
axis(1,cex.axis=0.7,mgp=c(3, .3, 0))
axis(2, las=1,cex.axis=0.7,at=c(-2,-1,0,1,2), mgp=c(3, .7, 0))
mtext(side = 1, text =expression('Year'), line = 1,font=15)
mtext(side = 2, text = expression('Variable'), line = 1.5,font=15)
lines(smooth.spline(xdata1,ydata1, df=5), col='red',type="l", pch=22, lty=1, lwd=1)
#######更新查询完成这里
我暗算1.时间步长非常小幅度的数据请参考下面的示例数据:
xdata<-c(1:48)
ydata<- c(0.325563413,0.401913414,0.221939845,0.19881055,
-0.05918293,-1.108143815,-0.220563332,-0.148715078,
-0.14998762,0.131610695,0.249923598,0.246891873,
0.656812019,0.524436114,0.23875397,0.200695075,
-0.015974087,-0.611863249,0.121994831,-0.143103421,
-0.142109609,0.101451935,0.160242421,0.232404601,
0.348305745,0.231109382,0.334988321,0.263046902,-0.058154333,
-1.032276818,-0.352068888,-0.13082767,-0.134611511,0.116967421,
0.268706409,0.232776855,0.39515544,0.540317537,0.424281195,
0.3061158,-0.210735495,0.023705618,0.473338271,0.270527033,
-0.165394174,0.268773501,0.202437269,0.305577906)
请帮助我绘制了一条平滑的线条,没有突出显示数据的各个点。
由于提前,
嗨,寻求帮助的感谢。请参阅最新的查询,并请和我一样帮助我 – Aaron 2012-03-07 19:59:55
你能解释Ben的帖子出了什么问题吗? – Dason 2012-03-07 20:50:42
嗨,没有什么是错的,但我拥有的数据是给我直线,我想从中创建连接点的曲线。请参阅我发布的示例数据和可重复的代码。 – Aaron 2012-03-07 21:59:28