Building a Medicare Shiny App – Part 1

May 15, 2017
By

(This article was first published on R-Projects – Stoltzmaniac, and kindly contributed to R-bloggers)

Hello R community. if you’re up for some fun tinkering with a Shiny App please join me on a new project. I would love to see some collaboration in designing a Shiny Application which will help people make a decision about a healthcare provider. I have only just begun on this project but would to work with others.

This is just a quick look at the data, the roughest shiny app you’ve ever seen can be located on my shinyapps.io page

The first goal is to help people find a provider based off of City and State (or perhaps zipcode and latitude/longitude). This can take the form of a list, map, etc. I would also like people to be able to glean some information about the place they are going in comparison to the surrounding locations.

I was only able to put a an hour or so into this (and that was months ago) but have decided that it would be fun to start collaborating with anyone who is interested. Please make any pull requests and I’ll get to them!

The data can be found here (supplied by data.gov)

GitHub Repository

Here is a look at the data we’re dealing with after merging it with the zipcodes package!

# I merged it with the zipcode data
data = read.csv('../Infections/data/Healthcare_Associated_Infections_-_Hospital.csv')
data$zip = clean.zipcodes(data$ZIP.Code)
data(zipcode)
data=merge(data,zipcode,by.x="zip",by.y="zip")

head(data,3)

##     zip Provider.ID                    Hospital.Name
## 1 00603      400079 HOSP COMUNITARIO BUEN SAMARITANO
## 2 00603      400079 HOSP COMUNITARIO BUEN SAMARITANO
## 3 00603      400079 HOSP COMUNITARIO BUEN SAMARITANO
##                                   Address      City State ZIP.Code
## 1 CARR.2 KM.1.4 AVE. SEVERIANO CUEVAS #18 AGUADILLA    PR      603
## 2 CARR.2 KM.1.4 AVE. SEVERIANO CUEVAS #18 AGUADILLA    PR      603
## 3 CARR.2 KM.1.4 AVE. SEVERIANO CUEVAS #18 AGUADILLA    PR      603
##   County.Name Phone.Number                           Measure.Name
## 1   AGUADILLA   7876580000                  CAUTI: Observed Cases
## 2   AGUADILLA   7876580000                 CAUTI: Predicted Cases
## 3   AGUADILLA   7876580000 CAUTI: Number of Urinary Catheter Days
##        Measure.ID Compared.to.National         Score
## 1 HAI_2_NUMERATOR        Not Available Not Available
## 2 HAI_2_ELIGCASES        Not Available Not Available
## 3 HAI_2_DOPC_DAYS        Not Available Not Available
##                                                   Footnote
## 1 5 - Results are not available for this reporting period.
## 2 5 - Results are not available for this reporting period.
## 3 5 - Results are not available for this reporting period.
##   Measure.Start.Date Measure.End.Date Location      city state latitude
## 1         01/01/2015       12/31/2015       NA Aguadilla    PR 18.44862
## 2         01/01/2015       12/31/2015       NA Aguadilla    PR 18.44862
## 3         01/01/2015       12/31/2015       NA Aguadilla    PR 18.44862
##   longitude
## 1 -67.13422
## 2 -67.13422
## 3 -67.13422

I made an ugly plot of the number of rows per state in order to get see if the data appears to make sense based off of my knowledge of the population of the states. I didn’t add the census data but that’s certainly a possibility for the future.

tmp = data %>%
  filter(Score != 'Not Available') %>%
  group_by(State) %>%
  summarise(Rows = n()) %>%
  top_n(10)

## Selecting by Rows

p = ggplot(tmp,aes(x=reorder(State,Rows),y=Rows)) + 
  geom_bar(stat='identity',position='dodge') + 
  coord_flip() + 
  theme(legend.position = 'none') + 
  ggtitle('Number of Rows by State - Top 10')

ggplotly(p)

plot of chunk unnamed-chunk-3

Let’s get started! I won’t have much time to start working on this until early June but I wanted to see if there is any interest out there first!

You can find this on my GitHub

To leave a comment for the author, please follow the link and comment on their blog: R-Projects – Stoltzmaniac.

R-bloggers.com offers daily e-mail updates about R news and tutorials on topics such as: Data science, Big Data, R jobs, visualization (ggplot2, Boxplots, maps, animation), programming (RStudio, Sweave, LaTeX, SQL, Eclipse, git, hadoop, Web Scraping) statistics (regression, PCA, time series, trading) and more...



If you got this far, why not subscribe for updates from the site? Choose your flavor: e-mail, twitter, RSS, or facebook...

Comments are closed.

Search R-bloggers


Sponsors

Never miss an update!
Subscribe to R-bloggers to receive
e-mails with the latest R posts.
(You will not see this message again.)

Click here to close (This popup will not appear again)