Question

我使用以下代码创建存储利用率图表和趋势。我的问题是我不能让geom_line成为任何颜色，而是黑色或杂色钢蓝色。如果我尝试在color="purple"我收到

的行中设置颜色

错误：提供给连续刻度的离散值

我对R编码很新，所以我研究了错误，许多解决方案似乎都围绕编码错误或数据是错误的类类型。 Y值的数据均为数字，X值为日期值。

我的偏好是为线条设置纯色，但每条线条的不同杂色也可以使用。

我还包括数据框中的剪辑。

data  
         Time     FC FCFree     NL NLFree  SSD SSDFree  
1  2014-05-05 179886  64722 104628 126412 6576    5264  
2  2014-05-12 180486  64122 104628 126412 6576    5264  
3  2014-05-19 182286  62322 104628 126412 6576    5264  
4  2014-05-26 184686  59922 104628 126412 6748    5092  
5  2014-06-02 185282  59326 104620 126420 6748    5092  

df80  
         date     X.Lo.80  X.Hi.80  
1  2016-02-12 152669.3677 191089.0  
2  2016-02-19 143284.9057 197909.7  
3  2016-02-26 135687.2835 202943.7  
4  2016-03-04 128999.3090 207068.0  
5  2016-03-11 122883.3810 210620.2  

df95  
         date       Lo.95    Hi.95  
1  2016-02-12 159318.5530 184439.8  
2  2016-02-19 152738.6943 188456.0  
3  2016-02-26 147327.1874 191303.8  
4  2016-03-04 142510.4670 193556.8  
5  2016-03-11 138067.7879 195435.8  

Allocat  
         Time Allocated  
1  2014-05-05    291090  
2  2014-05-12    291690  
3  2014-05-19    293490  
4  2014-05-26    296062  
5  2014-06-02    296650  

Subscribe
         date SubScribe  
1  2014-05-05  492839.0  
2  2014-05-12  486848.3  
3  2014-05-19  490117.7  
4  2014-05-26  494348.3  
5  2014-06-02  498552.3  

dfmedian
         date MedianTrend  
1  2016-02-12    171879.2  
2  2016-02-19    172480.7  
3  2016-02-26    173082.2  
4  2016-03-04    173683.7  
5  2016-03-11    174285.2  

dftrnd  
         date    Trend  
1  2016-02-12 171879.2  
2  2016-02-19 170597.3  
3  2016-02-26 169315.5  
4  2016-03-04 168033.7  
5  2016-03-11 166751.8  

TotalCap  
487488

绘制代码

ggplot() +  geom_area(data=mdata, position="stack", aes(x=Time,y=value,group=variable,fill=variable))+  
    geom_ribbon(data=df80, aes(x=date,ymin=X.Lo.80,ymax=X.Hi.80,fill="Accuracy80"))+  
    geom_ribbon(data=df95, aes(x=date,ymin=Lo.95,ymax=Hi.95,fill="Accuracy95"))+  
    geom_line(data=Subscribe, aes(x=date,y=SubScribe,fill="Subscription"))+  
    geom_line(data=Allocat, aes(x=Time,y=Allocated,fill="AllocationLine"))+  
    geom_line(data=dfmedian, aes(x=date,y=MedianTrend,fill="MedianTrend"))+  
    geom_line(data=dftrnd, aes(x=date,y=Trend,colour=Trend))+  
    geom_hline(aes(yintercept=TotalCap), colour="#990000", linetype="dashed")+  
    xlab("Date")+  
    ylab("GiB") +  
    ggtitle(PlotTitle)+  
    scale_fill_manual(values=c("Accuracy80"="gray80",  
      "Accuracy95"="lightsteelblue3",  
      "Allocated"="forestgreen",  
      "Free"="springgreen2",  
      "Trend"="steelblue4",  
      "Subscription"="black",  
      "AllocationLine"="purple",  
      "MedianTrend"="coral4",  
      "FC"="#93AA00",  
      "FCFree"="#00BA38",  
      "NL"="#00C19F",  
      "NLFree"="greenyellow",  
      "SSD"="#619CFF",  
      "SSDFree"="violet"))+  
    scale_y_continuous(labels = comma)+  
    theme(axis.text.x = element_text(angle = 90, hjust = 1))+  
    guides(variable = guide_legend(order=1), Trend = guide_legend(order=2))+  
    scale_colour_continuous(labels=comma)

如何设置如何设置geom_line的颜色而不会出现错误“提供给连续比例的离散值”

0 个答案: