如何在R中绘制更平滑的曲线

Question

使用R ，我绘制了一个阴影图。 如果看到曲线，它们就不平滑了。 如何让它们流畅？ 即使是excel也可以绘制更平滑的曲线。 设备功能：Windows 7，屏幕分辨率= 1366 x 768（最大）

这是情节。

以下代码用于绘制图表。

plot(NA,xlim=c(0,1),ylim=c(0,1),xlab="delta",ylab="K", xaxs="i",yaxs="i") # Empty plot
a1 <- curve((x+x^7-x^2-x^4)/(1+x-x^3-x^4), from=0, n=450000, add = TRUE) # First curve

完整代码可在此处获得

Answer 1

目前，看起来你的情节是锯齿状的，不是因为曲线本身，而是因为你的屏幕显示它。

@Hemmo建议使用矢量图形格式而不是光栅格式来修复此解决方案。 这是最好的解决方案，但如果您迫切需要使用栅格格式，则可以使用消除锯齿功能。

消除锯齿意味着绘制的图形周围有一些灰色模糊，因此它们看起来像是弯曲到人眼。 如果放大消除锯齿的图像，您将很容易看到这一点。 目前：

png("no-alias.png")
# Your code
dev.off()

cairographics提供抗锯齿功能。 所以用它作为png一个选项：

png("alias.png", type="cairo")
# Your code again
dev.off()

Answer 2

我相当肯定，如果你将你的数字绘制为例如pdf，曲线是完全平滑的。 这是Rgui的内部显示，它将曲线显示为不平滑，并且使用复制粘贴可能会导致问题。 最好直接绘制到文件中，如下所示：

# Open device:
pdf("D:/test.pdf") #change for appropriate file path
plot(NA,xlim=c(0,1),ylim=c(0,1),xlab="delta",ylab="K", xaxs="i",yaxs="i")
a1 <- curve((x+x^7-x^2-x^4)/(1+x-x^3-x^4), from=0, n=450000, add = TRUE)
dev.off() #close device

现在看一下pdf，它看起来完全没问题。 如果你想要例如jpg图像，使用函数jpeg等，请参阅?jpeg以获取更多详细信息如何保存为tiff，jpeg，png或bmp，以及图像大小，分辨率等参数。

（注意，这里使用的设备等术语可能不完全正确，我对这个术语并不完全熟悉，如果合适的话，更聪明的人可以编辑）。

Answer 3

我不确定你的问题是什么（在你所展示的情节中不清楚），但你可以通过对你的点进行三次（或Hermite）样条插值来改善。 这里有一些使用spline和splinefun选项。

layout(matrix(c(1,2,3),nrow=3,byrow=TRUE))
plot(NA,xlim=c(0,1),ylim=c(0,0.2),xlab="delta",ylab="K", xaxs="i",yaxs="i",
     main='orginal plot with 45000 points') # Empty plot
a1 <- curve((x+x^7-x^2-x^4)/(1+x-x^3-x^4), from=0, n=45000, add = TRUE)
x <- seq(0,1,length.out=1000)
y <- (x+x^7-x^2-x^4)/(1+x-x^3-x^4)
f <- splinefun(x, y)
plot(NA,xlim=c(0,1),ylim=c(0,0.2),xlab="delta",ylab="K", xaxs="i",yaxs="i",
     main='splinefun plot with 1000 points') 
curve(f(x),0, 1, col = "green", lwd = 1.5,add=TRUE)
plot(NA,xlim=c(0,1),ylim=c(0,0.2),xlab="delta",ylab="K", xaxs="i",yaxs="i",
     main='spline plot with 1000 points') 
lines(spline(x,y), col = 2)