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

Tüm spor dallarında hareketli ortalama hesapla

Artık verilerini yalnızca hafta sonu maçlarını içerecek şekilde alt kümelemeyi öğrendiğine göre, müşterin farklı bir yaklaşım istiyor. Belki de Boston’daki turizm, yerel spor takımları maçları iç sahada daha çok kazandığında ivme kazanıyordur.

Hafta sonu maçlarına odaklanmak yerine, Boston’da oynanan maçlara odaklanan bir hareketli galibiyet/mağlubiyet ortalaması üretmen isteniyor. Bu göstergeyi üretmek için, yukarıda kullanılan rollapply() komutuna geri dönecek ve bu kez hesaplamanı Boston bölgesindeki tüm spor takımlarına uygulayıp yalnızca iç saha maçlarını içerecek şekilde alt kümeyeceksin.

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ı

  • sports verini, Boston’da oynanan maçlardan gelen verileri ("homegame = 1") içerecek şekilde data[column == x] biçimini kullanarak alt kümele. Bu yeni nesneyi homegames olarak kaydet.
  • rollapply() kullanarak Boston spor takımlarının son 20 iç saha maçındaki galibiyet/mağlubiyet ortalamasını hesapla. homegames verindeki win_loss sütununu belirtmen, width değerini 20 yapman ve FUN argümanını mean olarak ayarlaman gerekecek. Bu göstergeyi homegames nesnesine win_loss_20 adıyla kaydet.
  • Benzer bir rollapply() çağrısı kullanarak 100 maçlık hareketli galibiyet/mağlubiyet ortalamasını hesapla. Bu göstergeyi homegames nesnesine win_loss_100 olarak kaydet.
  • Her iki göstergeyi görselleştirmek için plot.zoo() kullan. win_loss_20 ve win_loss_100 sütunlarını seçtiğinden ve ikisini aynı panelde görmek için plot.type argümanını "single" olarak ayarladığından emin ol. lty ve lwd argümanlarını olduğu gibi bırak.

Uygulamalı interaktif egzersiz

Bu örnek kodu tamamlayarak bu egzersizi bitirin.

# Generate a subset of sports data with only homegames
homegames <- sports[sports$___ == ___]

# Calculate the win/loss average of the last 20 home games
homegames$win_loss_20 <- rollapply(___$___, width = ___, FUN = ___)

# Calculate the win/loss average of the last 100 home games
homegames$win_loss_100 <- 

# Use plot.xts to generate
plot.zoo(___[, c("___", "___")], plot.type = "___", lty = lty, lwd = lwd)
Kodu Düzenle ve Çalıştır