Выход параметризованного PDF-файла R Markdown с использованием механизма xelatex не удалось скомпилировать при включении ggplot

Я использую R Markdown для массового создания параметризованных отчетов в формате PDF. У меня нет проблем с запуском каждого фрагмента кода и без проблем с созданием одного PDF-файла. Но когда я запускаю функцию lapply() внизу, три (переменная «cut» в наборе данных по бриллиантам имеет пять категорий) PDF-файлов генерируются успешно, но я застрял на четвертом, «Очень хорошо». Вместо этого я получаю сообщения об ошибках:

ЧТО Я ПРОБОВАЛ:

Я переустановил R, RStudio, tinytex и все пакеты, используемые в моем коде. Я определил, что проблема как-то связана с фрагментом кода ggplot — следовательно, все пять PDF-файлов будут успешно сгенерированы, если я исключим этот фрагмент кода.

ОБНОВЛЯТЬ:

1. Как указано ниже, сбой при запуске функции lapply() вызван пробелом в «Очень хорошо» и, возможно, из-за того, что система Windows не может справиться с пустым пространством в имени пути. Но это не может объяснить, почему код застрял на уровне «Очень хорошо» ТОЛЬКО КОГДА Я ВКЛЮЧАЮ СЮЖЕТ, другими словами, когда я вынимаю фрагмент кода графика, старый код lapply() работает для «Очень хорошо» и других категорий в моем параметр «обрезка». Буду признателен, если кто-нибудь сможет разобраться в этой проблеме.
2. Некоторые из нас получают новое сообщение об ошибке, касающееся спецификации шрифта. говоря, что для спецификации шрифта требуется «xelatex или laulatex», но я уже определил «latex_engine: xelatex» в своем YAML. Я был бы очень признателен, если бы люди также могли указать на эту проблему или сообщить мне, есть ли какой-либо другой способ изменить шрифт по умолчанию на пользовательский шрифт, такой как «Times New Roman», другим способом обойти эту проблему со спецификацией шрифта?

КОД:

Ниже приведено все, что есть в моем текущем файле «testing_for_stackoverflow.Rmd», что приводит к сообщению об ошибке спецификации шрифта:

---
output: 
  pdf_document:
    latex_engine: xelatex
tables: true
graphics: yes
header-includes:
  - \usepackage{booktabs}
  - \usepackage{fontspec}
  - \usepackage{graphicx}
  - \usepackage{amsmath}
  - \setmainfont{Times New Roman} 
  - \newcommand{\bcenter}{\begin{center}} 
  - \newcommand{\ecenter}{\end{center}}
params:
  cut: "Very Good"
---
\fontsize{10}{12}
\selectfont

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE,
                      warning = FALSE,
                      message = FALSE,
                      fig.align = 'center',
                      include = TRUE,
                      tinytex.tlmgr_update = FALSE,
                      results='asis',
                      fig.dim = c(7, 2.5))
pacman::p_load(tidyverse)

```


## I'm using "diamonds" dataset and cut is my parameter

```{r}
filter(diamonds, cut == params$cut) %>%
  ggplot(aes(color, price)) +
  geom_boxplot()

```

```{r}
kableExtra::kable(head(filter(diamonds, cut == params$cut))) 
```

Запустите этот код в консоли, чтобы создать несколько выходных файлов:

library(tidyverse)
lapply(unique(diamonds$cut), function(i) {
  rmarkdown::render(input = "testing_for_stackoverflow.Rmd",
                    params = list(cut = i),
                    rmarkdown::pdf_document(),
                    output_dir = "out/",
                    output_file = paste0(i, ".pdf"))
})