…this by weighting the average using the total number of passengers processed (total). library(tidyverse) library(hrbrthemes) library(wesanderson) jfk_raw <- read_csv(“https://raw.githubusercontent.com/ideas42/data42/main/jfk.csv”) jfk <- jfk_raw %>% janitor::clean_names() t <- jfk %>% group_by(terminal) %>%…