ggplot2 geom_text添加geom_bar柱顶标签报错如何修复

报错Aesthetics must be either length 1 or the same as the data (11): label的触发逻辑非常明确：geom_text图层中label美学映射传入的变量长度，和该图层实际调用的数据集行数不一致。
你当前贴出的代码是残缺状态，geom_bar未传入任何参数，大概率是映射写法不规范：要么只在geom_bar层指定了数据集和x/y映射，没有给geom_text传对应数据集；要么列名带特殊字符/空格没有正确转义；要么geom_bar用的统计模式和geom_text不匹配。

• 补全geom_bar参数：如果需要直接用数据框的数值列作为柱高，必须显式加stat = "identity"，否则geom_bar默认会对x轴分类做计数统计，柱高是计数结果而非你原始列的数值。
• 统一映射规则：要么在最外层ggplot()里全局指定数据集和x/y基础映射，后续所有图层默认继承全局设置，不用重复传参；如果不写全局映射，每个图层（包括geom_bar和geom_text）都要单独传入相同的data参数和对应的mapping映射，不能缺漏。
• 特殊列名转义：列名activité en valeur带空格和重音字符，引用时必须用反引号`包裹，否则R会识别为语法片段而非完整列名。
• 调整文字位置：给geom_text加vjust = -0.2参数，把数值标签挪到柱顶上方，避免和柱体重叠。

假设你的数据框命名为df，x轴分类列名为categorie，替换成你自己的真实列名即可运行：

library(ggplot2)

# 写法1：全局统一传数据集和映射（更简洁，推荐）
ggplot(data = df, aes(x = categorie, y = `activité en valeur`)) +
  geom_bar(stat = "identity") +
  geom_text(aes(label = `activité en valeur`), vjust = -0.2)

# 写法2：分层单独传参（适合不同图层用不同数据源的场景）
ggplot() +
  geom_bar(
    data = df,
    mapping = aes(x = categorie, y = `activité en valeur`),
    stat = "identity"
  ) +
  geom_text(
    data = df,
    mapping = aes(x = categorie, y = `activité en valeur`, label = `activité en valeur`),
    vjust = -0.2
  )

额外踩坑提示：如果你就是要用geom_bar默认的计数统计（不指定y轴，柱高是每个分类的样本数），那geom_text也要同步用计数统计，不能直接传原始数值列，写法为geom_text(stat = "count", aes(label = ..count..), vjust = -0.2)，保证标签长度和统计后的柱体数量一致。

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