绘制时间序列时如何忽略非目标月份？含降水序列优化及轴反转需求

我有一个包含逐日期降水数据的DataFrame，数据样例如下：

head(df,n=5)
       Date        RCM
1 2018-01-01   31.38134
2 2018-01-02  273.23595
3 2018-01-03 1021.34547
4 2018-01-04  612.70087
5 2018-01-05   37.61821

我想要绘制冬季的时间序列图，已经通过提取2018年1-2月和12月的数据并用ggplot实现，代码如下：

WIN1<-df[df$Date >= "2018-12-01" & df$Date <= "2018-12-31", ]    
WIN2<-df[df$Date >= "2018-01-01" & df$Date <= "2018-02-28", ]    
WIN<-rbind(WIN2,WIN1)
dfmelt<-melt(WIN,id.vars="Date")
ggplot(dfmelt,aes(x=Date,y=value,
                  col=variable))+
  labs(title='WINTER')+
  geom_line()

现在遇到两个问题：

• 生成的图表在缺失月份（3-11月）处出现平线，如何消除该部分？
• 是否可以将x轴反转，按12月至2月的顺序展示？

1. 消除缺失月份的平线 #

平线出现的核心原因是：合并的1-2月和12月数据，在ggplot中会按真实日期的时间逻辑（1月→2月→12月）连线，导致2月底和12月初之间被强制连出一条线。解决方法是让线条仅在同一个月份内连接，不要跨月：

# 给融化后的数据添加月份列
dfmelt <- melt(WIN, id.vars = "Date")
dfmelt$month <- format(dfmelt$Date, "%m")

# 绘图时按「变量+月份」分组，避免跨月连线
ggplot(dfmelt,aes(x=Date,y=value, col=variable, group=interaction(variable, month)))+
  labs(title='WINTER')+
  geom_line()

这样2月和12月的线条会各自独立，不会出现跨月的平线。

2. 反转x轴按12月→2月顺序展示 #

要让x轴按12月→1月→2月的顺序排列，需要将日期转换成自定义顺序的因子，明确告诉ggplot显示顺序：

# 定义自定义日期顺序：先12月，再1-2月
custom_date_order <- c(WIN1$Date, WIN2$Date)
WIN$custom_date <- factor(WIN$Date, levels = custom_date_order)

# 融化数据时用自定义日期作为id变量
dfmelt <- melt(WIN, id.vars = "custom_date")

ggplot(dfmelt,aes(x=custom_date,y=value, col=variable, group=variable))+
  labs(title='WINTER', x='Date')+
  geom_line()+
  # 旋转x轴标签避免重叠
  theme(axis.text.x = element_text(angle=45, hjust=1))

这里levels = c(WIN1$Date, WIN2$Date)直接指定x轴先显示12月的所有日期，再显示1-2月的日期，实现你需要的顺序。

同时解决两个问题的整合代码 #

# 定义自定义日期顺序
custom_date_order <- c(WIN1$Date, WIN2$Date)
WIN$custom_date <- factor(WIN$Date, levels = custom_date_order)
# 添加月份列用于分组
WIN$month <- format(WIN$Date, "%m")

# 融化数据
dfmelt <- melt(WIN, id.vars = c("custom_date", "month"))

# 绘图
ggplot(dfmelt,aes(x=custom_date,y=value, col=variable, group=interaction(variable, month)))+
  labs(title='WINTER', x='Date')+
  geom_line()+
  theme(axis.text.x = element_text(angle=45, hjust=1))

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