Zacznij terazZacznij za darmo

Dodawanie własnych kognostyk

Czas stworzyć własne kognostyki. W tym celu dodasz do zbioru danych gapminder dwie nowe zmienne: delta_lifeExp oraz ihme_link.

To ćwiczenie jest częścią kursu

Wizualizacja dużych zbiorów danych z Trelliscope w R

Zobacz kurs

Instrukcje do ćwiczenia

  • Dodaj do zbioru danych gapminder nową zmienną o nazwie delta_lifeExp, która oblicza różnicę między pierwszą a ostatnią zaobserwowaną wartością oczekiwanej długości życia (lifeExp) dla każdego kraju (country jako zmienna grupująca). Dane są już posortowane według roku.
  • Dodaj kolejną zmienną, ihme_link, zawierającą odnośnik do profilu danego kraju na stronie healthdata.org. Użyj funkcji space_to_dash(), aby zamienić spacje w wartościach country na myślniki. Na przykład dla kraju "Costa Rica" link ma postać "http://www.healthdata.org/Costa-Rica".
  • Nadaj zmiennej delta_lifeExp opis "Overall change in life expectancy".
  • Ustaw default_label = TRUE, aby zmienna ihme_link była domyślnie wyświetlana jako etykieta.

Interaktywne ćwiczenie praktyczne

Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.

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"))
Edytuj i uruchom kod