-
Notifications
You must be signed in to change notification settings - Fork 0
/
processEnrollment.R
37 lines (29 loc) · 2.66 KB
/
processEnrollment.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
# Marketplace enrollment data by county
library(dplyr)
library(tidyr)
ffm <- read.csv("data/healthcaregov-county-enrollment.csv", stringsAsFactors = F, colClasses=c("fips_county" = "character"))
ffm <- ffm %>% filter(fips_county != "Unsuppressed Total")
####################################################################################
# Add state-based marketplaces
# From state sources, but verified with Federal OEP state-level report (some state totals slightly differ due to rounding etc)
####################################################################################
ca <- read.csv("data-original/state-based/ca-county-enrollment.csv", stringsAsFactors = F, colClasses=c("fips_county" = "character"))
co <- read.csv("data-original/state-based/co-county-enrollment.csv", stringsAsFactors = F, colClasses=c("fips_county" = "character"))
ct <- read.csv("data-original/state-based/ct-county-enrollment.csv", stringsAsFactors = F, colClasses=c("fips_county" = "character"))
dc <- read.csv("data-original/state-based/dc-county-enrollment.csv", stringsAsFactors = F, colClasses=c("fips_county" = "character"))
id <- read.csv("data-original/state-based/id-county-enrollment.csv", stringsAsFactors = F, colClasses=c("fips_county" = "character"))
ma <- read.csv("data-original/state-based/ma-county-enrollment.csv", stringsAsFactors = F, colClasses=c("fips_county" = "character"))
md <- read.csv("data-original/state-based/md-county-enrollment.csv", stringsAsFactors = F, colClasses=c("fips_county" = "character"))
mn <- read.csv("data-original/state-based/mn-county-enrollment.csv", stringsAsFactors = F, colClasses=c("fips_county" = "character"))
ny <- read.csv("data-original/state-based/ny-county-enrollment.csv", stringsAsFactors = F, colClasses=c("fips_county" = "character"))
ri <- read.csv("data-original/state-based/ri-county-enrollment.csv", stringsAsFactors = F, colClasses=c("fips_county" = "character"))
vt <- read.csv("data-original/state-based/vt-county-enrollment.csv", stringsAsFactors = F, colClasses=c("fips_county" = "character"))
wa <- read.csv("data-original/state-based/wa-county-enrollment.csv", stringsAsFactors = F, colClasses=c("fips_county" = "character"))
enrollment <- bind_rows(ffm, ca, co, ct, dc, id, ma, md, mn, ny, ri, vt, wa)
####################################################################################
# Join
####################################################################################
enrollment <- enrollment %>% select(year, fips_county, county_name, state_code, everything()) %>%
arrange(year, fips_county) %>%
mutate(percent_aptc = plan_selections_aptc/plan_selections)
write.csv(enrollment, "data/county-enrollment.csv", row.names = F, na = "")