R语言多条时间序列图|极客教程

R语言多条时间序列图

在数据分析和可视化领域，时间序列图是一种常见的图形类型，用于展示数据随时间变化的趋势和模式。在R语言中，我们可以使用一些包来绘制多条时间序列图，以比较不同变量之间的关系和趋势。

准备数据

首先，我们需要准备一些时间序列数据进行示例。假设我们有三组时间序列数据，分别表示销售额（Sales）、利润（Profit）和成本（Cost）随时间的变化。下面是我们的数据示例：

# 创建时间序列数据
set.seed(123)
dates <- seq(as.Date("2021-01-01"), by = "month", length.out = 12)
sales <- rnorm(12, mean = 10000, sd = 2000)
profit <- rnorm(12, mean = 3000, sd = 1000)
cost <- rnorm(12, mean = 7000, sd = 1500)

# 创建数据框
df <- data.frame(dates, sales, profit, cost)

绘制多条时间序列图

接下来，我们使用ggplot2包来绘制多条时间序列图。首先，我们需要将数据进行长格式转换，然后使用ggplot函数来创建图形。下面是示例代码：

# 加载所需包
library(ggplot2)
library(tidyr)

# 将数据转为长格式
df_long <- gather(df, key = "variable", value = "value", -dates)

# 绘制时间序列图
ggplot(df_long, aes(x = dates, y = value, color = variable)) +
  geom_line() +
  labs(title = "Multiple Time Series Plot",
       x = "Date", y = "Value") +
  theme_minimal()

上面的代码中，我们首先使用gather函数将数据转换为长格式，然后利用ggplot函数创建一个折线图。aes函数用来指定x和y轴的变量，以及颜色变量。geom_line函数用于绘制折线，labs函数用于添加标题和轴标签，theme_minimal函数用于设置图形主题。

运行以上代码，我们可以得到一张包含销售额、利润和成本三组时间序列数据的多条时间序列图。

时间序列图加入标记

有时候，为了使时间序列图更具可读性和易于理解，我们可以在图中加入一些标记，如点、线和文本。下面是示例代码：

# 绘制时间序列图并加入标记
ggplot(df_long, aes(x = dates, y = value, color = variable)) +
  geom_line() +
  geom_point() +
  geom_text(data = subset(df_long, dates == max(dates)), 
            aes(label = variable, x = dates, y = value),
            hjust = -0.5, vjust = 0.5, size = 4) +
  labs(title = "Multiple Time Series Plot with Annotations",
       x = "Date", y = "Value") +
  theme_minimal()

以上代码中，我们在折线图上加上了点和文本标记。geom_point函数用于绘制点，geom_text函数用于添加文本标记。我们使用subset函数选择每组时间序列数据的最后一个点，并将标签设置为变量名。hjust和vjust参数用于调整文本的位置，size参数用于设置文本大小。

运行以上代码，我们可以得到一张带有标记的多条时间序列图，使数据更加清晰和易于理解。