R 如何使用'ggplot'和'xlim（）提高轴分辨率`

我试图模拟一个用HPLC分离3种化合物的科学实验的剖面图

我正在用

ggplot（）

绘制峰值，但在x轴上的分辨率非常差。如何增加ggplot在x轴上使用的点数

我尝试使用

tibble（x=seq（0,9,0.005））

作为输入数据，但没有改变

电流输出：

---

峰值使用
stat\u函数的
n
参数。请参阅文档。使用
stat\u函数的
n
参数。请参阅文档。
peaks <- list(p2 = list(name = "peak 1", tr = 2.5, sigma = 0.00873037869711973, 
    k = 0.25), p5 = list(name = "peak 2", tr = 5, sigma = 0.0174607573942395, 
    k = 1.5), p7 = list(name = "peak 3", tr = 7, sigma = 0.0244450603519352, 
    k = 2.5))

ggplot(tibble(x = 0), aes(x = x)) +
  stat_function(fun = function(x) rowSums(mapply(dnorm,
                                                 mean = sapply(peaks, function(x) x$tr), 
                                                 sd = sapply(peaks, function(x) x$sigma),
                                                 MoreArgs = list(x = x)))) + 
  xlim(0, 9) +
  ylim(0, 50) +
  theme_classic()