diff --git a/04-predictability.qmd b/04-predictability.qmd index c864da5..caa8d8c 100644 --- a/04-predictability.qmd +++ b/04-predictability.qmd @@ -57,7 +57,9 @@ punc_eur <- punc_eur |> # punctuality plot punc_plot <- function(.puncdf, .debug = FALSE){ punc_plot <- .puncdf %>% - ggplot(aes(x = SHARE, y = AIRPORT)) + + ggplot(aes(x = SHARE + , y = AIRPORT ) + ) + geom_col(aes(fill = SLOT)) if(.debug){ @@ -129,9 +131,13 @@ On average, arrival delays of 15 minutes or more compared to the schedule ranged #| debug_arrs <- FALSE -punc <- bind_rows(punc_bra, punc_eur) +punc <- bind_rows(punc_bra, punc_eur) p_2019 <- punc |> prepare_punc_plot_data("ARR",2019) |> + left_join(bind_rows(bra_apts_names, eur_apts_names) + , by = join_by(AIRPORT == ICAO) + ) |> + mutate(AIRPORT = paste(AIRPORT, NAME)) |> punc_plot(.debug = debug_arrs) + labs(caption = "arrival punctuality 2019") + theme(legend.position = "none") @@ -139,7 +145,11 @@ p_2019 <- punc |> prepare_punc_plot_data("ARR",2019) |> # use update punc data for Brazil punc <- bind_rows(punc_bra2, punc_eur) -p_2023 <- punc |> prepare_punc_plot_data("ARR",2023) |> +p_2023 <- punc |> prepare_punc_plot_data("ARR",2023) |> + left_join(bind_rows(bra_apts_names, eur_apts_names) + , by = join_by(AIRPORT == ICAO) + ) |> + mutate(AIRPORT = paste(AIRPORT, NAME)) |> punc_plot(.debug = debug_arrs) + labs(caption = "arrival punctuality 2023") + theme(legend.position = "none") @@ -260,32 +270,56 @@ plot_early_vs_late <- function(.early_vs_late, .phase, .year } p1_bra_earlylate <- punc_bra |> - prepare_punc_plot_data("ARR", 2019) |> + prepare_punc_plot_data("ARR", 2019) |> + left_join(bind_rows(bra_apts_names, eur_apts_names) + , by = join_by(AIRPORT == ICAO) + ) |> + mutate(AIRPORT = paste(AIRPORT, NAME)) |> filter(SLOT %in% c("EARLY", "LATE")) |> plot_early_vs_late("ARR", 2019) p2_bra_earlylate <- punc_bra |> - prepare_punc_plot_data("ARR", 2022) |> + prepare_punc_plot_data("ARR", 2022) |> + left_join(bind_rows(bra_apts_names, eur_apts_names) + , by = join_by(AIRPORT == ICAO) + ) |> + mutate(AIRPORT = paste(AIRPORT, NAME)) |> filter(SLOT %in% c("EARLY", "LATE")) |> plot_early_vs_late("ARR", 2022) p3_bra_earlylate <- punc_bra2 |> - prepare_punc_plot_data("ARR", 2023) |> + prepare_punc_plot_data("ARR", 2023) |> + left_join(bind_rows(bra_apts_names, eur_apts_names) + , by = join_by(AIRPORT == ICAO) + ) |> + mutate(AIRPORT = paste(AIRPORT, NAME)) |> filter(SLOT %in% c("EARLY", "LATE")) |> plot_early_vs_late("ARR", 2023) p1_eur_earlylate <- punc_eur |> - prepare_punc_plot_data("ARR", 2019) |> + prepare_punc_plot_data("ARR", 2019) |> + left_join(bind_rows(bra_apts_names, eur_apts_names) + , by = join_by(AIRPORT == ICAO) + ) |> + mutate(AIRPORT = paste(AIRPORT, NAME)) |> filter(SLOT %in% c("EARLY", "LATE")) |> plot_early_vs_late("ARR", 2019) p2_eur_earlylate <- punc_eur |> - prepare_punc_plot_data("ARR", 2022) |> + prepare_punc_plot_data("ARR", 2022) |> + left_join(bind_rows(bra_apts_names, eur_apts_names) + , by = join_by(AIRPORT == ICAO) + ) |> + mutate(AIRPORT = paste(AIRPORT, NAME)) |> filter(SLOT %in% c("EARLY", "LATE")) |> plot_early_vs_late("ARR", 2022) p3_eur_earlylate <- punc_eur |> - prepare_punc_plot_data("ARR", 2023) |> + prepare_punc_plot_data("ARR", 2023) |> + left_join(bind_rows(bra_apts_names, eur_apts_names) + , by = join_by(AIRPORT == ICAO) + ) |> + mutate(AIRPORT = paste(AIRPORT, NAME)) |> filter(SLOT %in% c("EARLY", "LATE")) |> plot_early_vs_late("ARR", 2023) @@ -351,15 +385,27 @@ debug_deps <- FALSE punc <- bind_rows(punc_eur, punc_dep_bra) p_2019 <- punc |> prepare_punc_plot_data("DEP",2019) |> + left_join(bind_rows(bra_apts_names, eur_apts_names) + , by = join_by(AIRPORT == ICAO) + ) |> + mutate(AIRPORT = paste(AIRPORT, NAME)) |> punc_plot(.debug = debug_deps) + labs(caption = "departure punctuality 2019") p_2022 <- punc |> prepare_punc_plot_data("DEP",2022) |> + left_join(bind_rows(bra_apts_names, eur_apts_names) + , by = join_by(AIRPORT == ICAO) + ) |> + mutate(AIRPORT = paste(AIRPORT, NAME)) |> punc_plot(.debug = debug_deps) + labs(caption = "departure punctuality 2022") + theme(legend.position = "none") p_2023 <- punc |> prepare_punc_plot_data("DEP",2023) |> + left_join(bind_rows(bra_apts_names, eur_apts_names) + , by = join_by(AIRPORT == ICAO) + ) |> + mutate(AIRPORT = paste(AIRPORT, NAME)) |> punc_plot(.debug = debug_deps) + labs(caption = "departure punctuality 2023") + theme(legend.position = "none") @@ -474,8 +520,13 @@ It is planned to investigate the underlying turnaround drivers in future edition ```{r} better_limits <- c(-.03, .48) + p1_bra_earlylate <- punc_bra |> - prepare_punc_plot_data("DEP", 2019) |> + prepare_punc_plot_data("DEP", 2019) |> + left_join(bind_rows(bra_apts_names, eur_apts_names) + , by = join_by(AIRPORT == ICAO) + ) |> + mutate(AIRPORT = paste(AIRPORT, NAME)) |> filter(SLOT %in% c("EARLY", "LATE")) |> plot_early_vs_late("DEP", 2019, better_limits) @@ -485,12 +536,20 @@ p2_bra_earlylate <- punc_bra |> plot_early_vs_late("DEP", 2022, better_limits) p3_bra_earlylate <- punc_bra |> - prepare_punc_plot_data("DEP", 2023) |> + prepare_punc_plot_data("DEP", 2023) |> + left_join(bind_rows(bra_apts_names, eur_apts_names) + , by = join_by(AIRPORT == ICAO) + ) |> + mutate(AIRPORT = paste(AIRPORT, NAME)) |> filter(SLOT %in% c("EARLY", "LATE")) |> plot_early_vs_late("DEP", 2023, better_limits) p1_eur_earlylate <- punc_eur |> - prepare_punc_plot_data("DEP", 2019) |> + prepare_punc_plot_data("DEP", 2019) |> + left_join(bind_rows(bra_apts_names, eur_apts_names) + , by = join_by(AIRPORT == ICAO) + ) |> + mutate(AIRPORT = paste(AIRPORT, NAME)) |> filter(SLOT %in% c("EARLY", "LATE")) |> plot_early_vs_late("DEP", 2019, better_limits) @@ -501,7 +560,11 @@ p2_eur_earlylate <- punc_eur |> p3_eur_earlylate <- punc_eur |> prepare_punc_plot_data("DEP", 2023) |> - filter(SLOT %in% c("EARLY", "LATE")) |> + filter(SLOT %in% c("EARLY", "LATE")) |> + left_join(bind_rows(bra_apts_names, eur_apts_names) + , by = join_by(AIRPORT == ICAO) + ) |> + mutate(AIRPORT = paste(AIRPORT, NAME)) |> plot_early_vs_late("DEP", 2023, better_limits) p2019 <- p1_bra_earlylate + p1_eur_earlylate diff --git a/docs/01-intro.html b/docs/01-intro.html index ddceec6..9427eaf 100644 --- a/docs/01-intro.html +++ b/docs/01-intro.html @@ -303,23 +303,23 @@

-
- diff --git a/docs/03-traffic_characterisation_files/figure-html/fig-timeline-peak-day-1.png b/docs/03-traffic_characterisation_files/figure-html/fig-timeline-peak-day-1.png index fee4f8d..7404656 100644 Binary files a/docs/03-traffic_characterisation_files/figure-html/fig-timeline-peak-day-1.png and b/docs/03-traffic_characterisation_files/figure-html/fig-timeline-peak-day-1.png differ diff --git a/docs/04-predictability_files/figure-html/fig-early-vs-late-arrivals-1.png b/docs/04-predictability_files/figure-html/fig-early-vs-late-arrivals-1.png index 7e696c7..08315c3 100644 Binary files a/docs/04-predictability_files/figure-html/fig-early-vs-late-arrivals-1.png and b/docs/04-predictability_files/figure-html/fig-early-vs-late-arrivals-1.png differ diff --git a/docs/04-predictability_files/figure-html/fig-early-vs-late-departures-1.png b/docs/04-predictability_files/figure-html/fig-early-vs-late-departures-1.png index 560c3d3..dd882ce 100644 Binary files a/docs/04-predictability_files/figure-html/fig-early-vs-late-departures-1.png and b/docs/04-predictability_files/figure-html/fig-early-vs-late-departures-1.png differ diff --git a/docs/04-predictability_files/figure-html/fig-evolution-ARR-punc-1.png b/docs/04-predictability_files/figure-html/fig-evolution-ARR-punc-1.png index 89e36fa..a87773b 100644 Binary files a/docs/04-predictability_files/figure-html/fig-evolution-ARR-punc-1.png and b/docs/04-predictability_files/figure-html/fig-evolution-ARR-punc-1.png differ diff --git a/docs/04-predictability_files/figure-html/fig-evolution-DEP-punc-1.png b/docs/04-predictability_files/figure-html/fig-evolution-DEP-punc-1.png index acf2ed1..157f7ac 100644 Binary files a/docs/04-predictability_files/figure-html/fig-evolution-DEP-punc-1.png and b/docs/04-predictability_files/figure-html/fig-evolution-DEP-punc-1.png differ diff --git a/docs/04-predictability_files/figure-html/unnamed-chunk-11-1.png b/docs/04-predictability_files/figure-html/unnamed-chunk-11-1.png index f4c9e7a..048d508 100644 Binary files a/docs/04-predictability_files/figure-html/unnamed-chunk-11-1.png and b/docs/04-predictability_files/figure-html/unnamed-chunk-11-1.png differ diff --git a/docs/04-predictability_files/figure-html/unnamed-chunk-5-1.png b/docs/04-predictability_files/figure-html/unnamed-chunk-5-1.png index 01daff6..f8497d1 100644 Binary files a/docs/04-predictability_files/figure-html/unnamed-chunk-5-1.png and b/docs/04-predictability_files/figure-html/unnamed-chunk-5-1.png differ diff --git a/docs/05-capacity_and_throughput_files/figure-html/fig-arrival-throughput-1.png b/docs/05-capacity_and_throughput_files/figure-html/fig-arrival-throughput-1.png index c9c1ae4..2c3db1b 100644 Binary files a/docs/05-capacity_and_throughput_files/figure-html/fig-arrival-throughput-1.png and b/docs/05-capacity_and_throughput_files/figure-html/fig-arrival-throughput-1.png differ diff --git a/docs/05-capacity_and_throughput_files/figure-html/fig-bli-pli-1.png b/docs/05-capacity_and_throughput_files/figure-html/fig-bli-pli-1.png index 6fa84a0..f2b2398 100644 Binary files a/docs/05-capacity_and_throughput_files/figure-html/fig-bli-pli-1.png and b/docs/05-capacity_and_throughput_files/figure-html/fig-bli-pli-1.png differ diff --git a/docs/05-capacity_and_throughput_files/figure-html/fig-departure-throughput-1.png b/docs/05-capacity_and_throughput_files/figure-html/fig-departure-throughput-1.png index 119276c..aeb6016 100644 Binary files a/docs/05-capacity_and_throughput_files/figure-html/fig-departure-throughput-1.png and b/docs/05-capacity_and_throughput_files/figure-html/fig-departure-throughput-1.png differ diff --git a/docs/06-efficiency_files/figure-html/fig-asma-vs-traffic-volume-1.png b/docs/06-efficiency_files/figure-html/fig-asma-vs-traffic-volume-1.png index eebe908..0d9fc82 100644 Binary files a/docs/06-efficiency_files/figure-html/fig-asma-vs-traffic-volume-1.png and b/docs/06-efficiency_files/figure-html/fig-asma-vs-traffic-volume-1.png differ diff --git a/docs/06-efficiency_files/figure-html/fig-txot-txit-mapping-1.png b/docs/06-efficiency_files/figure-html/fig-txot-txit-mapping-1.png index d2f54ae..3c75d17 100644 Binary files a/docs/06-efficiency_files/figure-html/fig-txot-txit-mapping-1.png and b/docs/06-efficiency_files/figure-html/fig-txot-txit-mapping-1.png differ diff --git a/docs/Operational-Comparison-of-ANS-Performance-in-Brazil-and-Europe.docx b/docs/Operational-Comparison-of-ANS-Performance-in-Brazil-and-Europe.docx index e7b0d59..6b371e1 100644 Binary files a/docs/Operational-Comparison-of-ANS-Performance-in-Brazil-and-Europe.docx and b/docs/Operational-Comparison-of-ANS-Performance-in-Brazil-and-Europe.docx differ diff --git a/docs/Operational-Comparison-of-ANS-Performance-in-Brazil-and-Europe.pdf b/docs/Operational-Comparison-of-ANS-Performance-in-Brazil-and-Europe.pdf index 15784cf..8062ec2 100644 Binary files a/docs/Operational-Comparison-of-ANS-Performance-in-Brazil-and-Europe.pdf and b/docs/Operational-Comparison-of-ANS-Performance-in-Brazil-and-Europe.pdf differ