使用ggplot绘制带图例的时间序列图问题求助

看起来你遇到了两个头疼的问题：明明写了两个geom_line却只显示一个序列，还多出了一个不必要的图例。我来帮你梳理下问题根源，再给出针对性的修正方案：

问题出在哪？ #

1. 你在第二个geom_line里把linetype="dashed"直接写在了映射逻辑外（相当于硬赋值，不是美学映射），这导致线型无法和图例关联，颜色、线型各自生成了独立的图例。
2. 代码里的guides(fill = guide_legend(title = "Title"))完全无效——你根本没用到fill这个美学属性，属于多余代码。
3. x轴的limits只用到了t，但如果这个t只来自其中一个数据框，另一个数据框的时间范围可能超出限制，导致序列不显示。

两种解决方法任你选 #

方法一：整理成整洁数据格式（推荐，贴合ggplot设计逻辑）

ggplot最擅长处理整洁数据（每一行对应一个观测值），我们可以把两个数据框合并并转成长格式，只用一个geom_line就能搞定：

# 先合并两个数据框（假设两个数据的t列是匹配的）
combined_df <- merge(df_COVIX_ts[, c("t", "Actual")], 
                     df_COVIX_prediction_sGARCH[, c("t", "Forecast")], 
                     by = "t")

# 转成长格式，需要加载tidyr包
library(tidyr)
combined_df_long <- pivot_longer(combined_df, 
                                 cols = c(Actual, Forecast), 
                                 names_to = "Series", 
                                 values_to = "Value")

# 绘图
ggplot(combined_df_long, aes(x = t, y = Value, color = Series, linetype = Series)) +
  geom_line() +
  scale_x_date(date_labels = "%Y-%m-%d", 
               limits = c(min(combined_df_long$t), max(combined_df_long$t))) +
  ggtitle("VIX - Actual Vs. Prediction (GARCH)") +
  theme(plot.title = element_text(hjust = 0.5, size = 9)) +
  labs(x = "", y = "VIX") +
  scale_linetype_manual(values = c("Actual" = "solid", "Forecast" = "dashed")) +
  scale_color_manual(name = "", values = c("Actual" = "black", "Forecast" = "black"))

方法二：直接修改原有代码，修正美学映射

如果你不想调整数据结构，也可以直接修改原代码，把线型也纳入映射逻辑，让颜色和线型共享同一个图例：

legs <- c("Actual" = "solid", "Forecast" = "dashed")

ggplot() +
  # 把linetype加入aes映射，对应"Actual"类别
  geom_line(data = df_COVIX_ts, aes(x = t, y = Actual, color = "Actual", linetype = "Actual")) +
  # 同理把linetype加入第二个geom_line的映射
  geom_line(data = df_COVIX_prediction_sGARCH, aes(x = t, y = Forecast, color = "Forecast", linetype = "Forecast")) +
  # 修正x轴范围，取两个数据框t的最值
  scale_x_date(date_labels = "%Y-%m-%d", 
               limits = c(min(c(df_COVIX_ts$t, df_COVIX_prediction_sGARCH$t)), 
                          max(c(df_COVIX_ts$t, df_COVIX_prediction_sGARCH$t)))) +
  ggtitle("VIX - Actual Vs. Prediction (GARCH)") +
  theme(plot.title = element_text(hjust = 0.5, size = 9)) +
  labs(x = "", y = "VIX") +
  # 统一设置图例名称为空，合并颜色和线型图例
  scale_linetype_manual(name = "", values = legs) +
  scale_color_manual(name = "", values = c("Actual" = "black", "Forecast" ="black"))

修改后，两个序列都会正常显示，并且只有一个包含线型说明的图例——实际值是黑色实线，预测值是黑色虚线，完全符合你的需求。

备注：内容来源于stack exchange，提问作者user22855085