Untitled

library(tidyverse)

── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ──
✔ ggplot2 3.4.0     ✔ purrr   1.0.1
✔ tibble  3.1.8     ✔ dplyr   1.1.0
✔ tidyr   1.3.0     ✔ stringr 1.5.0
✔ readr   2.1.3     ✔ forcats 1.0.0
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()

library(palmerpenguins)
knitr::opts_chunk$set(warning = FALSE, message = FALSE, error = FALSE, cache = TRUE)

library(showtext)
library(extrafont)

font_add_google("Jost", "Jost")

showtext_auto()

my_theme <- theme_minimal() +
  theme(plot.title = element_text(family = "Jost", size = 14),
        plot.subtitle = element_text(family = "Jost", size = 12),
        legend.title = element_text(family = "Jost", size = 12),
        legend.text = element_text(family = "Jost", size = 10),
        axis.title = element_text(family = "Jost", size = 14),
        axis.text = element_text(family = "Jost", size = 12),
        strip.text = element_text(family = "Jost", size = 12),
        plot.caption = element_text(family = "Jost", size = 10))

pp <- palmerpenguins::penguins

pp %>% 
  ggplot(aes(x = bill_length_mm, y = bill_depth_mm, color = species)) +
  geom_point(size = 2) +
  facet_wrap(~species) +
  my_theme