Aan de slagGa gratis aan de slag

Aangepaste cognostics toevoegen

Laten we enkele aangepaste cognostics maken. Je voegt twee nieuwe variabelen toe aan de gapminder-gegevens: delta_lifeExp en ihme_link.

Deze oefening maakt deel uit van de cursus

Grote datasets visualiseren met Trelliscope in R

Cursus bekijken

Oefeninstructies

  • Voeg een nieuwe variabele delta_lifeExp toe aan de gapminder-gegevens die het verschil berekent tussen de eerste en laatste waargenomen levensverwachting (lifeExp) voor elk country (groepeer­variabele). Let op: de gegevens zijn al gesorteerd op jaar.
  • Voeg nog een variabele toe, ihme_link, die linkt naar het landenprofiel op healthdata.org, en gebruik space_to_dash() om spaties in country-waarden te vervangen door koppeltekens. Voor het land "Costa Rica" is de link bijvoorbeeld "http://www.healthdata.org/Costa-Rica".
  • Geef de variabele delta_lifeExp de beschrijving "Overall change in life expectancy".
  • Specificeer default_label = TRUE zodat de variabele ihme_link standaard als label wordt getoond.

Praktische interactieve oefening

Probeer deze oefening eens door deze voorbeeldcode in te vullen.

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"))
Code bewerken en uitvoeren