作者paranoia5201 (社会黑暗、行路难)
看板R_Language
标题[问题] 改趋势图中的legand
时间Thu Jan 11 10:20:43 2018
[问题类型]:
程式谘询(我想用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://webptt.com/cn.aspx?n=bbs/R_Language/M.1515637245.A.C9F.html
※ 编辑: paranoia5201 (210.241.78.121), 01/11/2018 10:26:19
1F:→ F0011010101: +scale_color_discrete(labels = c("病名","病名")) 01/11 11:34
2F:推 cywhale: 如果线和label很多可考虑用ggrepel套件 geom_text_repel 01/11 16:04
3F:→ cywhale: 标的y位置可以抓max(趋势值), label就是 病名的vector X 01/11 16:10
4F:→ cywhale: X[match(data$type, X)] 就会套到正确的病名 01/11 16:11