flights.R
In flightsbr: Download Flight and Airport Data from Brazil

## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----eval=FALSE, message = FALSE----------------------------------------------
# library(flightsbr)
# library(data.table)
# library(ggplot2)
# 

## ----eval=FALSE---------------------------------------------------------------
# # in a given **month* of a given **year** (yyyymm)
# df_201506 <- read_flights(date = 201506)
# 
# 
# # from specific months
# df_various_months <- read_flights(date = c(202001, 202101, 202210))
# 
# 
# # in a given year (yyyy)
# df_2015 <- read_flights(date = 2015)
# 
# 
# # from specific years
# df_various_years <- read_flights(date = c(2019, 2021, 2022))
# 

## ----eval=FALSE---------------------------------------------------------------
# df_201506 <- read_flights(
#   date = 201506,
#   showProgress = FALSE,
#   select = c('id_empresa', 'nr_voo', 'dt_partida_real',
#              'sg_iata_origem' , 'sg_iata_destino')
#   )
# 
# head(df_201506)

## ----eval=FALSE---------------------------------------------------------------
# # download flights data
# df <- read_flights(
#   date = 2019:2022,
#   select = c('nr_passag_pagos', 'dt_partida_real'),
#   showProgress = TRUE
#   )
# 
# # count daily passengers
# count_df <- df[, .(total_pass = sum(nr_passag_pagos, na.rm=TRUE)),
#                by = dt_partida_real]
# 
# # reformat date
# count_df <- count_df[ between(dt_partida_real, as.Date('2019-01-01'), as.Date('2022-12-31')) ]
# 
# count_df[, date := as.IDate(dt_partida_real, format="%Y-%m-%d") ]
# count_df[, year := year(date) ]
# count_df[, date_plot := paste0("2030-", format(date, "%m-%d"))]
# count_df[, date_plot := as.Date(date_plot)]
# 
# # plot
# fig <- ggplot(data = count_df) +
#           geom_point(aes(x=date_plot, y=total_pass, color=factor(year)), alpha=.4, size=1) +
#           scale_y_log10(name="Number of Passengers",
#                         labels = scales::unit_format(unit = ""), limit=c(1000,NA)) +
#           scale_x_date(date_breaks = "1 months", date_labels = "%b", name = 'Month') +
#           labs(subtitle ='Daily number of air passengers in Brazil', color = "Legend") +
#           theme_minimal() +
#           theme(panel.grid.minor = element_blank(),
#                 axis.text = element_text(size = 7),
#                 axis.title=element_text(size=9),
#                 plot.background = element_rect(fill='white', colour='white'))
# 
# 
# fig
# 

## ----daily passengers, eval=TRUE, echo=FALSE, message=FALSE, out.width='100%'----
knitr::include_graphics("https://github.com/ipeaGIT/flightsbr/blob/main/inst/img/vig_output_flights.png?raw=true")