Birçok enstrümanı tek bir nesnede birleştir

Bir yaklaşım, veriyi yeni bir ortam içine aktarmayı içerir. Sonrasında, tıpkı lapply()'ın bir listenin her bir elemanı üzerinde çalışması gibi, eapply() ile ortam içindeki her nesne üzerinde bir fonksiyon çalıştırabilirsin. lapply() gibi, eapply() de bir liste döndürür.

Daha sonra listedeki tüm elemanları tek bir nesnede birleştirmek için, R'nin senin yerine programatik olarak bir komutu yazıp çalıştırmasına benzeyen do.call()'u kullanabilirsin. merge(my_list[[1]], my_list[[2]]], ...) yazmak yerine do.call(merge, my_list) yazabilirsin.

Bu egzersiz, kursun bir parçasıdır

R ile Finansal Verileri İçe Aktarma ve Yönetme

Kursa Göz Atın

Egzersiz talimatları

eapply() kullanarak data_env içindeki her nesne üzerinde head() çağır. Sonucu data_list değişkenine ata.
do.call() ve merge() kullanarak data_list içindeki tüm elemanları data_merged adlı tek bir xts nesnesinde birleştir.
Ortamdaki nesneler sıralı olmadığından, data_merged sütunlarının hangi sırada olacağı garanti değildir. Sütunları sıralamak için OHLC() kullan ve veriyi data_ohlc içinde sakla.

Uygulamalı etkileşimli egzersiz

Bu egzersizi bu örnek kodu tamamlayarak deneyin.

# Call head on each object in data_env using eapply
data_list <- ___(data_env, ___)

# Merge all the data_list elements into one xts object
data_merged <- ___(___, data_list)

# Ensure the columns are ordered: open, high, low, close

Kodu Düzenle ve Çalıştır