andrewheiss

library(tidyverse)
library(ggpattern)

publication_names <- c(
  "Juvenile Instructor" = "J/I",
  "Der Ster" = "NE",
  "Der Wegweiser" = "GM",
  "Juvenile Instructor + Der Ster" = "J/I;NE",
  "Juvenile Instructor + Der Wegweiser" = "J/I;GM"
)

andrewheiss

library(tidyverse)
library(broom)
library(gapminder)
gapminder
#> # A tibble: 1,704 × 6
#>    country     continent  year lifeExp      pop gdpPercap
#>    <fct>       <fct>     <int>   <dbl>    <int>     <dbl>
#>  1 Afghanistan Asia       1952    28.8  8425333      779.
#>  2 Afghanistan Asia       1957    30.3  9240934      821.

andrewheiss

library(tidyverse)
library(broom)
library(parameters)
library(marginaleffects)
library(palmerpenguins)

penguins <- penguins |> 
  drop_na(sex) |> 
  mutate(is_gentoo = species == "Gentoo")

andrewheiss

Teaching

• https://r-primers.andrewheiss.com/
• https://evalsp25.classes.andrewheiss.com/
• https://datavizsp25.classes.andrewheiss.com/

Blogging

• https://www.andrewheiss.com/blog/
• https://www.andrewheiss.com/blog/2025/02/19/ggplot-histogram-legend/

andrewheiss

matches:
  # Markdown / HTML things
  - trigger: ";mdl"
    replace: "[$|$]({{clipb}})"
    vars:
      - name: "clipb"
        type: "clipboard"

  - trigger: ";br"
    replace: "<br>"

andrewheiss

library(tidyverse)
library(gutenbergr)

constitution_raw <- gutenberg_download(5)

constitution <- constitution_raw |> 
  slice(36:546) |> 
  filter(text != "") |> 
  mutate(text_lc = str_to_lower(text)) |> 
  mutate(is_article = str_starts(text_lc, "article")) |> 

andrewheiss

library(tidyverse)
library(readxl)
library(tinytable)

# Load data downloaded from https://www.systemicpeace.org/inscrdata.html
polity <- read_excel("~/Downloads/p5v2018.xls") |> 
  mutate(polity_change = polity2 - lag(polity2), .by = scode) |> 
  filter(year > 1800)

# Find the biggest drops in polity scores since 1985

andrewheiss

#!/bin/bash

# Required parameters:
# @raycast.schemaVersion 1
# @raycast.title Toggle Litra
# @raycast.mode silent

# Optional parameters:
# @raycast.icon 💡

andrewheiss

library(tidyverse)

# Colors too dark
mtcars |> 
  mutate(carb = factor(carb)) |> 
  ggplot(aes(carb, fill = carb)) +
  geom_bar() +
  scale_fill_viridis_d(
 option = "magma", begin = 0.1, end = 0.8

andrewheiss

library(tidyverse)
library(sf)
#> Linking to GEOS 3.11.0, GDAL 3.5.3, PROJ 9.1.0; sf_use_s2() is TRUE
library(rnaturalearth)

# All countries
countries <- ne_countries(scale = 50) |>
  filter(iso_a3 != "ATA")