

3つの年齢階層における疾病の件数の経年変化を示す線グラフを書こうとしています。

元データが横長なので

[code]

    elderlytrendw<-melt(elderlytrend, id.vars = "Year", variable.name = "Age", value.name = "Case")
    
[/code]

縦長にし、`legend.labels<-c("65-74", "75-84", "85+")`で凡例内のレベルを指定しています。

[code]

    Fig2<-ggplot(elderlytrendw,aes(x=Year, y=Case))+geom_line((aes(colour=factor(Age))))+scale_x_continuous(breaks = seq(2000,2016, by=1), limits=c(2000,2016))+scale_y_continuous(breaks = seq(0, 9000, by=2000), limits=c(0,9000))+ylab("Number of cases")+ggtitle("Figure 2. TB notification among the elderly, 2000-2016")+theme_classic()+labs(color="Age group")+scale_color_brewer(palette = "Set2")+scale_fill_discrete(name="", labels=legend.labels)
    
[/code]

[![画像の説明をここに入力](https://i.stack.imgur.com/gCmSP.png)](https://i.stack.imgur.com/gCmSP.png)

ですが凡例内のラベルが変更されません。指定の仕方が間違っているのでしょうか。どなたかご教示頂ければ幸いです。


CC BY-SA 4.0
2017-09-15T06:04:25.837
37964
2020-03-19T11:31:25.537
2020-03-19T11:31:25.537
32986
25403
question
r ggplot2
scale_fill_discreteで凡例内のラベルを変更したい


おそらく，labelsを設定するのに`scale_fill_discrete`を使っているのが原因だと思います。

[code]

    library(ggplot2)
    legend.labels <- c("hoge", "fuga", "piyo")
    
    ggplot(iris, aes(Sepal.Length, Petal.Length)) +
      geom_line(aes(color = Species)) +
      scale_color_discrete(labels = legend.labels)
    
[/code]

[![実行後の出力](https://i.stack.imgur.com/Oogn2.png)](https://i.stack.imgur.com/Oogn2.png)

上述のコードのように，`scale_color_discrete`を利用すれば，凡例内のラベルを変更できるかと思います。


CC BY-SA 3.0
2017-09-16T02:08:59.810
37982
2017-09-16T02:08:59.810
19063
37964
answer