r - geom_function 中的像素化（不平滑）曲线

Question

如何使用 ggplot2 平滑图表线

我正在尝试为此功能绘制图表

exposure_funct_0.25 <- function(x) {
  exp(-0.25*x)
} 

exposure_funct_0.5 <- function(x) {
  exp(-0.5*x)
} 

 ggplot(data.frame(x = c(0,15)), aes(x=x)) + 
         geom_function( fun = exposure_funct_0.25, linetype = 2 )  + 
        geom_function(fun = exposure_funct_0.5, linetype = 1)

但是，代码导致了这样的“虚线”图表：

我试图添加+geom_smooth()，但这个似乎不适用于我的情况。不幸的是，指定 n= 201 或更高也无济于事。

有什么办法可以让这条线像这样平滑 吗？