meghall06

# to create the plots in this Twitter thread: https://twitter.com/MeghanMHall/status/1560411406935138305

library(tidyverse)
library(ggrepel)
library(scales)

df1 <- txhousing %>%
  filter(city %in% c("Houston","Austin")) %>%
  group_by(year, city) %>%
  summarize(avg = mean(median, na.rm = TRUE)) %>%

meghall06

# to make the plot shown here: https://twitter.com/MeghanMHall/status/1549183367769366537

library(f1dataR)
library(tidyverse)
library(cowplot)

drivers <- load_drivers(season = 2022) %>% 
  filter(code != "HUL")
  
fastestlaps <- function(dr) {

meghall06

# to create the plot in this tweet: https://twitter.com/MeghanMHall/status/1518397321150664705

library(tidyverse)
library(hockeyR)
library(glue)
library(ggtext)
library(showtext)
font_add_google(name = "Jost", family = "jost")
showtext_auto()

meghall06

library(googlesheets4)
library(tidyverse)
library(showtext)
library(lubridate)
library(gt)
library(cowplot)

# add some google fonts via showtext

font_add_google(name = "Karla",