R 我们可以通过geom_点向GGPLOT中的geom_箱线图添加一个新变量吗？

我正在尝试向箱线图添加一个几何点。箱线图显示了

Total

的适当数据，但我想添加

Mkt_Avg

以显示平均值与箱线图创建的百分位数的比较情况。我已经尝试了下面的代码，但它不起作用（geom_point）。你有什么想法吗？是否需要添加新的aes（）？感谢您的帮助

tbl <- tribble(
  ~Dept ,  ~Total, ~Mkt_Avg,
  'a',     '15000', '9500',
  'a',     '6000', '9500',
  'a',     '7200', '9500',
  'a',     '7300', '9500',
  'a',     '6500', '9500',
  'a',     '2700', '9500',
  'c',     '8100', '7950',
  'c',     '20000', '14500',
  'c',     '15000', '14500',
  'c',     '9200', '6500',
  'd',     '11500', '6500',
  'd',     '1600', '3875',
  
  
)

tbl <- tbl %>%
  mutate(Total = as.numeric(Total),
         Mkt_Avg = as.numeric(Mkt_Avg)) %>%
  mutate(Dept = as_factor(Dept)) %>%
  mutate(Dept = Dept %>% fct_reorder(Total))

tbl %>% 
  ggplot(aes(Dept, Total)) + 
  geom_boxplot() + 
  coord_flip() + 
  geom_point(Mkt_Avg, color = "blue")

tbl%
突变（Dept=as_因子（Dept））%>%
变更（部门=部门%>%fct\U重新订购（总计））
待定%>%
ggplot（不良事件（部门，总计））+
geom_箱线图（）+
坐标翻转（）
几何点（市场平均值，颜色=“蓝色”）

它应该在

aes

内部，并且

coord\u flip

可以在后面

library(dplyr)
library(ggplot2)
tbl %>% 
  ggplot(aes(Dept, Total)) + 
  geom_boxplot() + 
  geom_point(aes(y = Mkt_Avg), color = "blue") +
  coord_flip()

-输出

---

您需要的是aes内部的

aes

可以正常工作，谢谢！