设置scale_x_discrete的limits后ggplot2的geom_point和geom_line消失问题

问题根因 #

你提供的数据集里month字段除September外，其他月份字符串末尾都带有多余的空格（例如"May "、"June "），而你自定义的month_order向量中的月份名称无空格，二者字符串无法匹配。调用scale_x_discrete(limits = month_order)时，所有无法匹配的月份对应数据会被判定为缺失值删除，最终仅剩余无空格的September对应的4条数据，因此只能显示4个点，且每个分组仅有1个观测无法绘制折线，触发对应警告。
你之前其他场景使用相同month_order未出问题，是因为之前的数据集month字段无多余空格，可与month_order正常匹配。

解决方法 #

先清洗month字段的空白字符，再将其转换为指定顺序的有序因子即可，无需额外配置scale_x_discrete：

步骤1：清洗并转换月份字段 #

# 去除month字段前后所有空白字符
df$month <- trimws(df$month)
# 自定义从5月开始的月份顺序
month_order <- c("May", "June", "July", "August", "September", "October", "November", "December", "January", "February", "March", "April")
# 将month转换为指定顺序的有序因子，直接固定X轴排序
df$month <- factor(df$month, levels = month_order, ordered = TRUE)

步骤2：正常绘图 #

library(ggplot2)
ggplot(df, aes(x = month, y = mean_ride_count, group = mean_ride_type)) +
  geom_line(aes(color = mean_ride_type), size = 1) +
  geom_point()

如果需要保留scale_x_discrete配置，仅需先执行上述trimws清洗month字段的操作即可，原有绘图代码也可正常运行。

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