geom_bar сгруппировал данные с цветом geom_point на основе значений

Question

Я хотел бы добавить geom_point, показывающий значение sect, в мою сгруппированную geom_bar, показывающий значение perc с цветом точки на основе условных данных

Мои данные такие:

```structure(list(year = c(2019, 2019, 2019, 2018, 2018, 2018, 2017, 
2017, 2017, 2020, 2020, 2020), ques = c("q1", "q2", "q3", "q1", 
"q2", "q3", "q1", "q2", "q3", "q1", "q2", "q3"), sect = c(94.25, 
99, 86.33, 94.19, 92.21, 90.42, 98.88, 89.31, 82.76, 82.06, 75.46, 
59.39), perc = c(88.79, 94.71, 89.46, 89.69, 81.29, 84.1, 90.18, 
89.1, 73.38, 70.66, 97, 75.99), diff = c(-5.46, -4.29, 3.13, 
-4.5, -10.92, -6.32, -8.7, -0.21, -9.38, -11.4, 21.54, 16.6), 
    ci = c(12.76572759, 12.76572759, 12.76572759, 12.76572759, 
    12.76572759, 12.76572759, 12.76572759, 12.76572759, 12.76572759, 
    12.76572759, 12.76572759, 12.76572759)), class = c("spec_tbl_df", 
"tbl_df", "tbl", "data.frame"), row.names = c(NA, -12L), spec = structure(list(
    cols = list(year = structure(list(), class = c("collector_double", 
    "collector")), ques = structure(list(), class = c("collector_character", 
    "collector")), sect = structure(list(), class = c("collector_double", 
    "collector")), perc = structure(list(), class = c("collector_double", 
    "collector")), diff = structure(list(), class = c("collector_double", 
    "collector")), ci = structure(list(), class = c("collector_double", 
    "collector"))), default = structure(list(), class = c("collector_guess", 
    "collector")), skip = 1), class = "col_spec"))

Таблица такая:

```    year ques   sect  perc   diff    ci
   <dbl> <chr> <dbl> <dbl>  <dbl> <dbl>
 1  2019 q1     94.2  88.8  -5.46  12.8
 2  2019 q2     99    94.7  -4.29  12.8
 3  2019 q3     86.3  89.5   3.13  12.8
 4  2018 q1     94.2  89.7  -4.5   12.8
 5  2018 q2     92.2  81.3 -10.9   12.8
 6  2018 q3     90.4  84.1  -6.32  12.8
 7  2017 q1     98.9  90.2  -8.7   12.8
 8  2017 q2     89.3  89.1  -0.21  12.8
 9  2017 q3     82.8  73.4  -9.38  12.8
10  2020 q1     82.1  70.7 -11.4   12.8
11  2020 q2     75.5  97    21.5   12.8
12  2020 q3     59.4  76.0  16.6   12.8

Простой код:

```df %>% 
  ggplot(aes(fill=ques, y = perc, x = year)) +
  geom_bar(position="dodge", stat="identity")+
  geom_point()

Условия цвета, которые я хотел бы для очков:

```df <- df %>%
  mutate(
    color = case_when(
      diff >= ci ~ "green",
      diff <= -ci ~ "red",
      TRUE ~ "grey"
    )
  )

В качестве первого шага я не могу заставить точки отображаться над соответствующими столбцами: это показывает точки вертикально, но я бы хотел, чтобы они располагались горизонтально в течение соответствующих лет, поэтому я был бы благодарен за помощь в отображении точек в соответствующие годы, а также за включение цветовых условий для показывать зеленый цвет для diff >= ci, красный <= - ci и серый для обоих. Надеюсь, это имеет смысл и спасибо

Answer 1

Вы можете использовать position_dodge в geom_pointвызов, чтобы сопоставить точки с барами. Чтобы получить правильные цвета, вы наносите на карту новый столбец color в цветовую шкалу и добавить вызов scale_color_identity.

Если я правильно понимаю вашу логику, ни одна из точек в вашем фрейме данных не станет красной, поскольку ни одно из значений diff меньше -12,8

       df %>%   
  mutate(color = case_when(diff >= ci ~ "green",
                           diff <= -ci ~ "red",
                           TRUE ~ "gray20")) %>%
  ggplot(aes(fill=ques, y = perc, x = year)) +
  geom_bar(position="dodge", stat="identity")+
  geom_point(aes(color = color), 
             position = position_dodge(width = 0.9), size = 3) +
  scale_color_identity()