概率密度函数的ggplot线图不平滑

Question

这个情节的模式不顺畅：

library(ggplot2)
my_func<-function(x) {dgamma(x=x, shape=208.419, scale = 31.87409, log = FALSE)}     
a<-ggplot(x<-data.frame(x=c(0,20000)),aes(x=x))
a + stat_function(fun=my_func)

什么R代码会解决这个问题？