Как добавить точки в боксплоты в R?

Question

[wolverine777]

Привет, я пытаюсь построить боксплоты из следующего dataframe

A <- c(1, 25, 3, 4, 50)
B <- c(23, 41, 32, 58, 26)
C <- c(63, 71, 22, 8, 2)
D <- c(16, 49, 2, 56, 6)
df <- data.frame(A, B, C, D)
print (df)
boxplot(df)

мне нужно чтобы на сами боксплоты были также наложены точки из которых боксплот состоит. Примерно так:

Вот тут вроде бы кажется и ответ https://stackoverflow.com/questions/23675735/how-t...

но там во всех примерах используется колонка в которой вместо чисел - пять групп в разных комбинациях а у меня в каждой колонке только числа. Не пойму как быть.

Большое спасибо

Answer 1

[wolverine777]

A <- c(-1, 25, 3, 4, 50)
B <- c(23, -41, 32, 68, 26)
C <- c(63, 71, 22, -8, 2)
D <- c(16, -49, 2, 56, 6)
df <- data.frame(A, B, C, D)

library(tidyverse)
as_tibble(df) %>%
  gather %>%
  ggplot +
  geom_boxplot(mapping = aes(x = key, y = value)) +
  geom_dotplot(mapping = aes(x = key, y = value),
               binaxis = "y", stackdir = "center") +
  theme_classic()