如何解决如何在R中绘制2个时间序列线及其趋势线
我有下面给出的代码。我在csv文件的3列中有数据,列名称分别为Year,GAC和A1C。 我使用该代码,它仅绘制了GAC的时间序列,还绘制了其趋势线,如图
所示如何在代码中的同一张图上绘制GAC和A1C的时间序列线及其趋势线。请帮忙
h=ggplot(Data,aes(Year,GAC,group=1,xaxt='n',las=2))+
geom_line()+
geom_smooth(method=lm,se=FALSE,size= 1.5)
解决方法
ggplot2
确实想要“长”格式的数据,所以我建议您将数据的形状从“宽”(3列)更改为“长”(2列)。有多种方法可以做到,所以关于“从宽变长”的问题很多,但这是一个。
缺少数据,这是随机的。
set.seed(42)
dat <- data.frame(Year = 1900 + 1:50,GAC = cumsum(runif(50)),Unk = cumsum(rnorm(50)))
head(dat)
# Year GAC Unk
# 1 1901 0.914806 -0.4304691
# 2 1902 1.851881 -0.6877385
# 3 1903 2.138021 -2.4509016
# 4 1904 2.968469 -1.9908042
# 5 1905 3.610214 -2.6307991
# 6 1906 4.129310 -2.1753490
# library(tidyr)
head(tidyr::pivot_longer(dat,GAC:Unk))
# # A tibble: 6 x 3
# Year name value
# <dbl> <chr> <dbl>
# 1 1901 GAC 0.915
# 2 1901 Unk -0.430
# 3 1902 GAC 1.85
# 4 1902 Unk -0.688
# 5 1903 GAC 2.14
# 6 1903 Unk -2.45
还有一个情节:
library(ggplot2)
ggplot(tidyr::pivot_longer(dat,GAC:Unk),aes(Year,value,color = name)) +
geom_line() +
geom_smooth(method = lm,se = FALSE,size = 1.5)
当然,有一些方法可以不重塑数据。我不赞成这样做有两个原因:
- 它的缩放比例不好,要求您为要绘制的每个线系列添加一个新的
geom_line
(如果需要,还可以添加geom_smooth
);和 - 如果您想使用图例,那么允许
ggplot
为您处理该图例通常会容易得多。仅当ggplot
处理组/行时才能做到这一点。
ggplot(mapping = aes(x = Year)) +
geom_line(aes(y = GAC),color = "red",data = dat) +
geom_smooth(aes(Year,GAC),data = dat,method = lm,size = 1.5) +
geom_line(aes(y = Unk),color = "blue",Unk),size = 1.5)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。