Wizualizacja danych o lotach

Teraz, gdy dobrze znasz już swoje dane, czas zwizualizować trendy w czasie. W tym ćwiczeniu wykreślisz dane z obiektu flights_xts za pomocą kilku różnych metod wizualizacji szeregów czasowych.

Najprostszym sposobem na wykreślenie obiektów xts jest zazwyczaj użycie plot.xts(), która wymaga podania tylko jednego argumentu – danych dla osi Y. Oś X jest automatycznie uzupełniana przez indeks czasowy obiektu xts.

W przypadku bardziej rozbudowanych wykresów warto sięgnąć po plot.zoo(), która umożliwia uwzględnienie wielu kolumn danych. Argument plot.type pozwala zdecydować, czy dane mają być wyświetlane w jednym panelu ("single"), czy w osobnych panelach ("multiple"). Przydaje się to szczególnie przy porównywaniu wielu kolumn danych w czasie.

To ćwiczenie jest częścią kursu

Studium przypadku: analiza danych szeregów czasowych miasta w R

Zobacz kurs

Instrukcje do ćwiczenia

Użyj plot.xts(), aby zobaczyć łączną liczbę miesięcznych lotów do BOS (total_flights) w czasie. To polecenie wymaga jedynie wskazania danych dla osi Y, ale pamiętaj, aby dokładnie określić, którą kolumnę chcesz wykreślić.
Wywołaj plot.xts() ponownie, aby wykreślić miesięczną liczbę opóźnionych lotów do BOS w czasie.
Wygeneruj wykres wszystkich czterech kolumn szeregów czasowych z obiektu flights_xts za pomocą plot.zoo(). Ustaw argument plot.type na "multiple", aby uzyskać wykres z czterema oddzielnymi panelami. Pozostaw argument ylab bez zmian.
Umieść wszystkie cztery wykresy w jednym panelu, korzystając z kolejnego wywołania plot.zoo(). Pozostaw argument lty oraz funkcję legend bez zmian.

Interaktywne ćwiczenie praktyczne

Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.

# Use plot.xts() to view total monthly flights into BOS over time
plot.xts(___)

# Use plot.xts() to view monthly delayed flights into BOS over time


# Use plot.zoo() to view all four columns of data in their own panels
plot.zoo(___, plot.type = "___", ylab = labels)

# Use plot.zoo() to view all four columns of data in one panel
plot.zoo(___, plot.type = "___", lty = lty)
legend("right", lty = lty, legend = labels)

Edytuj i uruchom kod