Однажды я изменил свойggplot2 шрифт с использованиемwindowsFonts(Times=windowsFont("TT Times New Roman")) изменить это. Теперь я не могу от этого избавиться.

В попытке установитьfamily="" вggplot2 theme() Я не могу сгенерировать изменение шрифтов, так как я компилирую MWE ниже с разными семействами шрифтов.

library(ggplot2)
library(extrafont)
loadfonts(device = "win")

a <- ggplot(mtcars, aes(x=wt, y=mpg)) + geom_point() +
        ggtitle("Fuel Efficiency of 32 Cars") +
        xlab("Weight (x1000 lb)") + ylab("Miles per Gallon") +
        theme(text=element_text(size=16, 
#       family="Comic Sans MS"))
#       family="CM Roman"))
#       family="TT Times New Roman"))
#       family="Sans"))
        family="Serif"))


print(a)
print("Graph should have refreshed")

R возвращает предупреждениеfont family not found in Windows font database, но был учебник, которому я следовал (если я смогу найти его снова, я обновлю ссылку здесь), в котором говорилось, что это нормально, а не проблема. Кроме того, как-то это сработало в какой-то момент, потому что мой график однажды использовал какой-то шрифт типа arial или helvitica. Я думаю, что это всегда было настоящим предупреждением даже во время начальной миграции.

ОБНОВИТЬ

когда я бегуwindowsFonts() мой вывод

$ serif [1] "TT Times New Roman"

$ sans [1] "TT Arial"

$ mono [1] "TT Courier New"

Но это после того, как я побежалfont_import() поэтому я могу только заключить, что мои шрифты не сохраняются в нужном месте. Код, который запускалfont_import() запрос на самом деле загружает библиотеки с:

LocalLibraryLocation <- paste0("C:\\Users\\",Sys.getenv("USERNAME"),"\\Documents","\\R\\win-library\\3.2");
    .libPaths(c(LocalLibraryLocation, .libPaths()))