在R中实现X轴嵌套子类别的数据可视化求助

我正在R中学习处理数据集，想要实现这样的可视化：展示某类物品的多个型号（ModelA、ModelB、ModelC），每个型号对应相同的子类别数据（Spec1、Spec2、Spec3、Spec4、Spec5），并在每个条形上方显示对应数据值。

我已将原数据集从“每行一个型号+所有子类别”透视转换为“每行一个子类别数据，型号重复出现”的格式，但不确定这种数据整理方式是否正确。参考教程尝试了两段ggplot2的geom_col代码，但均未成功实现目标，作为R新手陷入困境，希望得到快速有效的实现建议及数据整理指导。

尝试的代码如下：

barchart <- ggplot()
barchart <- barchart +
  geom_col(
    ata = dataset,
    aes(x = dataCategories, y = dataNumbers, ),
    position = "dodge"
  )
barchart

以及：

barchart <- ggplot()
barchart <- barchart +
  geom_col(
    main.cat = c("productName"),
    second.cat = c("subcat1", "subcat2", "subcat3", "supcat4", "subcat5"),
    value = c("dataNumbers")
  )

一、数据整理正确性确认 #

你做的长格式转换是正确的，ggplot2依赖这种“每行一个观测值”的长格式数据来实现分组可视化。标准的合规结构应包含三列：

• 型号列：存储ModelA/ModelB/ModelC这类型号标识
• 子类别列：存储Spec1到Spec5这类子类别名称
• 数值列：存储对应型号子类别的数据值

示例数据结构参考：

只要你的数据和这个结构匹配，就可以直接用于绘图。

二、可视化代码实现 #

1. 完整可运行代码 #

修正你代码中的语法错误（比如ata拼写错误、第二个代码参数不符合ggplot2规则），以下是实现目标的完整代码：

# 先加载ggplot2包
library(ggplot2)

# 假设你的数据集列名为：model（型号）、subcategory（子类别）、value（数值）
# 请根据实际列名替换
barchart <- ggplot(data = dataset, aes(x = subcategory, y = value, fill = model)) +
  # 绘制分组条形图，调整条形宽度和分组间距
  geom_col(position = position_dodge(width = 0.8), width = 0.7) +
  # 在条形上方添加数值标签，和条形对齐
  geom_text(aes(label = value),
            position = position_dodge(width = 0.8),
            vjust = -0.5, size = 3.5) +
  # 添加标题和轴标签
  labs(title = "各型号产品子类别数据对比",
       x = "子类别",
       y = "数据值",
       fill = "产品型号") +
  # 使用简洁的主题样式
  theme_minimal()

# 输出图表
barchart

2. 关键参数说明 #

• fill = model：指定按型号分组，不同型号的条形用不同颜色区分
• position_dodge(width = 0.8)：实现分组条形并排显示，width参数控制分组间的间距
• geom_text()：负责在条形上方添加数值标签，vjust = -0.5让标签和条形保持合适距离，避免重叠
• 务必将代码中的列名（model/subcategory/value）替换为你数据集的实际列名

3. 常见问题排查 #

• 条形未分组并排：检查是否在aes()中指定了fill或group参数
• 标签位置偏移：调整position_dodge()的width值或vjust参数
• 无数据显示：确认数据集列名和代码中的拼写完全一致

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