Plot 多條曲線在同一個 plot 在 R

Question

我想在同一 plot 中的 plot 3 曲線：

curve(dweibull(x, shape=0.5, scale = 1), from=0, to=5)
par(new=TRUE)
curve(dweibull(x, shape=1, scale = 1), from=0, to=5)
par(new=TRUE)
curve(dweibull(x, shape=1.5, scale = 1), from=0, to=5)

我知道使用par(new=TRUE)將 plot 曲線在同一 plot 但我有三個 y 軸塗抹在一起，如下所示：

如何獲得一個清晰的 y 軸？

Answer 1

使用geom_function的ggplot選項，如下所示：

library(ggplot2)
ggplot() + 
  geom_function(fun = function(x) sin(x)) +
  geom_function(fun = function(x) cos(x)) +
  geom_function(fun = function(x) 3*x) +
  labs(x = "x", y = "y") +
  theme_bw()

^{使用reprex v2.0.2創建於 2022-08-27}

Answer 2

使用add=TRUE如下所示：

curve(dweibull(x, shape=0.5, scale = 1), from=0, to=5)
par(new=TRUE)
curve(dweibull(x, shape=1, scale = 1), from=0, to=5,  add=TRUE)
par(new=TRUE)
curve(dweibull(x, shape=1.5, scale = 1), from=0, to=5, add=TRUE)