[問題] 改趨勢圖中的legand

[paranoia5201 (社會黑暗、行路難)]

[問題類型]:
程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)

[軟體熟悉度]:
入門(寫過其他程式，只是對語法不熟悉)

[問題敘述]:
我用以下語法要展現出各疾病(type)的歷年發生趨勢。
但是想不到要怎麼改圖像中legand裡的label。
所以想請教要怎麼寫。
感謝指導～


[程式範例]:
d_yearly1 # 各疾病資料歷年資料

# 資料的模樣
> head(d_yearly1)
  year  type ADJ_R TotalCase AgeMedian
1 2001 140_9 15.06      3588        51
2 2001   150  5.38      1257        62
3 2001   151 14.79      3502        70
4 2001 153_4 32.56      7640        67
5 2001   155 39.30      9122        63
6 2001   162 30.08      7062        70

# 作趨勢圖的語法
ggplot(d_yearly1, aes(x=year, y=ADJ_R, group = type)) +
  geom_line(aes(color=type))+
  geom_point(aes(color=type))+
  theme(legend.position="right")

### 圖片做出來的legand裡的label，羅列著140_9、150、151、153_4、155、162等...
### 我想把上述label改成各個疾病名稱......
### 如果有可能把label名稱直接放在線的尾端，也可以教一下怎麼放嗎？感謝。

[環境敘述]:
Rstudio
library(tidyverse)
library(ggplot2)

[關鍵字]:
製圖、視覺化



--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 210.241.78.121
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1515637245.A.C9F.html
※ 編輯: paranoia5201 (210.241.78.121), 01/11/2018 10:26:19
→ F0011010101: +scale_color_discrete(labels = c("病名","病名"))
推 cywhale: 如果線和label很多可考慮用ggrepel套件 geom_text_repel
→ cywhale: 標的y位置可以抓max(趨勢值), label就是 病名的vector X
→ cywhale: X[match(data$type, X)] 就會套到正確的病名