scale_x_date失效报错：仅支持Date类对象，求解决方案

问题原因 #

你的Date列是zoo包的yearmon类型，而scale_x_date仅适配标准Date类对象，两者类型不匹配导致报错。移除该语句后绘图正常，说明ggplot默认可识别yearmon类型，但需用对应方法设置坐标轴范围。

解决方案 #

方案1：直接使用yearmon专属坐标轴缩放函数 #

加载zoo包后，用scale_x_yearmon替代scale_x_date，直接以yearmon类型值设置范围：

library(zoo)
library(ggplot2)

ggplot(data = df_tmp, aes(x = Date, y = value )) +
  geom_line(aes(color = Strategy))  +
  labs(x = "Date", y = "Cumulative Log Return vs. S&P 500") +
  scale_color_manual(labels = legend_labels, values = line_colors) +
  scale_linetype_manual(values = line_types) +
  # 用yearmon类型设置x轴范围
  scale_x_yearmon(limits = c(df_tmp$Date[1], df_tmp$Date[nrow(df_tmp)])) +
  theme(axis.title.x = element_text(size = 14, face = "bold"),
        axis.title.y = element_text(size = 14, face = "bold"), 
        legend.title = element_text(size = 14, face = "bold"))

方案2：将Date列整体转换为Date类型 #

若偏好使用scale_x_date，需先把整个Date列转为标准Date类，而非仅在limits参数中转换单个值：

# 批量转换Date列类型
df_tmp$Date <- as.Date(df_tmp$Date)

ggplot(data = df_tmp, aes(x = Date, y = value )) +
  geom_line(aes(color = Strategy))  +
  labs(x = "Date", y = "Cumulative Log Return vs. S&P 500") +
  scale_color_manual(labels = legend_labels, values = line_colors) +
  scale_linetype_manual(values = line_types) +
  scale_x_date(limits = c(df_tmp$Date[1], df_tmp$Date[nrow(df_tmp)])) +
  theme(axis.title.x = element_text(size = 14, face = "bold"),
        axis.title.y = element_text(size = 14, face = "bold"), 
        legend.title = element_text(size = 14, face = "bold"))

补充说明 #

• 方案1更贴合月度数据特性，坐标轴会自动显示Jul 1986这类格式
• 方案2转换为Date后，若需保留月度显示格式，可在scale_x_date中添加参数：

  scale_x_date(limits = c(df_tmp$Date[1], df_tmp$Date[nrow(df_tmp)]), date_labels = "%b %Y")
  

内容的提问来源于stack exchange，提问作者Thomas Philips