R语言scale_x_date因缺失数据生成无效周标签的解决咨询

方法1：手动指定有效日期刻度 #

提取数据中实际存在的日期作为x轴刻度，避免生成无数据的标签：

# 获取数据中存在的所有有效日期
valid_dates <- unique(your_data$date)

# 绘图时指定刻度为有效日期，自定义标签格式为年-周
ggplot(your_data, aes(x = date, y = qty, color = service_type)) +
  geom_line() +
  scale_x_date(
    breaks = valid_dates,
    labels = function(x) strftime(x, "%Y-CW%V")
  ) +
  labs(x = "年-周", y = "数量")

方法2：直接使用year_week作为x轴（推荐） #

利用原始的year_week字段转成有序因子，从根源避免日期刻度的问题：

# 按日期顺序对year_week排序并转为因子
your_data <- your_data %>%
  mutate(year_week = factor(year_week, levels = unique(year_week[order(date)])))

# 以year_week为x轴绘图，注意指定group保证连线正确
ggplot(your_data, aes(x = year_week, y = qty, color = service_type, group = service_type)) +
  geom_line() +
  labs(x = "年-周", y = "数量")

方法3：限制x轴日期范围 #

如果坚持使用date类型x轴，通过limits参数锁定数据的实际区间，减少无效刻度：

ggplot(your_data, aes(x = date, y = qty, color = service_type)) +
  geom_line() +
  scale_x_date(
    date_breaks = "1 week",
    labels = function(x) strftime(x, "%Y-CW%V"),
    limits = c(min(your_data$date), max(your_data$date))
  ) +
  labs(x = "年-周", y = "数量")

注：此方法仅当数据间隔规律时有效，若存在非连续周仍可能出现空标签。

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