ÎncepețiÎncepe gratuit

Optimizarea graficului pentru dispozitive mobile

Titlul axei x este deja destul de redundant, deoarece ai adăugat etichete pentru ambii ani. Vei adăuga acum etichete pentru țări în grafic, astfel încât toate axele să poată fi eliminate.

În acest exercițiu, vei întâlni ceva ce probabil ți-e nou: seturi de date noi pot fi transmise direct unor geometrii individuale, cum ar fi geom_text(), astfel încât aceste geometrii să nu folosească setul de date transmis apelului inițial ggplot(). Ai nevoie de acest lucru aici deoarece vrei să adaugi o singură etichetă pentru fiecare săgeată. Dacă ai folosi setul de date original ilo_data, s-ar adăuga două etichete, deoarece există două observații pentru fiecare țară – una pentru 1996 și una pentru 2006.

Acest exercițiu face parte din cursul

Comunicarea cu date în Tidyverse

Vezi cursul

Instrucțiuni pentru exercițiu

  • A fost creat un nou set de date, median_working_hours, astfel încât să existe o singură etichetă per țară. Examinează structura acestuia cu str().
  • Folosește median_working_hours ca argument data într-un nou apel geom_text(), pentru a adăuga etichete pentru fiecare țară.
    • Specifică corect elementele de estetică necesare pentru geom_text(): x și label, care ar trebui să indice variabila potrivită din setul de date median_working_hours.
  • Elimină toate axele și grila de fundal specificând funcția element_blank() pentru toți parametrii axis. și panel.grid din apelul personalizat theme().
  • După ce rulezi codul final, redimensionează fereastra graficului din dreapta pentru a simula ecranul unui dispozitiv mobil în modul portret (îngust și înalt) – toate etichetele vor încăpea în zona graficului.

Exercițiu interactiv practic

Încearcă acest exercițiu completând acest cod de exemplu.

# 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)
  )
Editează și rulează codul