R 分组观测的密度曲线

我有一个数据集，每小时对不同物种进行观察。每小时，对每个物种的所有观察结果进行汇总，并持续24小时。以下是数据帧的一部分：

Hr  Sp1 Sp2 Sp3 Sp4 Sp5
1   8   25  1   7   7
2   3   14  0   50  4
3   5   25  1   4   10
4   7   26  1   4   11
5   5   19  0   7   11

我想画一条密度曲线，记录每种物种随时间的变化。因此，我有24个连续的组（0100小时，0200小时…2400小时），从0000小时开始作为x轴，y轴是每个物种在24小时内每小时的计数或观察值。请建议我如何在R中这样做？ 我还希望所有物种密度曲线都在一个图中。我该怎么做

非常感谢

library（重塑2）
library(reshape2)
library(ggplot2)

dt <- data.frame(Hr = 1:5,
                 Sp1 = c(8, 3, 5, 7, 5),
                 Sp2 = c(25, 14, 25, 26, 19),
                 Sp3 = c(1, 0, 1, 1, 0),
                 Sp4 = c(7, 50, 4, 4, 7),
                 Sp5 = c(7, 4, 10, 11, 11))

data <- melt(dt, id = c("Hr"))
data <- data.frame(Hr = rep(data$Hr, data$value),
                   variable = rep(data$variable, data$value))

ggplot(data, aes(Hr, colour = variable)) + geom_density()

图书馆（GG2）
你是说这个吗<代码>库（tidyverse）；d%%>%gather（k，v，-Hr）%%>%ggplot（aes（x=Hr，y=v，color=k））+geom_line（）

正是我想要的。谢谢你，胡安！