Kom igångKom igång gratis

Lägga till egna kognostiker

Nu ska du skapa några egna kognostiker. Det gör du genom att lägga till två nya variabler i gapminder-datan: delta_lifeExp och ihme_link.

Den här övningen är en del av kursen

Visualisering av big data med Trelliscope i R

Visa kurs

Övningsinstruktioner

  • Lägg till en ny variabel kallad delta_lifeExp i gapminder-datan som beräknar skillnaden mellan den första och sista observerade förväntade livslängden (lifeExp) för varje country (grupperingsvariabel). Observera att datan redan är sorterad efter år.
  • Lägg till ytterligare en variabel, ihme_link, som länkar till landets profil på healthdata.org. Använd space_to_dash() för att ersätta mellanslag i country-värdena med bindestreck. Till exempel blir länken för landet "Costa Rica" "http://www.healthdata.org/Costa-Rica".
  • Ge variabeln delta_lifeExp beskrivningen "Overall change in life expectancy".
  • Ange default_label = TRUE för att variabeln ihme_link ska visas som etikett som standard.

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

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"))
Redigera och kör kod