绘制12个月期间的两个子变量-R

# 导入必要的库
library(ggplot2)

# 创建示例数据
month <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
variable1 <- c(10, 15, 12, 8, 20, 18, 16, 14, 11, 9, 13, 17)
variable2 <- c(5, 8, 6, 4, 10, 9, 8, 7, 5, 4, 6, 8)

# 创建数据框
data <- data.frame(month, variable1, variable2)

# 绘制关系图
ggplot(data, aes(x = month)) +
  geom_line(aes(y = variable1, color = "Variable 1")) +
  geom_line(aes(y = variable2, color = "Variable 2")) +
  labs(title = "12个月期间的两个子变量关系图", x = "月份", y = "变量值") +
  scale_color_manual(values = c("Variable 1" = "blue", "Variable 2" = "red")) +
  theme_minimal()