Quarto--ggplot2 conflict in changing fonts in ggplot2

[jrkrideau]

In looking at this problem Quarto Windows font database warning - #2 by jrkrideau I decided I'd like to see the output in pdf rather than html. I think I am hitting some conflict between Quarto or pandoc and ggplot2

This simple R script works

suppressMessages(library(tidyverse))
dat1  <- data.frame(xx = 1:12, yy = 12:1)
ggplot(dat1, aes(xx, yy)) + geom_line()  +
  theme(text=element_text(size=16,  family="Lobster Two"))

Moving to a .qmd document I am bombing badly. All suggestion gratefully received.

---

---
title: "Font usage"
author: "jrkrideau"
format: pdf
---
 It was a dark and stormy night.
```{r libraries}
#| include: false
library(tidyverse)
```
```{r  data}
#| echo: false
dat1  <- data.frame(xx = 1:12, yy = 12:1)
```

 
```{r  plot}
#| echo: false
ggplot(dat1, aes(xx, yy)) + geom_line() +
   theme(text=element_text(size=16,  family="Lobster Two"))
```