R如何使振动看起来更平滑

Question

当绘制R中的振荡时,例如,使用封装desolve,

df1 <-function(t,y,mu)( list(c(y[2],mu*y[1]^3-y[1]+0.005*cos(t))))
library (deSolve)
yini<-c(y1=0,y2=0)
df2 <-ode(y=yini,func=df1, times=0:520,parms=0.1667)
plot(df2,type="l",which="y1",ylab="Displacement",xlab="Time", main="")

我得到了破烂的情节,例如:

而不是平滑的图(不是在R中完成),例如:

有没有人知道如何在显示振荡时在R中获得更平滑的情节而不是一个破旧的情节？请注意,这不仅仅是规模差异的问题,我不是在寻找平滑滤波器.

谢谢,

Answer 1

我在R中生成了您的绘图并将其导出为PDF.我放大了它,它非常可爱.我无法看到你在那里谈论的问题.因此,存在一些缩放问题或具有栅格格式的问题导致问题.也许你正在粘贴到Word中,这会给你一个糟糕的光栅图像.就你所发布的那个而言,R在逻辑层面上制作的情节很棒.它甚至比您提出的比较图更好.

您可能以栅格格式生成绘图,而不是设置足够高的分辨率和大小.尝试使用tiff('filname',1200,1200,300)获得良好的光栅图像.我确实注意到,当导出为栅格格式时,很容易使你的情节变成一个混乱的默认png或jpg设置,只会涂抹东西.

也许你真的想以更高的分辨率在你的函数中进行采样,这在比较图中没有做到.如果是这样的话,那就相对容易了.将0:520更改为seq(0,520,0.1).这是一个更好的情节,如下所示(比PDF,EPS或SVG更好).