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')