Определенные шрифты в ggplot2 не сохраняются в pdf. Ошибка

Question

Я пытаюсь сохранить несколько графиков в один PDF, обычно я использую:

# creating pdf from four panels
# these aren't reproducible but any ggplot will recreate error essentially
pdf(file = "Fig.1", height = 14, width = 14)
Fig.1<- grid.arrange(p1,p2,p3,p4)

print(Fig.1)
dev.off()

Однако я хочу использовать определенный шрифт на графиках.

Таким образом, я скачал и установил fontextraпакет, установил и загрузил шрифты loadfonts(device = "win"), Я тогда использую theme(text=element_text(family="Calibri")) в пределах вызова ggplot. Когда я перезапущу код, отдельные графики будут хорошо выглядеть в самом R. Я также могу успешно использовать grid.arrange, используя gridExtra расположить их и проверить их внутри самого R. Тем не менее, когда я использую:

pdf(file = "Fig.4.trw.pdf", height = 14, width = 14)
Fig.4.trw<- grid.arrange(p1,p2,p3,p4)

Я получаю кучу ошибок, связанных со шрифтами:

In grid.Call(C_textBounds, as.graphicsAnnot(x$label),  ... :
font width unknown for character 0x30

Я также пытался использовать ggsave но это тоже не работает, пожалуйста, помогите!

Спасибо