Today starts my attempt at sharing my R journey with the world! I have been learning R off and on now since late 2019, I have begun to take it much more serious as I work through my Data Analytics class at UCF. My love for all things numbers and graphs has really blossomed, and I am choosing to share that love with anyone who cares to read. I will not claim to be the best at R, or any programming for that matter, but these are my attempts. Each post in this serious will be replicated a graph created in Tableau from the book Tableau for Healthcare. Todays graph is a simple horizontal bar chart, in transferring to both a new blog site and computer I have unfortunately lost the original bar graph, but trust me the one I created looks just like it.

Load Libraries

library(tidyr)
library(magrittr)
library(ggplot2)
library(stringr)
library(dplyr)

Import Data

ds <- readxl::read_excel(
    path   = "Tableau 10 Training Practice Data.xlsx" 
    ,sheet = "02 - Patient Falls-Single Hosp"
    )

Clean Data Names

#should make reusable forumla at later time
names(ds) <- tolower(names(ds))
names(ds) <- str_replace_all(names(ds)," ", "_")

Convert Data to ‘Long Form’

ds1 <- ds %>% 
  gather("patient_falls_no_injury_rate" , "patient_falls_with_injury_rate"
         ,key   = "injury" 
         ,value = "rate" ) %>% 
  mutate(injury = (injury == "patient_falls_with_injury_rate"))

Graph 5.1

b1 <- ds %>% 
  ggplot(mapping = aes(x = reorder(type_of_care,total_patient_falls_rate ) , y = total_patient_falls_rate)) +
  geom_col(fill = "#2b83ba") + 
  coord_flip() +
  scale_y_continuous(breaks = NULL) +
  theme(axis.ticks = element_blank()) +
  labs(title = "Rate of Patient Falls (per 1,000 Pateint Days)\nby Type of Care for FY2017"
      ,x     = NULL
      ,y     = NULL
      ) +
  theme_classic() +
  geom_text(aes(label = format(total_patient_falls_rate, digits = 2)), nudge_y = -.25, color = "white")
  
b1

Reuse

https://creativecommons.org/licenses/by/4.0/

Citation

BibTeX citation:

@online{belanger2020,
  author = {Belanger, Kyle},
  title = {My {Start} to {R}},
  date = {2020-01-24},
  langid = {en}
}

For attribution, please cite this work as:

Belanger, Kyle. 2020. “My Start to R.” January 24, 2020.