修改ggplot2中的字体

Question

我正在寻找一种修改 ggplot 中字体类型的方法。目前，我很乐意简单地将字体更改为“courier”字体系列，但最终我的目标是调用自定义字体模板 - 对于后一点的任何输入都将非常感激。

我做了一些功课，查看了以下帖子和文章：

• ggplot2：如何更改 geom_text 中标签的字体
• R新闻卷6/2， PostScript 和 PDF 中的非标准字体 图解，默雷尔和里普利。
• ggplot2 图形中的 ComputerModern 字体？

这可能是因为我对 ggplot2 仍然是一个无可救药的业余爱好者，但我什至无法将图表字体切换为 courier。有什么帮助吗？我在下面包含了相关图表的数据以及代码，因此希望这一切都很容易理解。

Answer 1

对于我的钱来说，这似乎是最简单的解决方案。

有些在 df 中播放数据，并制作成一个简单的图表“p”，带有漂亮的长 x 和 y 标签，因此我们可以看到字体变化：

df <- data.frame(A = rnorm(10), B = rnorm(10))
p = ggplot(data = df, aes(x = A, y = B)) + geom_point()
p = p + xlab("A long x-string so we can see the effect of the font switch")
p = p + ylab("Likewise up the ordinate")

并且我们以任何字体查看默认绘图：

p 

现在我们切换到 Optima ，添加一些漂亮的标题和副标题来沐浴 Optima 的荣耀：

label = "Now we switch to Optima"
subtitle = "Optima is a nice font: https://en.wikipedia.org/wiki/Optima#Usages"

毕竟，我们以新字体打印

# the only line you need to read:
p + theme(text = element_text(family = "Optima", , face = "bold"))
p = p + ggtitle(label = label, subtitle = subtitle)
p

Answer 2

我认为你的答案很好，但你可以做得更简单：

install.packages("extrafont");library(extrafont)
font_import("Trebuchet MS")
library(ggplot2)
qplot(1:10)+theme(text=element_text(family="Trebuchet MS"))

Answer 3

以相当小的麻烦解决了我的查询。这是一个分两步走的解决方案，如果不遵循回复成员的建议，我就不可能达成这一方案。

为了更改 ggplot 文本默认值，我修改了 Brandon 向我推荐的代码：

http ://johndunavent.com/combined-line-and-bar-chart-ggplot2

John Dunavent 在其中创建了一个函数 theme_min，可以对其进行编辑以提供 ggplot 的默认选项，包括使用从 Windows 导入的字体使用 windowsFonts 命令。我对他的代码的改编如下所示：

theme_min = function (size=10, font=NA, face='plain', 
    panelColor=backgroundColor, axisColor='#999999', 
    gridColor=gridLinesColor, textColor='black') 
{
    theme_text = function(...)
        ggplot2::theme_text(family=font, face=face, colour=textColor, 
            size=size, ...)

opts(
    axis.text.x = theme_text(),
    axis.text.y = theme_text(),
    axis.line = theme_blank(),
    axis.ticks = theme_segment(colour=axisColor, size=0.25),
    panel.border = theme_rect(colour=backgroundColor),
    legend.background = theme_blank(),
    legend.key = theme_blank(),
    legend.key.size = unit(1.5, 'lines'),
    legend.text = theme_text(hjust=0),
    legend.title = theme_text(hjust=0),
    panel.background = theme_rect(fill=panelColor, colour=NA),
    panel.grid.major = theme_line(colour=gridColor, size=0.33),
    panel.grid.minor = theme_blank(),
    strip.background = theme_rect(fill=NA, colour=NA),
    strip.text.x = theme_text(hjust=0),
    strip.text.y = theme_text(angle=-90),
    plot.title = theme_text(hjust=0),
    plot.margin = unit(c(0.1, 0.1, 0.1, 0.1), 'lines'))
}

##Create a custom font type. Could be 'F', 'TEST', whatever
windowsFonts(F = windowsFont('Wide Latin'))

##and insert this line of code into the original code I list above: 
+ theme_min(font='F', size=10) 

尴尬的是，（我发现）在创建绘图之前没有办法一般修改 geom_text 对象的字体设置。不过，詹姆斯的上述解决方案对此非常有效。我没有使用标准字体，而是设置了 fontfamily="F" 来引入我在 theme_min() 中选择的自定义字体，即：

grid.gedit("GRID.text",gp=gpar(fontfamily="F"))

希望这对希望修改图表上字体的任何其他用户有用。

向所有帮助我解决这个问题的人干杯！
亚伦

Answer 4

看看 theme_text() 的家族参数

dummy <- data.frame(A = rnorm(10), B = rnorm(10))
ggplot(dummy, aes(x = A, y = B)) + geom_point()
#helvetica = default
ggplot(dummy, aes(x = A, y = B)) + geom_point() + opts(axis.title.x = theme_text(family = "sans", face = "bold"))
#times
ggplot(dummy, aes(x = A, y = B)) + geom_point() + opts(axis.title.x = theme_text(family = "serif", face = "bold"))
#courier 
ggplot(dummy, aes(x = A, y = B)) + geom_point() + opts(axis.title.x = theme_text(family = "mono", face = "bold"))

Answer 5

灵感来自 kohske 博客上的一篇文章我想出了这个：

theme_set( theme_bw( base_family= "serif"))

theme_update( panel.grid.minor= theme_blank(),
             panel.grid.major= theme_blank(),
             panel.background= theme_blank(),
             axis.title.x= theme_blank(),
             axis.text.x= theme_text( family= "serif",
               angle= 90, hjust= 1 ),
             axis.text.x= theme_text( family= "serif"),
             axis.title.y= theme_blank())

theme_map <- theme_get()

theme_set( theme_bw())

现在当我想使用那个特定的主题：

last_plot() + theme_map

YMMV。

顺便说一句，如果我有权力，我会投票否决首选答案：

> grid.gedit("GRID.text",gp=gpar(fontfamily="mono"))
Error in editDLfromGPath(gPath, specs, strict, grep, global, redraw) :
  'gPath' (GRID.text) not found

不确定这意味着什么。我也没有提供评论该答案的链接；也许网站上发生了一些变化。

Answer 6

您可以使用 grid.gedit 设置由 geom_text 生成的标签的字体：

grid.gedit("GRID.text",gp=gpar(fontfamily="mono"))

在生成原始绘图后调用此方法。

Answer 7

另请查看 Cairo 软件包，它支持将所有字体完全切换为您选择的字体。 http://rforge.net/doc/packages/Cairo/00Index.html