使用ggplot2显示图例时出现问题,没有任何显示...图例项在df中没有对应的变量 [英] Issue displaying legend with ggplot2, nothing displaying ... legend items have no correspnsing variable in df
本文介绍了使用ggplot2显示图例时出现问题,没有任何显示...图例项在df中没有对应的变量的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我正在使用ggplot绘制一系列线条并在它们之间加阴影.有10条线,但只有5个阴影区域.我想要5个阴影区域的图例.目前没有任何传说.我以为是线
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
[无图例] 1
推荐答案
这是通过将fill = XXX放置在geom_ribbon函数的aes括号内来解决的,如以下代码所示:
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"))
这篇关于使用ggplot2显示图例时出现问题,没有任何显示...图例项在df中没有对应的变量的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文