R - семейство и цвет шрифта в экспорте png

Question

Я строю некоторые значения и экспортирую графики в png, используя базу R. Я хочу принудительно установить семейство шрифтов в Calibri с определенным оттенком серого. Когда я делаю это в интерактивном режиме в RStudio, все работает нормально, но это не переводится в экспортированный PNG. Что здесь не так?

myfont <- 'Calibri'
mycol <- '#4B4B4D'
par(family=myfont, fg=mycol, col=mycol, col.axis=mycol, col.lab=mycol, col.main=mycol, col.sub=mycol)
plot(x=c(1:10), y=rep(1, 10)) # cool, works fine
# export to png
png('d:/working/example.png', units="in", 16, 9, pointsize=12, res=300, family=myfont)
plot(x=c(1:10), y=rep(1, 10)) # nope, not myfont and not mycol
dev.off()

Экспорт вручную через окно графика RStudio, кстати, работает, но мне это не подходит.

Answer 1

О, боже ... если бы все было так просто. R различает устройства при использовании par(...), что означает, что оно должно быть установлено ПОСЛЕ png(...). Это работает:

library(extrafont)
loadfonts(device='win')
myfont <- 'Calibri'
mycol <- '#4B4B4D'
png('d:/working/example.png', units="in", 16, 9, pointsize=12, res=300, family=myfont, type='windows')
# NOW set font and colors
par(family=myfont, fg=mycol, col=mycol, col.axis=mycol, col.lab=mycol, col.main=mycol, col.sub=mycol)
# Initiate plot
plot(x=c(1:10), y=rep(1, 10))
dev.off()