GSYİH verisine ayrık bir yuvarlanan toplam ekle
Bir dönemden diğerine değişim miktarını bilmek faydalıdır, ama yıl başından itibaren olan toplam değişimi de bilmek isteyebilirsin. Bu tür bir gösterge üretmek için split-lapply-rbind kalıbını kullanabilirsin. Bu süreç, önceki bölümde aylık sıcaklık ortalamalarını üretirken kullandığın sürece benzer.
Bu egzersizde, bölümün önceki kısımlarında kullandığın gdp verisine geri döneceksin. Her çeyrekteki durağan GSYİH değerlerine ek olarak, bir çeyrekten diğerine GSYİH değişimini (diff() kullanarak) ve yıl başından bugüne (YTD) GSYİH değişiminin yuvarlanan toplamını (split(), lapply() ve rbind() kullanarak) üretmek istiyorsun.
Bu egzersiz, kursun bir parçasıdır
Vaka Çalışması: R ile Şehir Zaman Serisi Verilerini Analiz Etme
Egzersiz talimatları
gdpiçinde basit bir çeyreklik fark üretmek içindiff()kullan.gdpsütununu belirtmeyi velagdeğerini1dönem (bu durumda 1 çeyrek) olarak ayarlamayı unutma. Bunugdpnesnendequarterly_diffolarak kaydet.- Artık çeyreklik GSYİH değişimi ölçün olduğuna göre, sonraki adım
quarterly_diffverinisplit()kullanarak yıllara ayırmaktır.split()çağrında,gdpiçindekiquarterly_diffsütununu belirt vefargümanını (tırnak içinde)"years"olarak ayarla. - Yeni bölünmüş verin üzerinde
lapply()kullan. Her yıl için kümülatif toplamı hesaplamak üzereFUNargümanını (tırnaksız)cumsumolarak ayarla. do.call()kullanarakgdpchange_ytdverini yeniden bir xts nesnesine rbind et.- Son olarak, GSYİH'daki yıl başından bugüne değişimi (
gdpchange_xts) incelemek içinplot.xts()kullan.
Uygulamalı etkileşimli egzersiz
Bu egzersizi bu örnek kodu tamamlayarak deneyin.
# 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")