Зміна шрифтів у ggplot2

Question 1

Колись я змінив 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"

Але це після того, як я побіг, font_import()і я можу лише зробити висновок, що мої шрифти зберігаються не в потрібному місці. Код, який виконував font_import()запит, насправді завантажує бібліотеки:

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

Question 2

Ви щойно пропустили крок ініціалізації.

Ви можете побачити, які шрифти у вас є в команді windowsFonts(). Наприклад, мій виглядає так, коли я почав розглядати це:

> windowsFonts()
$serif
[1] "TT Times New Roman"

$sans
[1] "TT Arial"

$mono
[1] "TT Courier New"

Після встановлення пакета extraFont і запуску font_importтаким чином (це зайняло близько 5 хвилин):

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

У мене було ще багато доступних - спірних забагато, безумовно занадто багато, щоб перерахувати тут.

Потім я спробував ваш код:

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"))
print(a)

даючи це:

Оновлення:

Ви можете знайти назву шрифту, необхідного для familyпараметра, element_textз таким фрагментом коду:

> names(wf[wf=="TT Times New Roman"])
[1] "serif"

І потім:

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="serif"))
print(a)

врожайність:

Question 3

Інший варіант - використовувати showtextпакет, який підтримує більше типів шрифтів (TrueType, OpenType, Type 1, веб-шрифти тощо) та більше графічних пристроїв, а також уникає використання зовнішнього програмного забезпечення, такого як Ghostscript.

# install.packages('showtext', dependencies = TRUE)
library(showtext)

Імпортуйте деякі шрифти Google

# https://fonts.google.com/featured/Superfamilies
font_add_google("Montserrat", "Montserrat")
font_add_google("Roboto", "Roboto")

Завантажте шрифт із поточного шляху пошуку в showtext

# Check the current search path for fonts
font_paths()    
#> [1] "C:\\Windows\\Fonts"

# List available font files in the search path
font_files()    
#>   [1] "AcadEref.ttf"                                
#>   [2] "AGENCYB.TTF"                           
#> [428] "pala.ttf"                                    
#> [429] "palab.ttf"                                   
#> [430] "palabi.ttf"                                  
#> [431] "palai.ttf"

# syntax: font_add(family = "<family_name>", regular = "/path/to/font/file")
font_add("Palatino", "pala.ttf")

font_families()
#> [1] "sans"         "serif"        "mono"         "wqy-microhei"
#> [5] "Montserrat"   "Roboto"       "Palatino"

## automatically use showtext for new devices
showtext_auto()

Сюжет: потрібно відкрити графічний пристрій Windows, оскільки showtextвін погано працює з вбудованим графічним пристроєм RStudio

# https://github.com/yixuan/showtext/issues/7
# https://journal.r-project.org/archive/2015-1/qiu.pdf
# `x11()` on Linux, or `quartz()` on Mac OS
windows()

myFont1 <- "Montserrat"
myFont2 <- "Roboto"
myFont3 <- "Palatino"

library(ggplot2)

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 = myFont1)) +
  annotate("text", 4, 30, label = 'Palatino Linotype',
           family = myFont3, size = 10) +
  annotate("text", 1, 11, label = 'Roboto', hjust = 0,
           family = myFont2, size = 10) 

## On-screen device
print(a)

## Save to PNG 
ggsave("plot_showtext.png", plot = a, 
       type = 'cairo',
       width = 6, height = 6, dpi = 150)  

## Save to PDF
ggsave("plot_showtext.pdf", plot = a, 
       device = cairo_pdf,
       width = 6, height = 6, dpi = 150)  

## turn showtext off if no longer needed
showtext_auto(FALSE)

Змінити : ще одне обхідне рішення для використання showtextв RStudio. Запустіть наступний код на початку сеансу R ( джерело )

trace(grDevices::png, exit = quote({
    showtext::showtext_begin()
}), print = FALSE)

Question 4

Проста відповідь, якщо ви не хочете встановлювати нічого нового

Змінити всі шрифти у вашому сюжеті plot + theme(text=element_text(family="mono"))Де monoзнаходиться вибраний вами шрифт.

Список параметрів шрифту за замовчуванням:

мононуклеоз
sans
засечка
Кур'єр
Гельветика
Часи
AvantGarde
Букмекер
Гельветика-Вузька
NewCenturySchoolbook
Палатіно
URWGothic
URWBookman
NimbusMon
URWHelvetica
NimbusSan
NimbusSanCond
СтоліттяЩ
URWPalladio
URWTimes
NimbusRom

R не має великого покриття шрифтів, і, як зазначає Майк Вайз , R використовує різні назви для загальних шрифтів.

Ця сторінка детально розглядає шрифти за замовчуванням.

Question 5

Пізніше до партії, але це може становити інтерес для тих , хто хоче , щоб додати користувацькі шрифти їх ggplotsвсередині shinyпрограми на shinyapps.io.

Ти можеш:

Місце для користувача шрифтів в wwwкаталозі: наприклад , IndieFlower.ttfз тут
Виконайте кроки звідси

Це призводить до наступного верхнього розділу всередині app.Rфайлу:

dir.create('~/.fonts')
file.copy("www/IndieFlower.ttf", "~/.fonts")
system('fc-cache -f ~/.fonts')

Повний приклад програми можна знайти тут .

Question 6

Щоб змінити шрифт глобально для графіків ggplot2.

theme_set(theme_gray(base_size = 20, base_family = 'Font Name' ))