25 Summary Specialty

National Level Payment Total and Averages by Provider Specialty for all Years

Metadata

    [ROWS] 4188 
   [PAGES] 9 
  [FIELDS] 21 
[MODIFIED] 2025-01-30 
[DOWNLOAD] https://download.cms.gov/openpayments/SMRY_RPTS_P01302025_01212025/PBLCTN_SPLTY_SMRY_P01302025_01212025-joined.csv

Data

# A tibble: 500 × 21
   payment_type recipient_type program_year taxonomy_code provider_type_descri…¹
                                                       
 1 General      Covered Recip… 2017         207K00000X    Allopathic & Osteopat…
 2 General      Covered Recip… 2017         207KA0200X    Allopathic & Osteopat…
 3 General      Covered Recip… 2017         207KI0005X    Allopathic & Osteopat…
 4 General      Covered Recip… 2017         207L00000X    Allopathic & Osteopat…
 5 General      Covered Recip… 2017         207LA0401X    Allopathic & Osteopat…
 6 General      Covered Recip… 2017         207LC0200X    Allopathic & Osteopat…
 7 General      Covered Recip… 2017         207LH0002X    Allopathic & Osteopat…
 8 General      Covered Recip… 2017         207LP2900X    Allopathic & Osteopat…
 9 General      Covered Recip… 2017         207LP3000X    Allopathic & Osteopat…
10 General      Covered Recip… 2017         208U00000X    Allopathic & Osteopat…
# ℹ 490 more rows
# ℹ abbreviated name: ¹provider_type_description
# ℹ 16 more variables: classification , specialization ,
#   total_number_of_physicians ,
#   total_number_of_non_physician_practitioners ,
#   total_payment_amount_physician ,
#   total_payment_amount_non_physician_practitioner , …

Tidyup

---
editor_options: 
   chunk_output_type: console
---

```{r}
#| label: setup-common-01
#| include: false
#| warning: false
source("includes/_common.R")
```

# Summary Specialty {#sec-openspecial}

National Level Payment Total and Averages by Provider Specialty for all Years

### Metadata

```{r}
#| label: s7_object
#| echo: false
end  <- open_endpoint("summary_specialty")
print_meta(end)
```

## Data

```{r}
#| label: http_request
#| message: true
#| echo: false
resp <- quick("summary_specialty", limit = 500)
resp
```

## Tidyup

```{r}
#| label: tidyup
#| message: false
#| echo: true
#| eval: false

```