使用ggplot2包中的双Y轴功能在R语言中可视化时间序列数据，并在时序数据末尾添加数值标签是一种有效的数据展示方式

使用ggplot2包中的双Y轴功能在R语言中可视化时间序列数据，并在时序数据末尾添加数值标签是一种有效的数据展示方式。在本文中，我们将详细介绍如何使用ggplot2包来实现这一目标。

首先，我们需要准备一些示例数据来进行可视化。假设我们有一个包含两个变量的时间序列数据集，一个是时间变量，另一个是对应的数值变量。以下是一个简单的示例数据集：

library(ggplot2)
library(scales)

# 创建示例数据集
data <- data.frame(
  时间 = seq(as.Date("2023-01-01"), as.Date("2023-08-01"), by = "month"),
  数值1 = c(50, 70, 60, 80, 75, 90, 85, 100),
  数值2 = c(1000, 1200, 1100, 1300, 1250, 1400, 1350, 1500)
)

现在，我们可以使用ggplot2包来创建一个基本的时间序列图，其中包含两个数值变量。以下是绘制时间序列图的代码：

# 创建基本的时间序列图
p <- ggplot(data, aes(x = 时间)) +
  geom_line(aes(y = 数值1, color = "数值1")) &