Andrew Allen Bruce

2. ### Mapping | **Packages** | |:--------| | [usmap](https://github.com/pdil/usmap) | | [ggrepel](https://github.com/slowkow/ggrepel) | ``` r coords_trans Warning: ggrepel: 89 unlabeled data points (too many overlaps). Consider #> increasing max.overlaps ```...

3. ### **ZIP Code** `-->` **County** `-->` **sf** `-->` **Map** | Packages | |:--------| | [zipcodeR](https://github.com/gavinrozzi/zipcodeR/)| | [fipio](https://fipio.justinsingh.me/)| | [sf](https://r-spatial.github.io/sf/) | ``` r # Retrieve NPIs of all RHCs in...

## Load Packages ```{r} library(provider) library(tidygeocoder) library(purrr) library(dplyr) library(ggplot2) library(ggsflabel) library(ggrepel) library(gghighlight) library(sf) library(tigris) ``` ## Retrieve NPIs of all RHCs in Georgia ```{r} rhcs dplyr::distinct(npi) |> dplyr::pull(npi) |> purrr::map(\(x)...


Add [Helper function to transpose yearly data](https://github.com/andrewallenbruce/provider/issues/37#issue-1977680643) ```r library(provider) library(dplyr) library(tidyr) performance unnest(performance) |> mutate(year = as.integer(year)) |> select(year, tot_hcpcs:.pymt_per_srvc) #> # A tibble: 8 × 12 #> year tot_hcpcs...

Function ``` r construct_npi

### MAQI [The Medicare Advantage Qualifying Payment Arrangement Incentive Demonstration](https://www.cms.gov/newsroom/fact-sheets/medicare-advantage-qualifying-payment-arrangement-incentive-demonstration) _The Centers for Medicare & Medicaid Services (CMS) is announcing the **Medicare Advantage Qualifying Payment Arrangement Incentive (MAQI)** Demonstration. The...

- [x] "Medicare Part D Prescribers - by Provider and Drug" - [x] "Medicare Part D Prescribers - by Provider" - [x] "Medicare Part D Prescribers - by Geography and...

``` r httr2::request('https://data.cms.gov/provider-data/api/1/metastore/schemas/dataset/items') |> httr2::req_perform() |> httr2::resp_body_json(check_type = FALSE, simplifyVector = TRUE) |> dplyr::tibble() |> dplyr::pull(title) #> [1] "PY 2021 Virtual Group Public Reporting: MIPS Measures and Attestations" #> [2]...

``` r response httr2::req_perform() |> httr2::resp_body_json(check_type = FALSE, simplifyVector = TRUE) response$data |> dplyr::tibble() |> dplyr::pull(title) #> [1] "Accountable Care Organization Participants" #> [2] "Accountable Care Organization Skilled Nursing Facility...