Issue displaying legend with ggplot2, nothing displaying … legend items have no correspnsing variable in df

问题

I am plotting a series of lines using ggplot and shading between them. There are 10 lines, but only 5 shaded regions. I want the legend for the 5 shaded regions. At the moment no legend is showing. I thought the line

scale_color_manual(name="test",labels = c("90%","70%","50%","30%","10%"), 
                 values = c("Darkolivegreen1", "Darkolivegreen2","Darkolivegreen3","Darkolivegreen4","Darkolivegreen"))

would add a manual colour bar with the shaded region, but nothing shows. The full plot code is below. Thanks

Exposure_by_Month_10perc=Exposure_by_Month[,c(1,seq(3,length(monthQuant[1,])+1,4))]
dfm <- melt(Exposure_by_Month_10perc, id.vars = "Date")
dfm$value=dfm$value/1000000
colnames(dfm)=c("Date","Confidence Interval","value")

ggplot(Exposure_by_Month_10perc, aes(x=Date, y = dfm[dfm$`Confidence Interval`== "0.05",3])) +
  geom_line(aes(y = dfm[dfm$`Confidence Interval`== "0.05",3])) +
  geom_line(aes(y = dfm[dfm$`Confidence Interval`== "0.15",3])) + 
  geom_line(aes(y = dfm[dfm$`Confidence Interval`== "0.25",3])) + 
  geom_line(aes(y = dfm[dfm$`Confidence Interval`== "0.35",3])) +
  geom_line(aes(y = dfm[dfm$`Confidence Interval`== "0.45",3])) +
  geom_line(aes(y = dfm[dfm$`Confidence Interval`== "0.55",3])) +
  geom_line(aes(y = dfm[dfm$`Confidence Interval`== "0.65",3])) +
  geom_line(aes(y = dfm[dfm$`Confidence Interval`== "0.75",3])) +
  geom_line(aes(y = dfm[dfm$`Confidence Interval`== "0.85",3])) +
  geom_line(aes(y = dfm[dfm$`Confidence Interval`== "0.95",3])) +
  geom_ribbon(aes(ymin = dfm[dfm$`Confidence Interval`== "0.95",3], ymax = dfm[dfm$`Confidence Interval`== "0.05",3]), fill = "Darkolivegreen1", alpha = .5) +
  geom_ribbon(aes(ymin = dfm[dfm$`Confidence Interval`== "0.85",3], ymax = dfm[dfm$`Confidence Interval`== "0.15",3]), fill = "Darkolivegreen2", alpha = .5) +
  geom_ribbon(aes(ymin = dfm[dfm$`Confidence Interval`== "0.75",3], ymax = dfm[dfm$`Confidence Interval`== "0.25",3]), fill = "Darkolivegreen3", alpha = .5) +
  geom_ribbon(aes(ymin = dfm[dfm$`Confidence Interval`== "0.65",3], ymax = dfm[dfm$`Confidence Interval`== "0.35",3]), fill = "Darkolivegreen4", alpha = .5) +
  geom_ribbon(aes(ymin = dfm[dfm$`Confidence Interval`== "0.55",3], ymax = dfm[dfm$`Confidence Interval`== "0.45",3]), fill = "Darkolivegreen", alpha = .5) +
  scale_x_date(labels = date_format("%b-%Y"),breaks='2 months') +
  theme_bw() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  labs(title = "XXXX TITLE", subtitle = "XXX SUBTITLE") +
  xlab("Month") +
  ylab("Value, $M") +
  scale_y_continuous(label=dollar_format(),breaks = round(seq(min(dfm$value), max(dfm$value), by = 1),0)) +
  geom_line(aes(y = 0*dfm[dfm$`Confidence Interval`== "0.95",3]),linetype = "dashed") +
  scale_color_manual(name="test",labels = c("90%","70%","50%","30%","10%"), 
                     values = c("Darkolivegreen1", "Darkolivegreen2","Darkolivegreen3","Darkolivegreen4","Darkolivegreen"))
  ###why no legend

> head(Exposure_by_Month_10perc)
# A tibble: 6 x 11
  Date         `0.05`   `0.15`   `0.25`   `0.35`   `0.45`   `0.55`   `0.65`   `0.75`   `0.85`   `0.95`
  <date>        <dbl>    <dbl>    <dbl>    <dbl>    <dbl>    <dbl>    <dbl>    <dbl>    <dbl>    <dbl>
1 2018-10-01  -1.44e6  -2.58e6  -3.42e6  -4.27e6  -5.15e6  -6.01e6  -7.01e6  -8.11e6  -9.51e6  -1.21e7
2 2018-11-01  -5.36e4  -1.42e6  -2.35e6  -3.35e6  -4.40e6  -5.67e6  -7.09e6  -8.66e6  -1.07e7  -1.50e7
3 2018-12-01   6.63e5  -7.65e5  -1.87e6  -3.05e6  -4.32e6  -5.82e6  -7.62e6  -9.68e6  -1.25e7  -1.87e7
4 2019-01-01   8.34e5  -9.67e5  -1.90e6  -2.68e6  -3.64e6  -4.73e6  -5.59e6  -6.94e6  -8.66e6  -1.19e7
5 2019-02-01   1.16e6  -4.70e5  -1.52e6  -2.13e6  -3.10e6  -4.15e6  -5.13e6  -6.53e6  -8.31e6  -1.20e7
6 2019-03-01   1.88e6  -6.02e3  -1.40e6  -2.10e6  -3.26e6  -4.49e6  -5.72e6  -7.46e6  -9.74e6  -1.38e7

[Plot without legend]1

回答1:

Try this:

scale_color_manual(guide="legend", labels = c("90%","70%","50%","30%","10%"), 
                 values = c("Darkolivegreen1", "Darkolivegreen2","Darkolivegreen3","Darkolivegreen4","Darkolivegreen"))

回答2:

This was solved by placing the fill=XXX inside the aes bracket of the geom_ribbon functions, as per code below:

ggplot(Exposure_by_Month_10perc, aes(x=Date, y = dfm[dfm$`Confidence Interval`== "0.05",3])) +
  geom_line(aes(y = dfm[dfm$`Confidence Interval`== "0.05",3])) +
  geom_line(aes(y = dfm[dfm$`Confidence Interval`== "0.15",3])) + 
  geom_line(aes(y = dfm[dfm$`Confidence Interval`== "0.25",3])) + 
  geom_line(aes(y = dfm[dfm$`Confidence Interval`== "0.35",3])) +
  geom_line(aes(y = dfm[dfm$`Confidence Interval`== "0.45",3])) +
  geom_line(aes(y = dfm[dfm$`Confidence Interval`== "0.55",3])) +
  geom_line(aes(y = dfm[dfm$`Confidence Interval`== "0.65",3])) +
  geom_line(aes(y = dfm[dfm$`Confidence Interval`== "0.75",3])) +
  geom_line(aes(y = dfm[dfm$`Confidence Interval`== "0.85",3])) +
  geom_line(aes(y = dfm[dfm$`Confidence Interval`== "0.95",3])) +
  geom_ribbon(aes(ymin = dfm[dfm$`Confidence Interval`== "0.95",3], ymax = dfm[dfm$`Confidence Interval`== "0.05",3], fill = "Darkolivegreen1"), alpha = .5) +
  geom_ribbon(aes(ymin = dfm[dfm$`Confidence Interval`== "0.85",3], ymax = dfm[dfm$`Confidence Interval`== "0.15",3], fill = "Darkolivegreen2"), alpha = .5) +
  geom_ribbon(aes(ymin = dfm[dfm$`Confidence Interval`== "0.75",3], ymax = dfm[dfm$`Confidence Interval`== "0.25",3], fill = "Darkolivegreen3"), alpha = .5) +
  geom_ribbon(aes(ymin = dfm[dfm$`Confidence Interval`== "0.65",3], ymax = dfm[dfm$`Confidence Interval`== "0.35",3], fill = "Darkolivegreen4"), alpha = .5) +
  geom_ribbon(aes(ymin = dfm[dfm$`Confidence Interval`== "0.55",3], ymax = dfm[dfm$`Confidence Interval`== "0.45",3], fill = "Darkolivegreen"), alpha = .5) +
  scale_x_date(labels = date_format("%b-%Y"),breaks='2 months') +
  theme_bw() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  labs(title = "Tullow Hedging Portfolio", subtitle = "Value at Risk (VAR) Analysis") +
  xlab("Month") +
  ylab("Value at Risk, $M") +
  scale_y_continuous(label=dollar_format(),breaks = round(seq(min(dfm$value), max(dfm$value), by = 1),0)) +
  geom_line(aes(y = 0*dfm[dfm$`Confidence Interval`== "0.95",3]),linetype = "dashed") +
  scale_fill_manual(name="Confidence Interval",labels = c("90%","70%","50%","30%","10%"), 
                     values = c("Darkolivegreen1", "Darkolivegreen2","Darkolivegreen3","Darkolivegreen4","Darkolivegreen"))

来源：https://stackoverflow.com/questions/52450333/issue-displaying-legend-with-ggplot2-nothing-displaying-legend-items-have-n

标签

ggplot2

legend