krz

library(MarketMatching)
library(tidyverse)
library(janitor)
library(lubridate)
library(patchwork)

# load data
sales <- read_csv("Passport_Stats.csv", 
                  col_types = cols(`2004` = col_number(), 
                                   `2005` = col_number(), `2006` = col_number(), 

krz

library(MarketMatching)
library(tidyverse)
library(janitor)
library(lubridate)
library(patchwork)

# load data
sales <- read_csv("Passport_Stats.csv", 
                  col_types = cols(`2004` = col_number(), 
                                   `2005` = col_number(), `2006` = col_number(),