Menggunakan merge() dan membuat plot dari waktu ke waktu
Sekarang Anda memiliki data suhu untuk rentang waktu yang sama (2010–2015) dengan frekuensi yang sama (bulanan) seperti data penerbangan Anda, Anda siap untuk melakukan penggabungan.
Untuk menggabungkan objek xts berdasarkan kolom, Anda dapat menggunakan merge(). Ketika dua objek xts memiliki periodisitas yang sama, merge() umumnya dapat menggabungkan informasi ke dalam baris yang sesuai. Bahkan ketika objek xts tidak berbagi periodisitas yang sama, merge() akan mempertahankan urutan waktu yang benar dari objek-objek tersebut di berbagai periode.
Dalam latihan ini, Anda akan menggabungkan dua objek xts berdasarkan kolom dan membuat plot baru untuk mengeksplorasi bagaimana keterlambatan penerbangan berkaitan dengan suhu. temps_monthly dan flights_xts tersedia di workspace Anda.
Latihan ini adalah bagian dari kursus
Studi Kasus: Menganalisis Data Deret Waktu Kota di R
Petunjuk latihan
- Gunakan
merge()untuk menggabungkanflights_xtsdantemps_monthly. Karena objek xts ini memiliki periodisitas yang sama, perintah merge Anda seharusnya menempatkan data suhu pada baris yang sesuai dalam objekflights_xtsAnda. Perhatikan bahwa urutan Anda mencantumkan objek yang akan digabungkan menentukan posisi kolom dalam objek hasil. Untuk tetap konsisten, masukkanflights_xtsterlebih dahulu dantemps_monthlykedua. - Periksa beberapa baris pertama dari objek xts hasil gabungan (
flights_temps) untuk memastikan penggabungan berhasil. Anda seharusnya melihat data suhu terselaraskan dengan data penerbangan. - Gunakan
plot.zoo()untuk menghasilkan satu plot yang memuat kedua kolompct_delaydantemps_monthlydariflights_temps. Pastikan Anda men-subset kolom yang relevan dan tetapkanplot.typesebagai"single". Biarkan argumenltyapa adanya.
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
# Use merge to combine your flights and temperature objects
flights_temps <- merge(___, ___)
# Examine the first few rows of your combined xts object
# Use plot.zoo to plot these two columns in a single panel
plot.zoo(___[,c("___", "___")], plot.type = "___", lty = lty)
legend("topright", lty = lty, legend = labels, bg = "white")