Quick visualization of hospital price vs medicare coverage. http://visualizing.org/contests/visualizing-hospital-price-data

inpatient2011.R

inpatient <- read.csv('/Users/joannecheng/dev/viz/healthcarechallenge/Medicare_Provider_Charge_Inpatient_DRG100_FY2011.csv')

drgs <- unique(inpatient$DRG.Definition)

for(i in 1:length(drgs)) {
  treatment <- toString(drgs[i])
  dg <- inpatient[inpatient['DRG.Definition']==treatment,]
  boxplot((Average.Covered.Charges - Average.Total.Payments)*Total.Discharged~Provider.State, 
        data=dg, las=2, xlab='State', ylab='Total Unpaid',
        main=treatment)
}