121

曾几何时，我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 时代新罗马”

$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()))
4

5 回答 5

159

我认为您只是错过了一个初始化步骤。

您可以使用命令查看可用的字体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)

产量： 在此处输入图像描述

于 2015-12-30T11:21:27.633 回答
53

另一种选择是使用showtext支持更多字体类型（TrueType、OpenType、Type 1、网络字体等）和更多图形设备的软件包，避免使用外部软件，如 Ghostscript。

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

导入一些谷歌字体

# 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)

编辑 2：从 0.9 版开始，showtext 可以很好地与 RStudio 图形设备 (RStudioGD) 配合使用。只需调用showtext_auto()RStudio 会话，绘图就会正确显示。

于 2018-08-18T06:41:42.823 回答
21

如果您不想安装任何新东西，一个简单的答案

更改绘图中的所有字体 您选择的字体在plot + theme(text=element_text(family="mono"))哪里mono。

默认字体选项列表：

  • 单核细胞增多症
  • 无
  • 衬线
  • 导游
  • 黑尔维提卡
  • 时代
  • 前卫
  • 布克曼
  • Helvetica-窄
  • 新世纪教科书
  • 帕拉蒂诺
  • URWG 哥特式
  • URWBookman
  • 雨云蒙
  • URWHelvetica
  • NimbusSan
  • NimbusSanCond
  • 世纪学校
  • URWP帕拉迪奥
  • 环球时报
  • NimbusRom

R 没有很好的字体覆盖率，正如Mike Wise指出的那样，R 对常见字体使用不同的名称。

此页面详细介绍了默认字体。

于 2020-05-13T13:10:04.080 回答
6

派对迟到了，但这对于希望在 shinyapps.io 上ggplots的应用程序内部添加自定义字体的人来说可能会感兴趣。shiny

你可以：

  1. 将自定义字体放在www目录中：例如IndieFlower.ttf从这里
  2. 按照此处的步骤操作

这导致文件内的以下上部app.R：

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

可以在此处找到完整的示例应用程序。

于 2019-03-14T09:37:09.823 回答
3

全局更改 ggplot2 绘图的字体。

theme_set(theme_gray(base_size = 20, base_family = 'Font Name' ))
于 2020-07-19T17:48:02.343 回答