r - facet_wrap 添加 geom_hline

Question

我的 ggplot 有以下代码 - facet_wrap 函数在页面上为每个 Name 绘制 20 个图，沿 x 轴有 5 个 Pcode。我想计算每个名称的平均 TE.Contr 并将该值绘制为每个图(由 Facet_wrap 分割出的)上的水平线。目前我的代码绘制了所有 TE.Contr 的平均值。值而不是平均 TE.Contr。的具体名称。

T<-ggplot(data = UKWinners, aes(x = Pcode, y = TE.Contr., color =  Manager)) + geom_point(size =3.5)+ geom_hline(aes(yintercept = mean(TE.Contr.)))
T<-T + facet_wrap(~ Name, ncol = 5)

Answer 1

使用 mtcars 的最小示例- 您必须为每个 gear 创建一个均值的数据框(在你的情况下是 Name )。

library(tidyverse)
dMean <- mtcars %>%
    group_by(gear) %>%
    summarise(MN = mean(cyl))
ggplot(mtcars) +
    geom_point(aes(mpg, cyl)) +
    geom_hline(data = dMean, aes(yintercept = MN)) +
    facet_wrap(~ gear)

对于您的情况，这应该有效:

library(tidyverse)
dMean <- UKWinners %>%
    group_by(Name) %>%
    summarise(MN = mean(TE.Contr.))
ggplot(UKWinners) +
    geom_point(aes(Pcode, TE.Contr.)) +
    geom_hline(data = dMean, aes(yintercept = MN)) +
    facet_wrap(~ Name)