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方法当然是首先组合数据并使用分组变量。