r - ggplot2 中的“EB Garamond”字体

Question

我在这里按照示例进行操作，但它不起作用。如何更改为“EB Garamont 12”字体？

library(showtext)
library(ggplot2)
font_files()
windows()
font_add_google("EB Garamond")
font_families()
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_set(theme_gray(base_size = 20, base_family = "EB Garamond" )) +
  annotate("text", 1, 11, label = 'GGTT', hjust = 0,
           family = myFont2, size = 10) 
print(a) 

我也这样做了，font_import(paths = NULL, recursive = TRUE, prompt = TRUE,pattern = NULL)但我没有看到EB Garamond家人。

font_import(paths = NULL, recursive = TRUE, prompt = TRUE,pattern = NULL)

#Scanning ttf files in C:\WINDOWS\Fonts ...
#Extracting .afm files from .ttf files...
#C:\Windows\Fonts\arial.ttf : ArialMT already registered in fonts database. Skipping.
#...
#...
#C:\Windows\Fonts\ebrima.ttf : Ebrima already registered in fonts database. Skipping.
#C:\Windows\Fonts\ebrimabd.ttf : Ebrima-Bold already registered in fonts database. Skipping.
#C:\Windows\Fonts\euclid.ttf : Euclid already registered in fonts database. Skipping.
#C:\Windows\Fonts\euclidb.ttf : Euclid-Bold already registered in fonts database. Skipping.
#C:\Windows\Fonts\euclidbi.ttf : Euclid-BoldItalic already registered in fonts database. Skipping.
#C:\Windows\Fonts\euclidi.ttf : Euclid-Italic already registered in fonts database. Skipping.
#C:\Windows\Fonts\eucsym.ttf : EuclidSymbol already registered in fonts database. Skipping.
#C:\Windows\Fonts\eucsymb.ttf : EuclidSymbol-Bold already registered in fonts database. Skipping.
#C:\Windows\Fonts\eucsymbi.ttf : EuclidSymbol-BoldItalic already registered in fonts database. Skipping.
#C:\Windows\Fonts\eucsymi.ttf : EuclidSymbol-Italic already registered in fonts database. Skipping.
#C:\Windows\Fonts\euextra.ttf : EuclidExtra already registered in fonts database. Skipping.
#C:\Windows\Fonts\euextrab.ttf : EuclidExtra-Bold already registered in fonts database. Skipping.
#C:\Windows\Fonts\eufrak.ttf : EuclidFraktur already registered in fonts database. Skipping.
#C:\Windows\Fonts\eufrakb.ttf : EuclidFraktur-Bold already registered in fonts database. Skipping.
#C:\Windows\Fonts\eumat1.ttf : EuclidMathOne already registered in fonts database. Skipping.
#C:\Windows\Fonts\eumat1b.ttf : EuclidMathOne-Bold already registered in fonts database. Skipping.
#C:\Windows\Fonts\eumat2.ttf : EuclidMathTwo already registered in fonts database. Skipping.
#C:\Windows\Fonts\eumat2b.ttf : EuclidMathTwo-Bold already registered in fonts database. Skipping.
#C:\Windows\Fonts\fences.ttf : Fences-Plain already registered in fonts database. Skipping.
#C:\Windows\Fonts\framd.ttf : FranklinGothic-Medium already registered in fonts database. Skipping.
#...

extrafont::loadfonts(device="win") #I can't find EB Garamond

标签： rggplot2fonts

Answer 1

您需要showtext_auto()在绘图之前包含。

library(showtext)
library(ggplot2)

font_add_google("EB Garamond")
windows()

showtext_auto()

ggplot(mtcars, aes(x = wt, y = mpg)) + 
  geom_point() +
  ggtitle("Fuel Efficiency of 32 Cars") +
  xlab("Weight (x1000 lb)") + ylab("Miles per Gallon") +
  theme_set(theme_gray(base_size = 20, base_family = "EB Garamond" )) +
  annotate("text", 1, 11, label = 'GGTT', hjust = 0,
           family = "EB Garamond", size = 10) 

windows 设备现在显示：