R 添加两个图例标题（一个用于线条，另一个用于功能区）

我想给我的传奇添加一个标题。参数“fill”和“color”具有相同的变量：varC（14个因子）。我尝试通过以下方式实现这一点：

g.mean <- ggplot(df,aes(x = as.numeric(xx),y=yy,color=varc)) + 
  geom_line() +
  geom_ribbon(aes(ymin=Born_Inf, ymax=Born_Sup, fill=varc), alpha=0.1) + 
  guides(color= guide_legend("My title for line"),fill=guide_legend("My title for ribbon"))

---

g.mean删除
指南
并尝试以下操作之一。我之所以给出两个可能的答案，是因为我无法100%确定在没有看到您的数据样本的情况下哪种方法会起作用。如果
varc
是一个
因子
或
字符
，则第二个应起作用，如果是
数值
则第一个应起作用

1.

ggplot(df,aes(x = as.numeric(xx),y=yy,color=varc)) + 
  geom_line() +
  geom_ribbon(aes(ymin=Born_Inf, ymax=Born_Sup, fill=varc), alpha=0.1) +   
  scale_color_continuous(name = "My title for line") + 
  scale_fill_continuous(name = "My title for ribbon")

ggplot(df,aes(x = as.numeric(xx),y=yy,color=varc)) + 
  geom_line() +
  geom_ribbon(aes(ymin=Born_Inf, ymax=Born_Sup, fill=varc), alpha=0.1) +   
  scale_color_discrete(name = "My title for line") + 
  scale_fill_discrete(name = "My title for ribbon")

2.

ggplot(df,aes(x = as.numeric(xx),y=yy,color=varc)) + 
  geom_line() +
  geom_ribbon(aes(ymin=Born_Inf, ymax=Born_Sup, fill=varc), alpha=0.1) +   
  scale_color_continuous(name = "My title for line") + 
  scale_fill_continuous(name = "My title for ribbon")

ggplot(df,aes(x = as.numeric(xx),y=yy,color=varc)) + 
  geom_line() +
  geom_ribbon(aes(ymin=Born_Inf, ymax=Born_Sup, fill=varc), alpha=0.1) +   
  scale_color_discrete(name = "My title for line") + 
  scale_fill_discrete(name = "My title for ribbon")

删除
辅助线
，然后尝试以下操作之一。我之所以给出两个可能的答案，是因为我无法100%确定在没有看到您的数据样本的情况下哪种方法会起作用。如果
varc
是一个
因子
或
字符
，则第二个应起作用，如果是
数值
则第一个应起作用

1.

ggplot(df,aes(x = as.numeric(xx),y=yy,color=varc)) + 
  geom_line() +
  geom_ribbon(aes(ymin=Born_Inf, ymax=Born_Sup, fill=varc), alpha=0.1) +   
  scale_color_continuous(name = "My title for line") + 
  scale_fill_continuous(name = "My title for ribbon")

ggplot(df,aes(x = as.numeric(xx),y=yy,color=varc)) + 
  geom_line() +
  geom_ribbon(aes(ymin=Born_Inf, ymax=Born_Sup, fill=varc), alpha=0.1) +   
  scale_color_discrete(name = "My title for line") + 
  scale_fill_discrete(name = "My title for ribbon")

2.

ggplot(df,aes(x = as.numeric(xx),y=yy,color=varc)) + 
  geom_line() +
  geom_ribbon(aes(ymin=Born_Inf, ymax=Born_Sup, fill=varc), alpha=0.1) +   
  scale_color_continuous(name = "My title for line") + 
  scale_fill_continuous(name = "My title for ribbon")

ggplot(df,aes(x = as.numeric(xx),y=yy,color=varc)) + 
  geom_line() +
  geom_ribbon(aes(ymin=Born_Inf, ymax=Born_Sup, fill=varc), alpha=0.1) +   
  scale_color_discrete(name = "My title for line") + 
  scale_fill_discrete(name = "My title for ribbon")

我已经尝试添加以下行，但结果与图片相同。很抱歉，我忘了提到我需要在style（）函数中打印ggplot的对象。我编辑了我的帖子…@CoxTox我建议你把这个作为一个新问题发布，因为我认为现在没有人会看到这个。很遗憾，我无法帮助您解决此问题。我已尝试添加以下行，但结果与图片相同。很抱歉，我忘了提及我需要在style（）函数中打印ggplot的对象。我编辑了我的帖子…@CoxTox我建议你把这个作为一个新问题发布，因为我认为现在没有人会看到这个。不幸的是，我不能帮你解决这个问题。