In utexas-lbjp-data/lbjdata: Tools For The LBJ School's Data Initiatives

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)

lbjdata

The goal of lbjdata is to provide custom themes and resources for projects related to the LBJ School's Data Initiatives.

Installation

You can install the development version of {lbjdata} from Github with:

devtools::install_github("utexas-lbjp-data/lbjdata")

Example

This is a basic example which shows you how to solve a common problem:

library(lbjdata)
library(ggplot2)
library(readr)
library(dplyr)
library(tidyr)

What is special about using README.Rmd instead of just README.md? You can include R chunks like so:

provider_types <- read_csv("https://genesis.soc.texas.gov/files/accessibility/vaccineprovideraccessibilitydata.csv") %>% 
  group_by(type = TYPE) %>% 
  summarise(tot_shipped = sum(Total_Shipped),
            tot_avail = sum(VACCINES_AVAILABLE)) %>% 
  drop_na() %>% 
  arrange(desc(tot_shipped))

provider_types %>% 
  ggplot() +
  geom_col(aes(x=reorder(type, desc(tot_shipped)), 
               y = tot_shipped, 
               fill=type)) +
  geom_text(angle=90, color="#2d2d2d", size = 3.1, family = "LibreFranklin-Bold",
            aes(y= 0, x=type, label = type), hjust = 0) +
  theme_lbj() +
  theme(axis.text.x = element_blank()) +
  labs(title = "Vaccine Supply, By Type of Provider",
       subtitle = "Source: Texas Department of State Health Services")

provider_types %>%
  ggplot() +
  geom_col(aes(x=reorder(type, desc(tot_shipped)),
               y = tot_shipped,
               fill=type)) +
  geom_text(angle=90, color="#2d2d2d", size = 3.1, family = "LibreFranklin-Bold",
            aes(y= 0, x=type, label = type), hjust = 0) +
  theme_lbj() +
  theme(axis.text.x = element_blank()) +
  labs(title = "Vaccine Supply, By Type of Provider",
       subtitle = "Source: Texas Department of State Health Services")