R/01-load_data.R

In hepplerj/wistem: WiSTEM Data Analysis

# Read and prepare data
suppressPackageStartupMessages(library(tidyverse))

# Read data
data <- readxl::read_xlsx("analysis/data/raw_data/WiSTEM Data10.xlsx")

# Data cleanup -----------------------------------------------------------------

# Rename columns to make it easier for writing scripts.
data <- data %>%
  rename(author = "Author") %>%
  rename(title = "Title") %>%
  rename(pubtitle = "Publication Title") %>%
  rename(publisher = "Publisher") %>%
  rename(date = "Date")

# Rename ASEE conferences -- they're the same, but labeled differently
data <- data %>%
  mutate_all(funs(str_replace(., "Proceedings of the ASEE Annual Conference & Exposition", "ASEE Annual Conference and Exposition, Conference Proceedings")))