我们可以通过 geom_point 向 GGPLOT 中的 geom_boxplot 添加一个新变量吗？

Question

我正在尝试将 geom_point 添加到箱线图中。 箱线图显示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")

Answer 1

它应该在aes内，并且coord_flip可以在之后

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

-输出