如何解决ggplot2中facet_wrap月份按字母排序及设置因子后NA问题

问题核心原因 #

• 操作顺序错误：你的代码先执行了ggplot绘图，之后才对months列做因子转换，导致绘图用的是未处理的原始数据，后续的因子修改不会影响已生成的图表。
• 值格式不匹配：month.name是完整月份名（如"January"），如果数据中months列是缩写（如"Jan"）或大小写不一致（如"january"），直接用month.name作为因子水平会匹配失败，产生NA值。

解决方案步骤 #

1. 先确认数据中月份的实际格式 #

运行以下代码查看months列的唯一值，明确格式：

fina_result <- read_csv("my_final_project.csv")
unique(fina_result$months)

2. 按实际格式调整因子设置并修正操作顺序 #

根据检查结果选择对应方式，必须先处理数据再绘图：

场景1：数据中是完整月份名（如"January"）

fina_result <- read_csv("my_final_project.csv")
# 先转换因子并设置时间顺序
fina_result$months <- factor(fina_result$months, levels = month.name)
fina_result$weekday <- ordered(fina_result$weekday, levels = c("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"))

# 再执行绘图
fina_result %>% 
  ggplot(aes(x = weekday, y = `count of ride_id`, fill = user_type)) +
  geom_col(position = "dodge") +
  facet_wrap(~months) + 
  theme(axis.text.x = element_text(angle = 45))

场景2：数据中是月份缩写（如"Jan"）

改用month.abb作为因子水平：

fina_result <- read_csv("my_final_project.csv")
# 用月份缩写设置因子顺序
fina_result$months <- factor(fina_result$months, levels = month.abb)
fina_result$weekday <- ordered(fina_result$weekday, levels = c("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"))

# 绘图
fina_result %>% 
  ggplot(aes(x = weekday, y = `count of ride_id`, fill = user_type)) +
  geom_col(position = "dodge") +
  facet_wrap(~months) + 
  theme(axis.text.x = element_text(angle = 45))

场景3：月份名大小写不一致（如"january"）

先统一格式再转因子：

fina_result <- read_csv("my_final_project.csv")
# 转换为首字母大写的标准格式
fina_result$months <- stringr::str_to_title(fina_result$months)
# 设置因子水平
fina_result$months <- factor(fina_result$months, levels = month.name)
fina_result$weekday <- ordered(fina_result$weekday, levels = c("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"))

# 绘图
fina_result %>% 
  ggplot(aes(x = weekday, y = `count of ride_id`, fill = user_type)) +
  geom_col(position = "dodge") +
  facet_wrap(~months) + 
  theme(axis.text.x = element_text(angle = 45))

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