R ggplot2:如何避免在PDF中切断标题和轴标签？

Question

我有一些困难，获得PDF版本的我的情节，以显示标题和轴标签。它们在RStudio绘图窗口中显示得很好，但在PDF中却被切断。我尝试了一些东西，包括不同的页边距设置、pdf()函数和dev.off()，但是不管我尝试什么，都会得到相同的结果。知道我哪里出问题了吗？

library(ggplot2)

#Plot
par(mar=c(6, 6, 6, 2))
ggplot(data = paymentsNY, aes(x = Average.Covered.Charges/1000, y = 
Average.Total.Payments/1000, alpha = 0.25))+ 
geom_point()+
xlab("Mean covered charges ($'000s)")+
ylab("Mean total payments ($'000s)")+
ggtitle("Mean covered charges and mean total payments - NY")+
theme(title = element_text((size = 16)))+
theme(legend.position = "none")+
geom_smooth(method = "lm")

#Write plot as PDF
ggsave("payments_NY.pdf")

谢谢

Answer 1

不久前我回答了一个相似问题。我在这里给出了答案。

首先，您必须使用命令windowsFonts()确定可用的字体(在RStudio中执行此命令)。我的绘图设备中的当前字体是；

> windowsFonts()
$serif
[1] "TT Times New Roman"

$sans
[1] "TT Arial"

$mono
[1] "TT Courier New"

之后，您可以导入字体外库和loadfonts(device = "win")。我还建议在R控制台而不是在RStudio中执行这些命令。我建议这样做，因为在使用font_import()在RStudio中导入字体时，它可能不会显示y/n提示符。

其次，给出了一个最小可重现性的例子；

 library(ggplot2)
 library(extrafont)
 # tell where ghostscript is located. This is required for saving the font in pdf
 Sys.setenv(R_GSCMD = "C:\\Program Files\\gs\\gs9.21\\bin\\gswin64c.exe") # I have installed 64-bit version of GhostScript. This is why I've used gswin64c.exe. If you have installed 32-bit version of GhostScript, use gswin32c.exe. Failure to specify the correct installed GhostScript will yield error message, "GhostScript not found"
 # create a plot object
p <- ggplot(mtcars, aes(x=wt, y=mpg)) + 
geom_point()+
ggtitle("Fuel Efficiency of 32 Cars")+
xlab("Weight (x1000 lb)") + ylab("Miles per Gallon") +
theme_bw()+
theme(text=element_text(family="ArialMT", size=14))
# show the plot
print(p)

# save the plot as pdf  
ggsave("figures//ggplot_arialmt.pdf", p, width=20, height=20, 
   device = "pdf", units = "cm")

它的ArialMT字体似乎只适用于ggsave()。看这个所以贴。使用任何其他字体保存为pdf，呈现的数字与字符之上的另一个。这也是一个用于ggsave的公开发行，自2013年以来一直没有得到解决。