export::graph2office 移动轴标签

我在 R (RStudio) 中绘制了图ggplot2。当我通过导出它们时export::graph2office，标签四处移动。但是，只有当我指定标签的字体时才会发生这种情况。

library (ggplot2)
library (export)    


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"),
                      text = element_text (size=18,  
                                family="ChantillyLH", 
                                color = "black")
               )

graph2office (file = "my_graph", type = "DOC")

Here, you can see the graph in R (to the right) and the exported graph in word (to the left):

在此示例中，y 标签的不良行为更为明显，但 x 标签也移动了一点。我想知道是否有办法解决这个问题。

例如，当我指定另一个字体系列时，也会发生同样的情况family="Comic Sans MS":

EDIT: it even happens when no textcommand is given:

答案可能是：是的，export::graph2office移动轴标签（也是如此export::graph2pptand export::graph2doc）。没有办法解决这个问题。如果您想在 R 中设置图表样式并将其按原样导出到 Office 中，export::graph2office不幸的是，函数不是你的选择。然而，该功能当然可以用作生成可编辑办公图表的快速而肮脏的选项。

如果您的目标是以更可靠的方式导出图表，CairoSVG可能是一个更好的选择（请参阅我的回答：在 R 中生成适合在 Word 2007 中打印的矢量图形图像（即图元文件）).