BaşlayınÜcretsiz Başlayın

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

Vaka Çalışması: R ile Şehir Zaman Serisi Verilerini Analiz Etme

kursunun bir parçasıdır
Kursu Görüntüle

Egzersiz talimatları

  • gdp içinde basit bir çeyreklik fark üretmek için diff() kullan. gdp sütununu belirtmeyi ve lag değerini 1 dönem (bu durumda 1 çeyrek) olarak ayarlamayı unutma. Bunu gdp nesnende quarterly_diff olarak kaydet.
  • Artık çeyreklik GSYİH değişimi ölçün olduğuna göre, sonraki adım quarterly_diff verini split() kullanarak yıllara ayırmaktır. split() çağrında, gdp içindeki quarterly_diff sütununu belirt ve f argü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 üzere FUN argümanını (tırnaksız) cumsum olarak ayarla.
  • do.call() kullanarak gdpchange_ytd verini yeniden bir xts nesnesine rbind et.
  • Son olarak, GSYİH'daki yıl başından bugüne değişimi (gdpchange_xts) incelemek için plot.xts() kullan.

Uygulamalı interaktif egzersiz

Bu örnek kodu tamamlayarak bu egzersizi bitirin.

# 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")
Kodu Düzenle ve Çalıştır