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