r - 强制 ggsave 对 .wmf 文件中的点几何图形进行矢量化
问题描述
用 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。
解决方案
您可以使用附加 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")
)。
推荐阅读
- django - 使用详细视图在 django 模板中显示数据
- docker - 在 k8s deployment.yml 中使用 ConfigMap 填充 mountPath
- java - 请求关注 JavaFX 阶段不会更改 macOS 左上角菜单栏标题
- mysql - InnoDB x-locks 在 READ COMMITTED 隔离级别
- javascript - 无限滚动网页
- python - xmltodict:ExpatError:语法错误:第 1 行,第 0 列,从 QuickGO 获取 xml
- html - border-bottom CSS 规则不会在鼠标关闭时转换,但会在悬停时转换
- javascript - 如何在带有溢出的div中正确放置文本:隐藏?
- machine-learning - 训练和测试数据必须具有完全相同的特征吗?
- python - 如何在 django 表单的查询集上使用切片?