基于cross_rpct生成的R表格绘制面积图技术求助

1. 正确转换为长格式 #

首先确认你的宽格式数据结构——cross_rpct生成的表格通常是年龄组作为行，各类食物/液体的加权百分比作为列。假设你的数据框名为weighted_data，示例结构如下：

# 示例数据集片段
weighted_data <- data.frame(
  age_group = c("6-8月", "9-11月", "12-14月", "15-17月"),
  母乳 = c(85, 60, 35, 20),
  辅食 = c(40, 75, 90, 95),
  饮用水 = c(25, 50, 70, 80)
)

使用tidyr::pivot_longer将宽格式转为ggplot2需要的长格式，注意保留age_group作为分组列，将其余指标列转为“摄入类型”和“百分比”两列：

library(tidyr)
long_format <- weighted_data %>%
  pivot_longer(
    cols = -age_group,  # 排除年龄组列，转换所有其他列
    names_to = "摄入类型",
    values_to = "百分比"
  )

如果你的数据中有额外的非指标列（比如注释、行号），需要在cols参数中明确指定要转换的列（例如cols = c(母乳, 辅食, 饮用水)）。

2. 用ggplot2绘制面积图 #

绘制时需要注意年龄组的顺序（避免分类变量乱序），以及面积图的堆叠/重叠设置：

library(ggplot2)

# 强制指定年龄组的显示顺序，避免绘图时顺序混乱
long_format$age_group <- factor(
  long_format$age_group,
  levels = c("6-8月", "9-11月", "12-14月", "15-17月")  # 替换为你实际的年龄组顺序
)

# 绘制堆叠面积图（若要重叠面积图，将position改为"identity"）
ggplot(long_format, aes(x = age_group, y = 百分比, fill = `摄入类型`, group = `摄入类型`)) +
  geom_area(position = "stack", alpha = 0.7) +
  scale_fill_brewer(palette = "Set2") +  # 可选：设置配色方案
  labs(
    x = "年龄组",
    y = "百分比(%)",
    title = "母乳喂养儿童食物和液体摄入占比",
    fill = "摄入类型"
  ) +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))  # 可选：旋转X轴标签避免重叠

常见问题排查 #

• 转长格式失败：检查数据框中是否存在非数值型的指标列，或未正确排除无关列；可使用str(weighted_data)查看数据结构。
• 面积图显示异常：确保group参数绑定了摄入类型，且年龄组已转为因子并设置正确顺序。
• 百分比数值异常：确认cross_rpct的加权参数设置正确，生成的百分比为0-100区间的有效值。

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