R/DRG_Box_Plotter_Strings.R

In EdwardGemson/DS_Lab_2: DRG Calculator for DS1 Lab 2

library(dplyr)
library(ggplot2)
library(mdsr)
library(devtools)
library(roxygen2)
drg.data <- read.csv('data/DRG_data.csv')
drg_boxplot <- function(df, payment) {
  ##plot the average medicare payments
  df <- df %>%
    group_by(DRG.Definition) %>%
    mutate(DRG = strsplit(as.character(DRG.Definition),
                          split = ' ')[[1]][1]) %>%
    ungroup()
  g <- ggplot(df, aes_string(x = DRG,
                      y = payment)) +
    scale_y_continuous(trans='log10') +
    geom_boxplot(outlier.shape = NA) +
    theme(axis.text.x = element_text(angle = 90,
                                     size = 6,
                                     hjust = 1)) +
    ylab('Log Average Payments') +
    xlab('DRG Code') +
    ggtitle('Average Payments for Hospitals by DRG Code')
  g
}
drg_boxplot(drg.data, "Average.Medicare.Payments")