Aggiungere cognostics personalizzati
Creiamo alcuni cognostics personalizzati. Per farlo, aggiungerai due nuove variabili ai dati di gapminder: delta_lifeExp e ihme_link.
Questo esercizio fa parte del corso
Visualizzare Big Data con Trelliscope in R
Istruzioni dell'esercizio
- Aggiungi una nuova variabile chiamata
delta_lifeExpai dati di gapminder che calcola la differenza tra la prima e l’ultima aspettativa di vita osservata (lifeExp) per ognicountry(variabile di raggruppamento). Nota che i dati sono già ordinati per anno. - Aggiungi un’altra variabile,
ihme_link, che rimanda al profilo del paese su healthdata.org, usandospace_to_dash()per sostituire gli spazi nei valori dicountrycon trattini. Per esempio, per il paese "Costa Rica", il link è "http://www.healthdata.org/Costa-Rica". - Assegna alla variabile
delta_lifeExpla descrizione"Overall change in life expectancy". - Specifica
default_label = TRUEper fare in modo che la variabileihme_linkvenga mostrata come etichetta predefinita.
Esercizio pratico interattivo
Prova a risolvere questo esercizio completando il codice di esempio.
library(ggplot2)
library(dplyr)
library(gapminder)
library(trelliscopejs)
space_to_dash <- function(x) gsub(" ", "-", x)
# Group by country and create the two new variables
gap <- gapminder %>%
group_by(___) %>%
mutate(
delta_lifeExp = tail(___, 1) - head(___, 1),
ihme_link = paste0("http://www.healthdata.org/", space_to_dash(___)))
# Add the description
gap$delta_lifeExp <- cog(gap$delta_lifeExp, desc = "___")
# Specify the default label
gap$ihme_link <- cog(gap$ihme_link, default_label = ___)
ggplot(gap, aes(year, lifeExp)) +
geom_point() +
facet_trelliscope(~ country + continent,
name = "lifeExp_by_country",
desc = "Life expectancy vs. year.",
nrow = 1, ncol = 2,
scales = c("same", "sliced"))