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))

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

# 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

library(palmerpenguins)
library(tidyverse)
library(ggside)
library(magick)
library(grid)

logo_pp <- image_read("../pp_logo.png")
logo_ggside <- image_read("../ggside_logo.png")

p <- penguins %>%

farach

library(palmerpenguins)
library(tidyverse)
library(ggtext)
library(magick)
library(grid)

logo_pp <- image_read("../pp_logo.png")
logo_gg <- image_read("../ggtext.png")
#imgurl <- system.file("../ggtext.png", package="hexSticker")
# sticker(logo_gg, package="hexSticker", p_size=20, s_x=1, s_y=.75, s_width=.6,

farach

library(palmerpenguins)
library(tidyverse)
library(magick)
library(grid)
library(ggtext)

logo_pp <- image_read("../pp_logo.png")
logo_gg <- image_read("../ggtext.png")

p <-

farach

library(palmerpenguins)
library(tidyverse)
library(magick)
library(grid)
library(gghalves)

logo_pp <- image_read("../pp_logo.png")
logo_gg <- image_read("../gghalves.png")

p <- 

farach

library(palmerpenguins)
library(tidyverse)
library(magick)
library(grid)
library(BrailleR)

logo_pp <- image_read("../pp_logo.png")
g <- guide_legend("Species:", override.aes = list(size = 3, alpha = 1))

cbbPalette <- c("#E69F00", "#0072B2", "#CC79A7")

farach

library(tidyverse)

accenture <- data.frame(
  accenture_x1 = c(10, 370, 270, 10), 
  accenture_y1 = c(10, 140, 180, 95),
  accenture_x2 = c(10, 370, 370, 10), 
  accenture_y2 = c(370, 220, 140, 285)
  )

data.frame(

farach

# ggplot version of https://mobile.twitter.com/georgemsavva/status/1419784944352702465
library(tidyverse)

gifski::save_gif(
  lapply(seq(0, 1, l = 600), function(a) {
    print(
      data.frame(
        b = 1 - a,
        t = 3 * pi * (1:400) / 100
      ) %>%