如何在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,以及图像大小,分辨率等参数.

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