knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(cupersonnel)
library(tidyverse)
library(cowplot)
library(ggridges)

By campus

cu_personnel %>%
  ggplot(aes(x = funding, y = campus, fill = campus)) +
  geom_density_ridges(alpha = 0.4) + 
  scale_fill_brewer(palette = "Set1")


jayhesselberth/cupersonnel documentation built on May 20, 2019, 11:58 a.m.