用 ggplot2 绘图添加数据标签的“标签数据”是怎么得来的？

yuanfan

用 echarts4r 绘图添加数据标签的话，e_labels(show = TRUE)像这样打开开关就可以了。但本新手发现，ggplot2 添加的数据标签不是自动生成的，而是需要再特别指定。俺今天又遇到了两个问题。

其一，`aes()`挪地方会报错

下面是代码，如果不加geom_text()，那么aes(x=cut)不管放到ggplot()里面还是放到geom_bar()里面都能执行，但是加了geom_text()后，把aes(x=cut)挪到geom_bar（)里面会报错，这里俺想不明白。

# 正常执行
ggplot(diamonds, aes(x = cut)) + geom_bar()

# 正常执行
ggplot(diamonds) + geom_bar(aes(x = cut))

# 正常执行
ggplot(diamonds, aes(x = cut)) +
  geom_bar() +
  geom_text(aes(label = ..count..), stat = "count", vjust = -0.5)

# 报错
ggplot(diamonds) +
  geom_bar(aes(x = cut)) +
  geom_text(aes(label = ..count..), stat = "count", vjust = -0.5)

其二，`geom_text()`中的 stat 参数是起什么作用的？

本菜鸟误打误撞计算得到了一个分组的比例，但是不明白这里明明是要将比例作为数据标签展示，为撒要设定stat = "count"才不会报错呢？

ggplot(data = diamonds, aes(
  x = cut,
  y = ..prop..,
  group = color,
  fill = color
)) +
  geom_bar(position = position_dodge(0.9)) +
  geom_text(
    aes(label = scales::percent(..prop..)),
    stat = "count",
    position = position_dodge(0.9),
    vjust = -0.5,
    size = 3
  )

yuanfan

第一个问题本菜鸟找到答案了。ggplot、geom_bar、geom_text是三个图层，只有第一个ggplot里面的映射是全局映射，而geom_funtion都是只对本图层有效的局部映射，而且geom_funtion的优先级高于ggplot，所以局部映射的内容会覆盖全局映射的内容。所以答案是,下面这种写法里面，geom_text里面的映射内容设定的不全，缺失的部分会引用ggplot里面的，而不会引用geom_bar里面的。

ggplot(diamonds) +
  geom_bar(aes(x = cut)) +
  geom_text(aes(label = ..count..), stat = "count", vjust = -0.5)

fenguoerbian

stat参数表示对原数据进行何种统计变换之后用来作为画图的数据使用。例如在这里，原数据diamonds里面是5万多个钻石的信息，stat = "count"实际上是指对数据应用stat_count函数，它基于ggplot中aes设定的x, group等信息得到了每个类型下一共有多少条记录。

而从文档中可以看到，stat_count可以提供两种变换后的结果：

after_stat(count): number of points in bin.
after_stat(prop): groupwise proportion

于是在geom_text层中，aes里设定了标签(label)的数据来自于对原数据做stat_count变换后的..prop..，即比例数据。当然，按现在版本的ggplot2，更应该写作after_stat(prop)。

真要纠结的话，这里还有个delayed evaluation的细节，前面整体的ggplot，还有geom_bar里需要的y，其实都是到geom_text那一层指定的stat = "count"之后才算好的。