Gathering QWI Data Over Several Years for Multiple States

Mona Ahmadiani

2019-06-19

Introduction

Sometimes one may want to collect data from multiple states over multiple years. To do this we recommend loading the following libraries:

library(future)
library(tidyqwi)
library(purrr)
library (tidyverse)

Then we can create the different combinations of year and state in order to submit to tidyqwi.

year <- c("2008", "2009", "2010","2011")
state <- c("01","02","04","05","06","08","09","10","11","12",
           "13","15","16","17","18","19","20","21","22","23",
           "24","25","26","27","28","29","30","31","32","33",
           "34","35","36","37","38","39","40","41","42","44",
           "45","46","47","48","49","50","51","53","54","55",
           "56")

argList <- list(x = state, y = year)

arguments <- cross_df(argList)

Using the multiple processing function we can submit the following:

plan("multiprocess")

qwi_data <- map2(arguments$x, arguments$y, ~
                  get_qwi(
                    states = .x,
                    years  = .y ,
                    industry_level = "2",
                    all_groups = FALSE,
                    endpoint = "se",
                    geography = "cbsa",
                    processing = "multiprocess",
                    apikey = APIkey))

After this function returns out values we can collapse these data into a single data set.

qwi_data <- purrr::map_dfr(qwi_data, as_tibble)

And then add the labels for our variables if desired.

qwi_data <- add_qwi_labels(qwi_data)