Přidání diskrétního klouzavého součtu do dat HDP

Znát výši změny z jednoho období na druhé je užitečné, ale možná tě zajímá i celková změna od začátku roku. Pro výpočet tohoto ukazatele použiješ vzor split-lapply-rbind, který je podobný postupu pro výpočet průměrných měsíčních teplot v předchozí kapitole.

V tomto cvičení se vrátíš k datům gdp z dřívější části kapitoly. Kromě statických hodnot HDP za každé čtvrtletí chceš vypočítat mezičtvrtletní změnu HDP (pomocí diff()) a klouzavý součet změny HDP od začátku roku (pomocí split(), lapply() a rbind()).

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

Případová studie: Analýza časových řad městských dat v R

Zobrazit kurz

Pokyny k cvičení

Pomocí diff() vypočítej jednoduché čtvrtletní rozdíly v gdp. Nezapomeň zadat sloupec gdp a nastavit lag na 1 období (tedy 1 čtvrtletí). Výsledek ulož do objektu gdp jako quarterly_diff.
Teď, když máš míru čtvrtletní změny HDP, rozděl data quarterly_diff po letech pomocí split(). Ve volání split() zadej sloupec quarterly_diff objektu gdp a nastav argument f na "years" (s uvozovkami).
Zavolej lapply() na nově rozdělená data. Pro výpočet kumulativního součtu v každém roce nastav argument FUN na cumsum (bez uvozovek).
Pomocí do.call() spoj data gdpchange_ytd zpět do objektu xts pomocí rbind().
Nakonec použij plot.xts() pro vizualizaci změny HDP od začátku roku (gdpchange_xts).

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

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

# Add a quarterly difference in gdp
gdp$quarterly_diff <- diff(___$___, lag = ___, differences = ___)

# Split gdp$quarterly_diff into years
gdpchange_years <- split(___$___, f = "___")

# Use lapply to calculate the cumsum each year
gdpchange_ytd <- lapply(___, FUN = ___)

# Use do.call to rbind the results
gdpchange_xts <- do.call(rbind, ___)

# Plot cumulative year-to-date change in GDP
plot.xts(___, type = "h")

Upravit a spustit kód