3

用 R 生成的图如果不能正确导出，则不能用于发布。我在 Windows 机器上工作，并使用 MS Word 2016 进行所有写作目的。所以，我希望将我的图导出为 .wmf 文件（我想 .emf 也可以）。

我用 生成所有图表ggplot2，所以 ggsave(device = "wmf")似乎是一个不错的选择，我想。但是，我对生成的文件有一个主要问题：点几何似乎被打印为光栅而不是矢量格式。以下是生成简单散点图的示例：

library (ggplot2)    

plot_data <- data.frame (a = runif (1:20), 
                         b = seq (1:20))

x11 (width =  3, height = 3)

ggplot (data = plot_data, mapping = aes (x = a, y = b)) +
    geom_point () +
    labs (x = "my x-label", y = "my y-label") +
    theme (panel.background = element_blank(),
           panel.border = element_rect (fill = NA, size = 0.7),
           axis.ticks = element_line (color = "black", lineend = "round"),
           axis.ticks.length = unit (2, "mm"),
           axis.text = element_text (color = "black"),
           plot.margin = unit(rep (0, 4), "cm")
           )

我使用以下代码保存绘图： 

ggsave(filename = "my_file.wmf", device = "wmf")

当我在 MS Word 或 Libre Office 中打开绘图时，我发现这些点根本没有以良好的质量呈现。在 Libre Office Draw 中，一个点看起来像这样（放大了很多）：

在此处输入图像描述

在 MS Word 中，绘图如下所示：

在此处输入图像描述

有了这些“点”：

在此处输入图像描述

但是，标签和轴都可以。微软字：

在此处输入图像描述

自由办公室抽奖：

在此处输入图像描述

我想标签、刻度注释和轴（甚至点周围的圆圈）以矢量格式存储，而点几何图形似乎存储为栅格。我担心，由此产生的地块不可用。所以，我想找到一个选项来强制ggsave ()矢量化点几何而不是打印光栅。我非常希望有人能提供帮助——我迫切需要一种简单的方法来从 R 中导出绘图以供发表，以说服我的实验室更多地依赖 R。

4

2 回答 2

4

您可以使用附加 CRAN 包devEMF在 R 中直接创建完全矢量化的 EMF（或 EMF+）文件。这避免了任何需要导出到 SVG 并随后转换为 EMF 的需要。我不确定为什么ggsave(..., device="wmf")调用（它使用窗口 API 生成文件）在这里使用光栅绘图符号，但 devEMF 中的函数肯定使用矢量（我说这既是作为 devEMF 的开发者，又通过放大确认自由办公室）。

安装 devEMF 后，您可以运行原始问题中的示例代码，然后：

library(devEMF)
ggsave(filename = "my_file.emf", device = emf)

注意：emf上面代码中使用的（不带引号）是 devEMF 定义的函数的名称（类似于x11原始问题中使用的）。 "emf"（带引号）将被 ggsave 解释为对使用 windows API 的请求。您希望前者不带引号，而不是后者带引号。

或者，可以替换原始调用x11并直接生成 emf 文件，而无需ggsave：

library (ggplot2)
library (devEMF)

plot_data <- data.frame (a = runif (1:20), 
                         b = seq (1:20))

emf (file = "my_file.emf", width =  3, height = 3)

ggplot (data = plot_data, mapping = aes (x = a, y = b)) +
    geom_point () +
    labs (x = "my x-label", y = "my y-label") +
    theme (panel.background = element_blank(),
           panel.border = element_rect (fill = NA, size = 0.7),
           axis.ticks = element_line (color = "black", lineend = "round"),
           axis.ticks.length = unit (2, "mm"),
           axis.text = element_text (color = "black"),
           plot.margin = unit(rep (0, 4), "cm")
           )

dev.off() #must close device to close file!

根据我的经验，MS Office 对 EMF 和 EMF+ 的支持与 WMF 一样完整，因此生成 EMF 是此用例的合理解决方案。如果遇到兼容性问题，请查看emf函数的 emfPlus* 参数（请参阅参考资料help("emf", package="devEMF")）。

于 2020-06-24T17:56:35.427 回答
1

我没有找到让 WMF 设备正常运行的方法，但您可以保存到 SVG，然后使用 R 通过 Inkscape（您需要单独下载的免费软件）自动从 SVG 转换为 EMF，如下所示：

inkscape_path <-'C:/Program Files/Inkscape/inkscape.exe'
if(!file.exists(inkscape_path)) {
  warning("Could not find inkscape, will not convert to .emf")
} else {
   input_file <- "plot.svg"
   output_file <- "plot.emf"
   system(paste0('"', inkscape_path,'"', ' --file "', input_file, '" --export-emf "', output_file, '"'))
}

（Inkscape 不支持从命令行导出到 WMF，但为了导入 int Office，WMF 和 EMF 应该可以互换）

编辑：不幸的是，您无法从命令行访问某些导出设置（尤其是“将文本转换为路径”选项）。但是，命令行将使用您上次用于导出 WMF 的设置，因此您可以使用所需的设置手动保存一次，然后自动进行进一步的转换。（这是一个已知的限制：https ://bugs.launchpad.net/inkscape/+bug/1747696 ）

于 2020-01-23T12:29:40.840 回答