gpt4 book ai didi

r - 强制 ggsave 对 .wmf 文件中的点 geom 进行矢量化

转载 作者:行者123 更新时间:2023-12-04 01:38:16 28 4
gpt4 key购买 nike

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

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

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 中,一个点看起来像这样(放大了很多):

enter image description here

在 MS Word 中,绘图如下所示:

enter image description here

有了这些“点”:

enter image description here

然而,标签和坐标轴没问题。微软字:

enter image description here

自由办公室抽奖:

enter image description here

我假设标签、刻度注释和轴(甚至点周围的圆圈)以矢量格式存储,而点几何似乎以栅格形式存储。恐怕生成的图不可用。所以,我想找到一个选项来强制 ggsave () 对点 geom 进行矢量化而不是打印光栅。我非常希望有人能提供帮助 - 我迫切需要一种简单的方法来从 R 中导出绘图以供发布,以说服我的实验室更多地依赖 R。

最佳答案

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

安装 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"))。

关于r - 强制 ggsave 对 .wmf 文件中的点 geom 进行矢量化,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/58607860/

28 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com