Exibir o texto em um boxplot

Olá!

Essa dúvida surgiu em uma aula no curso “R para Ciência de Dados I”

Contexto: A base é a imdb, contendo informações sobre filmes. Estamos criando gráficos com ggplot2.

A dúvida é: no código abaixo (boxplots dos lucros dos filmes dos diretores que fizeram mais do que 15 filmes) é possível exibir os quartis?

library(tidyverse)

imdb <- read_delim("https://raw.githubusercontent.com/curso-r/202010-r4ds-1/master/dados/imdb2.csv", ";", escape_double = FALSE, trim_ws = TRUE)

imdb %>%
  filter(!is.na(diretor)) %>%
  group_by(diretor) %>%
  filter(n() >= 15) %>%
  ggplot() +
  geom_boxplot(aes(x = diretor, y = lucro)) +
  geom_point(aes(x = diretor, y = lucro), alpha = 0.5)

Fernando, boa tarde.

Uma sugestão seria:

imdb %>%
filter(!is.na(diretor)) %>%
group_by(diretor) %>%
filter(n() >= 15) %>%
ggplot() +
aes(x = diretor, y = receita)+
geom_boxplot()+
stat_summary(geom=“text”, fun.y=quantile,
aes(label=sprintf("%.10s", …y…)),
position=position_nudge(x=0.5), size=2.1)+
geom_point(aes(x = diretor, y = receita), alpha = 0.5)+
scale_y_continuous(labels = scales::dollar)+
labs(title = “IMDB”)+
theme_bw()+
theme(plot.title = element_text(hjust = 0.5))