Benjamin Chan benjamin-chan
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| getCMS <- function(distributionId, | |
| columns = "*", | |
| where = NULL, | |
| limit = 0, | |
| root = "https://data.cms.gov/provider-data/api/1/datastore/sql") | |
| { | |
| require(magrittr) | |
| require(httr) | |
| require(jsonlite) | |
| if (is.null(where)) { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| pal <- c("#064276", # OHA Blue | |
| "#EC5A24", # OHA Orange | |
| "#009F98", # Sea Glass | |
| "#752E71", # Beauty Berry | |
| "#FCB53B", # Oregon Sunshine | |
| "#D6DBE9", # OHA Blue (background tint) | |
| "#E6F0EF", # Sea Glass (background tint) | |
| "#E9E1E8", # Beauty Berry (background tint) | |
| "#FFF1DC", # Oregon Sunshine (background tint) | |
| "#BC4010", # OHA Orange (dark) |
benjamin-chan
/ getACSbyZCTA.r
Last active
June 24, 2024 21:40
Grab ACS 5-year data (2017-2021) via API
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # US Census ACS 5-year API documentation: https://www.census.gov/data/developers/data-sets/acs-5year.html | |
| # tidycensus documentation: https://walker-data.com/tidycensus/ | |
| Sys.getenv("CENSUS_API_KEY") # load pre-installed Census API key | |
| getACSbyZCTA <- function(lookup, table = NULL, variables = NULL, dataset = "acs5/profile", year = 2022) { | |
| require(magrittr) | |
| require(dplyr) | |
| require(tidyr) | |
| require(tidycensus) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| search <- function(file, str) { | |
| text <- readLines(file.path(path, file), warn = FALSE) | |
| df <- data.frame(file = file, | |
| line = 1:length(text), | |
| regex = str, | |
| result = grepl(str, text), | |
| text) | |
| df[df$result == TRUE, ] | |
| } |
benjamin-chan
/ adjustForInflation.R
Last active
June 13, 2022 23:12
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # Reference: https://www.bls.gov/developers/api_r.htm | |
| library(magrittr) | |
| library(dplyr) | |
| library(devtools) | |
| install_github("mikeasilva/blsAPI") # https://github.com/mikeasilva/blsAPI | |
| library(rjson) | |
| library(blsAPI) | |
| payload <- list("seriesid" = c("CUUR0000SA0L1E"), | |
| "startyear" = 2016, |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| c(rgb( 26, 26, 26, maxColorValue = 255), | |
| rgb( 51, 51, 51, maxColorValue = 255), | |
| rgb( 77, 77, 77, maxColorValue = 255), | |
| rgb(102, 102, 102, maxColorValue = 255), | |
| rgb(127, 127, 127, maxColorValue = 255), | |
| rgb(153, 153, 153, maxColorValue = 255), | |
| rgb(179, 179, 179, maxColorValue = 255), | |
| rgb(204, 204, 204, maxColorValue = 255), | |
| rgb(230, 230, 230, maxColorValue = 255)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(magrittr) | |
| library(dplyr) | |
| c("Alice", | |
| "Bob", | |
| "Carol", | |
| "Dave") %>% | |
| unique() %>% | |
| sample(1e6, replace = TRUE) %>% | |
| data.frame(names = .) %>% |
benjamin-chan
/ getCensusData.R
Last active
September 23, 2020 19:26
Example R snippet to wrangle US Census data via API
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(magrittr) | |
| library(readr) | |
| library(tidyr) | |
| library(censusapi) | |
| name <- "acs/acs5" # See https://api.census.gov/data.html for list of tables for the name argument for listCensusMetadata() | |
| vintage <- 2012 | |
| metadata <- | |
| listCensusMetadata(name = name, vintage = vintage) %>% |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # Ref: https://en.wikipedia.org/wiki/Birthday_problem | |
| # Ref: https://www.scientificamerican.com/article/bring-science-home-probability-birthday-paradox/ | |
| library(magrittr) | |
| library(dplyr) | |
| people <- 23 | |
| simulations <- 1e5 | |
| expand.grid(id = 1:people, | |
| sim = 1:simulations) %>% | |
| mutate(bday = sample(365, simulations * people, replace = TRUE)) %>% | |
| group_by(sim) %>% |
benjamin-chan
/ commonIDs.R
Last active
January 27, 2020 15:43
Identify common IDs across paired groups
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(magrittr) | |
| library(dplyr) | |
| buildSample <- function(hosp, pop = 500, samp = 100) { | |
| data.frame(hosp = hosp, | |
| id = sample(pop, samp, replace = TRUE), | |
| stringsAsFactors = FALSE) %>% | |
| mutate(z = rnorm(nrow(.))) | |
| } | |
| df1 <- buildSample("A") | |
| df2 <- buildSample("B") |
NewerOlder