如何在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)

当然，有一些方法可以不重塑数据。我不赞成这样做有两个原因：

1. 它的缩放比例不好，要求您为要绘制的每个线系列添加一个新的geom_line（如果需要，还可以添加geom_smooth）；和
2. 如果您想使用图例，那么允许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)