Začněte nyníZačněte zdarma

Přidání vlastních kognostik

Teď si vytvoříme vlastní kognostiky. Za tím účelem přidáš do dat gapminder dvě nové proměnné: delta_lifeExp a ihme_link.

Toto cvičení je součástí kurzu

Vizualizace velkých dat s Trelliscope v R

Zobrazit kurz

Pokyny k cvičení

  • Přidej do dat gapminder novou proměnnou delta_lifeExp, která pro každou zemi (country) vypočítá rozdíl mezi první a poslední zaznamenanou střední délkou života (lifeExp) – data jsou již seřazena podle roku.
  • Přidej další proměnnou ihme_link, která odkazuje na profil dané země na webu healthdata.org. Mezery v názvech zemí (country) nahraď pomlčkami pomocí funkce space_to_dash(). Například pro zemi "Costa Rica" bude odkaz "http://www.healthdata.org/Costa-Rica".
  • Přidej proměnné delta_lifeExp popis "Overall change in life expectancy".
  • Nastav default_label = TRUE, aby se proměnná ihme_link zobrazovala jako výchozí popisek.

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

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"))
Upravit a spustit kód