使用选定因子水平的值向 ggplot-barchart 添加水平线

在这个情节中

df <- data.frame(factor = as.factor(c(rep("A",3), rep("B",3))), Treatment = c(rep(c("A","B","C"),2)), values=runif(6,0,1))

ggplot(df, aes(Treatment, values))+
  geom_bar(stat="identity", position="dodge") +
  facet_wrap(~factor)

我怎样才能添加一个geom_hline每个方面yintercept给定治疗水平（例如“A”）

+geom_hline(data=df, aes(yintercept= df[df$Treatment=="A",]))

不起作用：

错误：美学必须是长度 1 或与数据 (6) 相同： y拦截

library(tidyverse)

df <- data.frame(factor = as.factor(c(rep("A",3), rep("B",3))), Treatment = c(rep(c("A","B","C"),2)), values=runif(6,0,1))

ggplot(df, aes(Treatment, values))+
  geom_bar(stat="identity", position="dodge") +
  facet_wrap(~factor) +
  geom_hline(data = df %>% filter(Treatment == "A"), aes(yintercept = values))

创建于 2018-03-23代表包 http://reprex.tidyverse.org（v0.2.0）。