我有一个折线图,当前显示图表上每个点之间的直线。
有没有一种方法可以使线条成为平滑的曲线,而不是简单地“连接点”?
这是我用来生成上述图表的代码摘录:
plot(dataPlotsX,dataPlotsY, type="o", col="red", ann=FALSE)
title(main=plotTitle, col.main="red", font.main=4)
title(xlab="Time (hours)", col.lab="red")
title(ylab="Discharge (m^3/s per 10mm)", col.lab="red")
供引用;
dataPlotsX = c(0, 1, 2, 3, 4, 5, 6)
dataPlotsY = c(0.000000, 5.772690, 17.303517, 12.981276, 2.886345, 0.000000, 0.000000)
非常感谢
柯本
最佳答案
您可以使用样条线进行插值,例如:
# run this code just after your example
# to add a spline interpolating the points
s <- smooth.spline(dataPlotsX,dataPlotsY)
smooth <- predict(s,seq.int(from=min(dataPlotsX),to=max(dataPlotsX),length.out=10000))
lines(smooth,type="l",col='blue')
关于r - R 中的平滑曲线图,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/33508190/