ggplot2 中的附加图例

Question

我有一个问题，我的 ggplot() 的图例没有出现。这是我的代码：

plot_bt <- ggplot(NULL, aes(x, v1)) + 
  geom_line(data = nig_bt_1, colour = "black") +
  geom_line(data = nig_bt_2, colour = "blue") +
  geom_line(data = nig_bt_3, colour = "red") + 
  labs(x = "X", y = "Probability")

我试图在这张图中做一个图例，但我做不到。它只是没有出现。我尝试绘制三种不同类型的 NIG 分布图。在 nig_bt_1 等。我有我的价值观。这三个密度出现了，但传说没有出现。我也尝试了 scale_color_manual 功能，但没有成功。

非常感谢。

x <- seq(-7.5,7.5,0.001)
nig_bt_1 <- data.frame(x ,v1 = dnig(x, param = pr_bt_1))
nig_bt_2 <- data.frame(x ,v1 = dnig(x, param = pr_bt_2))
nig_bt_3 <- data.frame(x ,v1 = dnig(x, param = pr_bt_3))

Answer 1

只需这样做：

plot_bt <- ggplot(NULL, aes(x, v1)) + 
  geom_line(data = nig_bt_1, aes(colour = "a")) +
  geom_line(data = nig_bt_2, aes(colour = "b")) +
  geom_line(data = nig_bt_3, aes(colour = "c")) + 
  labs(x = "X", y = "Probability") +
  scales_color_manual(values= c("a" = "black", "b" = "blue", "c" = "red"))

指南只能描述您使用 aes 定义的映射。 ggplot2的方式当然是先合并数据，再用一个分组变量。

ggplot2 中的附加图例

Additional legend in ggplot2

plot

r

distribution

ggplot2