验证 R 中的字体可用性

Question

我的 OS 上安装了字体，因此这段代码运行良好：

library(tidyverse)
library(extrafont)
iris %>% ggplot(aes(Sepal.Length,Sepal.Width, color = Species)) + 
  geom_point(size = 2) + 
theme(
  text = element_text(family = "Metropolis")
)

强制报错（注意我写的是"metropolis"，不是"Metropolis"）：

iris %>% ggplot(aes(Sepal.Length,Sepal.Width, color = Species)) + 
  geom_point(size = 2) + 
theme(
  text = element_text(family = "metropolis")
)

这给了我一个错误，这没关系，因为字体 "metropolis" 不存在。

Error in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y,  : 
  polygon edge not found

在 R 中是否安装了某种字体之前，有没有一种方法可以验证？提前谢谢你。

Answer 1

您已经在使用 extrafont 包，因此您可以使用 fonts() 查看注册的字体。要检查特定字体是否可用，您可以执行以下操作：

library(extrafont)

"metropolis" %in% fonts()

[1] FALSE

验证 R 中的字体可用性

Verify font availability in R

r

ggtext