MulaiMulai sekarang secara gratis

Menambahkan cognostics kustom

Mari membuat beberapa cognostics kustom. Untuk itu, Anda akan menambahkan dua variabel baru ke data gapminder: delta_lifeExp dan ihme_link.

Latihan ini adalah bagian dari kursus

Visualizing Big Data with Trelliscope in R

Lihat Kursus

Petunjuk latihan

  • Tambahkan variabel baru bernama delta_lifeExp ke data gapminder yang menghitung selisih antara harapan hidup (lifeExp) pertama dan terakhir yang diamati untuk setiap country (variabel pengelompokan). Perhatikan bahwa data sudah diurutkan berdasarkan tahun.
  • Tambahkan variabel lain, ihme_link yang menaut ke profil negara di healthdata.org, gunakan space_to_dash() untuk mengganti spasi pada nilai country menjadi tanda hubung. Misalnya, untuk negara "Costa Rica", tautannya adalah "http://www.healthdata.org/Costa-Rica".
  • Beri variabel delta_lifeExp deskripsi "Overall change in life expectancy".
  • Tentukan default_label = TRUE agar variabel ihme_link ditampilkan sebagai label secara bawaan.

Latihan interaktif praktis

Cobalah latihan ini dengan menyelesaikan kode contoh berikut.

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"))
Edit dan Jalankan Kode