如何修改R代码实现x轴按M1-M18排序并补全无发布月份0值

要实现需求，需要对原代码做两处核心修改，确保所有M1-M18月份都出现在x轴，且无发布记录的月份显示0值：

核心修改点 #

• 合并全量月份数据：原统计结果仅包含有数据的月份，需通过left_join将预定义的all_months与统计结果合并，把无数据月份的计数填充为0
• 统一因子层级设置：无需重复定义月份顺序，直接基于all_months设置因子层级，保证x轴严格按照M1到M18的顺序排列

修改后的完整代码 #

# Load the required libraries
library(ggplot2)
library(dplyr)

# Sample data
data <- data.frame(
    Month = c("M3", "M3", "M9", "M11", "M11", "M11", "M11", "M10", "M11", "M11", "M15", "M16", "M16", "M16", "M17", "M18"),
    VenueType = c("Conference", "Journal", "Conference", "Conference", "Conference", "Conference", "Conference", "Conference", "Conference", "Conference", "Conference", "Conference", "Conference", "Conference", "Conference", "Journal")
)

# Generate a vector of all possible months from M1 to M18
all_months <- data.frame(Month = sprintf("M%d", 1:18))

# Count the frequency of "Conference" for each month, then merge with all months to fill 0s
venue_frequency <- data %>%
    filter(VenueType == "Conference") %>%
    group_by(Month) %>%
    tally(name = "n") %>%
    # 合并全量月份，无数据的月份会生成NA
    left_join(all_months, by = "Month") %>%
    # 将NA替换为0
    mutate(n = ifelse(is.na(n), 0, n)) %>%
    # 设置因子层级，确保x轴顺序正确
    mutate(Month = factor(Month, levels = all_months$Month)) %>%
    # 按月份顺序排序
    arrange(Month)

# Create a bar plot using ggplot2 with ordered months and 0 values
ggplot(venue_frequency, aes(x = Month, y = n)) +
    geom_bar(stat = "identity", fill = "blue") +
    labs(x = "Month", y = "Venue Frequency", title = "Conference Venue Frequency by Month") +
    theme_minimal()

修改说明 #

1. 移除冗余函数：原代码中get_month_numeric函数未实际使用，直接删除以简化代码
2. 补全缺失月份：通过left_join将统计结果与全量月份表合并，确保M1到M18全部被包含
3. 填充0值：用ifelse把合并后产生的NA替换为0，实现无记录月份显示0的需求
4. 统一顺序控制：直接基于all_months$Month设置因子层级，避免重复定义顺序，保证x轴严格按要求排列

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