Я пытаюсь сохранить несколько графиков в один 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, но это тоже не работает, пожалуйста, помогите!
Спасибо