ComeçarComece de graça

Otimizando o gráfico para dispositivos móveis

O título do eixo x já é bastante supérfluo porque você adicionou rótulos para ambos os anos. Agora você vai adicionar rótulos de país ao gráfico, assim todos os eixos podem ser removidos.

Neste exercício, você vai se deparar com algo provavelmente novo: é possível fornecer novos conjuntos de dados para geometrias individuais como geom_text(), de modo que essas geometrias não usem o conjunto de dados passado na chamada inicial de ggplot(). Você vai precisar disso aqui porque quer adicionar apenas um rótulo a cada seta. Se usasse o conjunto de dados original ilo_data, seriam adicionados dois rótulos, pois há duas observações para cada país no conjunto, uma para 1996 e outra para 2006.

Este exercício faz parte do curso

Comunicando com Dados no Tidyverse

Ver curso

Instruções do exercício

  • Um novo conjunto de dados median_working_hours foi criado para que haja apenas um rótulo por país. Veja a estrutura dele com str().
  • Use median_working_hours como o argumento data em uma nova chamada de geom_text(), para adicionar rótulos para cada país.
    • Especifique corretamente as estéticas necessárias para geom_text(): x e label, que devem apontar para a variável correta no conjunto de dados median_working_hours.
  • Remova todos os eixos e a grade de fundo especificando a função element_blank() para todos os argumentos axis. e panel.grid na chamada personalizada de theme().
  • Depois de executar o código final, redimensione a janela do gráfico à direita para simular a tela de um dispositivo móvel em modo retrato (estreita e alta) – todos os rótulos vão se ajustar à área visível do gráfico.

Exercício interativo prático

Experimente este exercício completando este código de exemplo.

# Compute temporary data set for optimal label placement
median_working_hours <- ilo_data %>%
  group_by(country) %>%
  summarize(median_working_hours_per_country = median(working_hours)) %>%
  ungroup()

# Have a look at the structure of this data set
___

ilo_dot_plot +
  # Add label for country
  geom_text(data = ___,
            aes(y = country,
                x = ___,
                label = ___),
            vjust = 2,
            family = "Bookman",
            color = "gray25") +
  # Remove axes and grids
  theme(
    axis.ticks = ___,
    axis.title = ___,
    axis.text = ___,
    panel.grid = ___,
    # Also, let's reduce the font size of the subtitle
    plot.subtitle = element_text(size = 9)
  )
Editar e executar o código