Question

我一直在关注如何更改r图形（base和ggplot2）中的字体Winston Chang's excellent tutorial，只要我在图表中不包含任何半透明度，它就能正常工作。下面两个例子是相同的，除了第二个包括参数“col = alpha（”black“，0.5）”。然而，虽然第一个看起来很好并且可以完全缩放，但第二个看起来已经保存为光栅图形（不能很好地缩放）。

使用例如问题时问题仍然存在knitr，但它甚至会导致与图形在同一页面上的所有文本和图形显示为栅格。

这个问题似乎与this question有些相关，但我没有得到与该问题中的海报相同的问题，而那里提出的解决方案并没有解决我的问题。

这有效（因为没有alpha）：

library(extrafont)
font_install("fontcm")
loadfonts()
library(scales)

pdf("plot_cm.pdf", family="CM Roman", width=4, height=4.5)
plot(1:10, 1:10, pch=16)
dev.off()

embed_fonts("plot_cm.pdf", outfile="plot_cm_embed.pdf")

这不是（可能是因为alpha）：

library(extrafont)
font_install("fontcm")
loadfonts()
library(scales)

pdf("plot_cm.pdf", family="CM Roman", width=4, height=4.5)
plot(1:10, 1:10, pch=16, col=alpha("black", 0.5))
dev.off()

embed_fonts("plot_cm.pdf", outfile="plot_cm_embed.pdf")

会话信息：

R version 3.0.2 (2013-09-25)
Platform: i386-w64-mingw32/i386 (32-bit)

locale:
[1] LC_COLLATE=English_United Kingdom.1252  LC_CTYPE=English_United Kingdom.1252   
[3] LC_MONETARY=English_United Kingdom.1252 LC_NUMERIC=C                           
[5] LC_TIME=English_United Kingdom.1252    

attached base packages:
[1] grDevices datasets  splines   graphics  utils     grid      stats     methods   base     

other attached packages:
 [1] extrafont_0.16         xtable_1.7-1           knitr_1.5              dplyr_0.1.1           
 [5] directlabels_2013.6.15 quadprog_1.5-5         lubridate_1.3.3        scales_0.2.3          
 [9] ggthemes_1.6.0         stringr_0.6.2          plyr_1.8               Hmisc_3.14-0          
[13] Formula_1.1-1          survival_2.37-7        lattice_0.20-24        ggplot2_0.9.3.1       
[17] reshape2_1.2.2        

loaded via a namespace (and not attached):
 [1] assertthat_0.1      cluster_1.14.4      colorspace_1.2-4    dichromat_2.0-0     digest_0.6.4       
 [6] evaluate_0.5.1      extrafontdb_1.0     formatR_0.10        gtable_0.1.2        labeling_0.2       
[11] latticeExtra_0.6-26 MASS_7.3-29         memoise_0.1         munsell_0.4.2       proto_0.3-10       
[16] RColorBrewer_1.0-5  Rcpp_0.11.0         Rttf2pt1_1.2        tools_3.0.2

Answer 1

我不确定如何使用extrafont包来解决它，但您可能会尝试showtext，另一个包来处理R图形中的字体。

重现你的情节的代码如下：

# download font file
old = setwd(tempdir())
download.file("http://downloads.sourceforge.net/project/cm-unicode/cm-unicode/0.7.0/cm-unicode-0.7.0-ttf.tar.xz",
    "cm-unicode-0.7.0-ttf.tar.xz")
untar("cm-unicode-0.7.0-ttf.tar.xz", compressed = "xz")
setwd("cm-unicode-0.7.0")

# register font to "showtext" package
library(showtext)
font.add("CM Roman",
         regular = "cmunrm.ttf",
         italic = "cmunti.ttf",
         symbol = "cmunti.ttf")
setwd(old)

# create graphs -- enclose plotting codes by a pair of
# showtext.begin()/showtext.end()
library(scales)
pdf("plot_cm.pdf", width=4, height=4.5)
par(family = "CM Roman")
showtext.begin()

# your example
plot(1:10, 1:10, pch=16, col=alpha("black", 0.5))

# example in Winston Chang's tutorial
curve(dnorm, from=-3, to=3, main="Normal Distribution")
text(x=0, y=0.1, cex=1.5, expression(italic(y == frac(1, sqrt(2 * pi)) *
                                     e ^ {-frac(x^2, 2)} )))

showtext.end()
dev.off()

使用showtext创建的图表应与extrafont非常相似。使用showtext需要采取的步骤基本上是：

查找已安装在系统中或从网上下载的字体文件。
将这些字体注册到showtext。
在一对showtext.begin()和showtext.end()。

希望这可以在某种程度上帮助你。

在半透明的图形中嵌入字体（PDF）

1 个答案: