在 geom_bar w 上绘制每组均值

Question

我有一个包含三列的数据框：一个因子（在这里代表书中的一章）、一个数字 ID（代表句子在书中出现的位置）和一个值（代表书中的单词数）。 它看起来像这样：

sentence.length
# A tibble: 5,368 x 3
   Chapter    ID Length
   <fct>   <dbl>  <dbl>
 1 1           1    294
 2 1           2     19
 3 1           3     77
 4 1           4     57
 5 1           5     18
 6 1           6     18
 7 1           7     27
 8 1           8     56
 9 1           9     32
10 1          10     25
# ... with 5,358 more rows

我有一个非常接近我想要的情节。

ggplot(data,aes(x=ID,y=Length,fill=Chapter)) +
  geom_bar(stat='identity') 

我想补充的是，在每个组上，是一条代表该组平均值的水平线。

这段代码，从另一个问题修改，让我接近

  stat_summary(fun.y = mean, aes(x = 1, yintercept = ..y.., group = Chapter), geom = "hline")

但是这些线延伸到整个地块； 有没有办法只在绘图的相关部分绘制平均线？ 我怀疑这里的问题是我的数据恰好被排序，使得一个group对应于情节的连续部分； 但情节本身的美学没有任何要求。

更接近的方法是不使用stat_summary而是使用geom_smooth ； geom_smooth(method='lm',se=FALSE)让我非常接近。 但不是线性回归，我真的只想要组的平均值（这里是每章句子长度的平均值）。

有没有更好/更简单的方法？

Answer 1

我不确定这是否是最简单的方法，但它有效：

library(tidyverse)
library(wrapr)

df %.>%
  ggplot(data = ., aes(
    x = ID,
    y = Length,
    fill = Chapter
  )) +
  geom_col() +
  geom_segment(data = group_by(., Chapter) %>%
    summarise(
      mean_len = mean(Length),
      min_id = min(ID),
      max_id = max(ID)
    ),
    aes(
      x = min_id,
      xend = max_id,
      y = mean_len,
      yend = mean_len
    ),
    color = 'steelblue',
    size = 1.2
  )

使用%.>%管道，您可以向下传递df以在geom_segment函数中geom_segment进行汇总。 您可以在%.>%之后访问df . .