ggplot2：模糊的刻面标签

Question

当我保存ggplot数字时 - 无论我使用ggsave()还是例如png() - 小平面标签看起来模糊不清。例如，以下代码生成一个小平面标签“F”，如下图所示，并在文本栅格的外部像素上着色。

ggplot(data.frame(x=1, y=1, f='F'), aes(x, y)) +
    facet_grid(. ~ f)
ggsave('foo.png')

提前感谢任何建议！

PS - 按照@Brian的要求，我正在更新这篇文章，注意我正在使用Windows机器。

PPS - 我正在更新我的帖子，这一次是为了澄清我计划将这个数字插入Word。因此，根据@Masoud指出的this post的建议＃4，我想使用基于像素的格式（例如PNG）而不是基于矢量的格式（例如PDF）。

Answer 1

尝试禁用抗锯齿

默认（石英）：

ggsave('foo.png', antialias="none")：

Answer 2

尝试保存为基于矢量的格式，例如ggplot(data.frame(x=1, y=1, f='F'), aes(x, y)) + facet_grid(. ~ f) ggsave('foo.eps', device = 'eps') ：

ggplot(data.frame(x=1, y=1, f='F'), aes(x, y)) +
  facet_grid(. ~ f)
ggsave('foo.jpeg', device = 'jpeg',dpi = 5000)

或者，您可以将图像另存为.jpeg，并使用dpi选项增加每英寸点数。

?ggsave

有多种质量较高的格式，您可以通过运行 With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False 'only allows the user to select one file ' Set the title of the dialog box. .Title = "Select the File." 'Put any text to help the user choose the correct file 'clear filters then add pptx filter .Filters.Clear .Filters.Add "PowerPoint files", "*.pptx" ' This can be any file extension to filter the choices ' Show the dialog box. If the .Show method returns True, the ' user picked at least one file. If the .Show method returns ' False, the user clicked Cancel. If .Show = True Then fxname = .SelectedItems(1) End If End With Set opres = Presentations.Open(fxname, False, False, True) 'opres is the variable for the choosen file opres.Windows(1).Activate 'Activates that presentation.

来查看具体内容