基于频数表使用ggplot2绘制年龄分组条形图的实操问题

核心问题根因 #

1. 数值与原频数表不匹配的原因 #

• 原始数据里所有年龄列的存储类型是带前后空格的字符文本，并非数值类型。经过melt()整形后，value字段依然保持字符串/因子格式，ggplot不会将这类内容识别为连续数值绘制，最终生成的条形长度完全和原频数表错位。
• 仅靠melt()无法自动完成格式转换，必须手动做文本清洗+类型转换。

2. 年龄组顺序错乱的原因 #

• melt()生成的年龄分组字段是普通字符向量，ggplot绘制时会自动按字符字典序或当前向量的默认顺序排列分组，不会自动按年龄从小到大排序。
• 要实现固定顺序，必须将分组字段转换为指定水平的有序因子，强制约束绘图时的分组排列规则，避免被数值大小或字符排序干扰。

可直接运行的修正代码 #

# 加载依赖包
library(reshape2)
library(ggplot2)

# 步骤1：按要求提取需要的列（排除不愿透露年龄的分组）
selected_cols <- c(
  "ï..Topic", "X18.24", "X25.34", "X35.54", 
  "X55.64", "X65.or.older"
)
ages_long <- melt(age.table[, selected_cols], id.vars = "ï..Topic")

# 步骤2：修复数值格式问题——清除文本前后空格，转换为数值型
ages_long$value <- as.numeric(trimws(ages_long$value))

# 步骤3：固定年龄组顺序，按低龄到高龄排列
ages_long$age_group <- factor(
  ages_long$variable,
  levels = c("X18.24", "X25.34", "X35.54", "X55.64", "X65.or.older"),
  labels = c("18-24岁", "25-34岁", "35-54岁", "55-64岁", "65岁及以上")
)

# 步骤4：绘制分组条形图
ggplot(ages_long, aes(x = ï..Topic, y = value, fill = age_group)) +
  geom_bar(stat = "identity", position = "dodge") +
  coord_flip() +
  scale_fill_brewer(palette = "Paired") +
  labs(
    x = "活动主题",
    y = "选择占比（%）",
    fill = "年龄分组"
  )

效果校验说明 #

• 转换后的value字段会完全匹配原频数表的数值，所有条形长度和原表一一对应
• 每个主题下的条形会严格按照18-24岁→25-34岁→35-54岁→55-64岁→65岁及以上的顺序排列，不会因为某组数值高低自动打乱顺序
• 如果需要调整X轴上活动主题的排列顺序，同样可以将ï..Topic字段转换为自定义水平的有序因子，实现主题的固定排序

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