ggplot绘制年-日维度平均情感趋势图报错解决方案

需求为跨年份按年内同日维度可视化消费者情感数据，实现类似2011年12月18日与2012年12月18日情感水平的对比效果，目前已完成月-年维度的可视化，相关代码如下，运行可生成正常的月度趋势图：

#Creating a month-year variable
valences_by_post<- valences_by_post %>%  
  mutate(month_year = zoo::as.yearmon(date))

#2011 & 2012
valence_11_12<-valences_by_post %>%
  filter(year == 2011 | year ==2012)%>%
  group_by(month_year) %>%
  summarize(mean_valence= mean(valence), n=n())

ggplot(valence_11_12, aes(x =factor(month_year), y = mean_valence, group=1)) +
  geom_point() +
  geom_line()+
  geom_smooth()+
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5)) 

尝试实现日度可视化时，先拼接生成了字符型的year_day字段，聚合得到日度数据集：

valences_by_post<- valences_by_post %>% 
  mutate(year_day = paste(lubridate::year(date), lubridate::yday(date), sep = "-"))

head(valences_by_post$year_day)
valence_day<-valences_by_post %>%
  filter(year == 2011| year == 2012)%>%
  group_by(year_day) %>%
  summarize(mean_valence= mean(valence), n=n())

后续绘图时报错：Error: Discrete value supplied to continuous scale，已定位到原因是year_day为字符型，同时需要找到和zoo::as.yearmon(date)功能对等的日度日期处理函数。
当前报错的绘图代码：

ggplot(valence_day, aes(x =year_day, y = mean_valence)) +
  geom_point() +
  geom_line()+
  scale_x_continuous(breaks=seq(1,365,1)) +
  geom_smooth()  

问题根因 #

报错来自两个逻辑问题：

• 生成的year_day是年-年内日序格式的字符串，属于离散分类值，却调用了仅支持连续数值的scale_x_continuous()，类型不匹配直接触发报错
• 拼接年和日序的处理方式，会把2011年的第180天和2012年的第180天识别为两个完全独立的x轴分类，无法实现跨年度同日对齐对比的核心需求

日度日期处理说明 #

zoo::as.yearmon()是专门为月度粒度设计的日期类，日度粒度不需要额外找同类函数，R内置的Date类型本身就是日度精度的，搭配lubridate::yday()提取年内日序作为公共x轴，年份单独作为分组字段，即可实现跨年度同日对比。

可复现代码 #

第一步：修正数据聚合逻辑 #

不要拼接年和日序为字符串，单独保留数值型的年内日序、因子型的年份两个字段，按两个维度分组聚合：

library(tidyverse)
library(lubridate)

valence_day <- valences_by_post %>%
  filter(year %in% c(2011, 2012)) %>%
  mutate(
    day_of_year = yday(date), # 提取1-366的数值型年内日序，作为公共x轴
    year = as.factor(year) # 年份转为因子，用于分组/颜色映射
  ) %>%
  group_by(year, day_of_year) %>%
  summarize(mean_valence = mean(valence), n = n(), .groups = "drop")

第二步：绘图实现 #

x轴映射数值型的day_of_year，按年份分组绘制几何对象，即可自然对齐两年的同日数据，连续轴也不会再触发类型报错：

# 基础版本：x轴显示年内日序
ggplot(valence_day, aes(x = day_of_year, y = mean_valence, color = year, group = year)) +
  geom_point(alpha = 0.6) +
  geom_line(alpha = 0.8) +
  geom_smooth() +
  # 间隔31天设一个刻度，避免x轴标签过密
  scale_x_continuous(breaks = seq(1, 366, 31), expand = c(0, 0)) +
  labs(x = "Day of Year", y = "Mean Valence", color = "Year") +
  theme_bw()

如果需要x轴显示更易读的月-日格式，不需要显示纯数字日序，可以通过假日期转换刻度标签：

# 优化版本：x轴显示月-日标签
ggplot(valence_day, aes(x = day_of_year, y = mean_valence, color = year, group = year)) +
  geom_point(alpha = 0.6) +
  geom_line(alpha = 0.8) +
  geom_smooth() +
  scale_x_continuous(
    breaks = seq(1, 366, 31),
    labels = ~ format(as.Date(.x, origin = "2011-01-01"), "%m-%d"),
    expand = c(0, 0)
  ) +
  labs(x = "Date (Month-Day)", y = "Mean Valence", color = "Year") +
  theme_bw()

注：上述标签转换以2011年（平年）为基准，遇到闰年第366天（2月29日）时可单独调整标签规则。

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