Gráfico - diminuir tamanho do texto no eixo y

[beatrizmilz]

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 (gráfico com quantidade de filmes por pessoa diretora, mostrando apenas as 10 pessoas que mais dirigiram filmes), como deixar apenas o primeiro nome da pessoa diretora do filme?

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 %>% 
      count(diretor) %>%
      filter(!is.na(diretor)) %>% 
      top_n(10, n) %>%
      mutate(
        diretor = forcats::fct_reorder(diretor, n)
      ) %>% 
      ggplot() +
      geom_col(
        aes(x = n, y = diretor, fill = diretor),
        show.legend = FALSE
      ) 

Exemplo do gráfico feito com o código acima

[beatrizmilz]

A função stringr::word() é útil neste caso.
Exemplo de utilização: mutate(diretor = stringr::word(diretor, 1))

Exemplo com código completo:

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 %>% 
  count(diretor) %>%
  filter(!is.na(diretor)) %>% 
  top_n(10, n) %>%
  mutate(
    diretor = stringr::word(diretor, 1),            # Alterei aqui
    diretor = forcats::fct_reorder(diretor, n)
  ) %>% 
  ggplot() +
  geom_col(
    aes(x = n, y = diretor, fill = diretor),
    show.legend = FALSE
  )