farach

# install.packages("pacman")
pacman::p_load("tidyverse", "RColorBrewer", "janitor")

nitrd_fill <- read.csv("https://www.nitrd.gov/data/NITRD_Budget_Tables.csv") %>%
  janitor::clean_names(.) %>%
  mutate(
    budget = as.numeric(str_remove(as.character(budget), ",")),
    fy = as.numeric(fy)
  ) %>%
  group_by(fy, pca) %>%

farach

# install.packages("pacman")
pacman::p_load(tidyverse, RColorBrewer, janitor)

nitrd <- read.csv("https://www.nitrd.gov/data/NITRD_Budget_Tables.csv")

nitrd_fill <- nitrd %>%
  janitor::clean_names(.) %>%
  mutate(
    budget = as.numeric(str_remove(as.character(budget), ",")),
    fy = as.numeric(fy)

farach

library(tidyverse)
library(colorplaner)
library(scales)

tmp <- tempfile()
download.file("https://www.bls.gov/oes/2018/may/stem_2018.xlsx", tmp, mode = "wb")
STEM <- read_excel(tmp, sheet = "State")

STEM1 <- group_by(STEM, area_name) %>%
  summarise(total_all = sum(tot_emp))