R ggplot-在一个图形上绘制多个sin函数

我想用图形展示两条不同sin曲线的总和是什么样子的。 所以，我试着画一张图，显示两个不同的sin函数和它们的和。一张图上有三条曲线

如何使用ggplot图层执行此操作

我定义了两个sin函数（y和z）

但是我如何绘制这三个函数呢

我试过了，但没用

ggplot(x,
       qplot(y,x,geom="path", xlab="time", ylab="Sine wave") +
       qplot(z,x,geom="path", xlab="time", ylab="Sine wave"))

---

将所有内容存储在

数据框中

，从宽改为长，然后打印：

library(tidyverse)
data.frame(x = x, y = y, z = z, t = y + z) %>%
    pivot_longer(-x) %>%
    ggplot(aes(x, value, colour = name)) +
    geom_line()

---

样本数据

---

x谢谢，但我得到一个错误：找不到函数“pivot\u longer”。我已经试过使用tidyr、dplyr、tidyverse、data.table，它确实有效。如何让它工作？THANKS@RonSlavaGrodko您需要更新
tidyr
pivot\u longer
在版本
1.0.0
中引入（当前的CRAN版本是
1.0.2
），并被替换为
gather
。旧版本将是
gather（name，value，-x）
。
plot(x,y,type="l")
plot(x,z,type="l")
plot(x,t,type="l")

ggplot(x,
       qplot(y,x,geom="path", xlab="time", ylab="Sine wave") +
       qplot(z,x,geom="path", xlab="time", ylab="Sine wave"))

library(tidyverse)
data.frame(x = x, y = y, z = z, t = y + z) %>%
    pivot_longer(-x) %>%
    ggplot(aes(x, value, colour = name)) +
    geom_line()

x <- seq(0, 16*pi, 0.01)
y <- 2*sin(3*(x-1))
z <- sin(x)