r - ggplot2 三角函数图看起来呈锯齿状

Question

用ggplot2绘制的三角函数曲线看起来是锯齿状的。

library(ggplot2)
ggplot( data.frame( x = c(-0.2,0.2)), aes( x = x)) + 

stat_function( fun = function(x) cos( pi/x)   , geom = "line")

给出这个锯齿状的图:

但我期待一个更流畅的情节，如下所示:

Answer 1

这个怎么样？

library(ggplot2)

ggplot(data.frame( x = c(-2.5,2.5)), aes( x = x)) + 
       stat_function(fun = function(x) ifelse(x!=0, cos(pi/x), 0), 
       geom = "line", n=5000, col='blue')