如何避免PowerPoint转Google Slides时dml对象内容移位？

问题原因 #

Google Slides对Office DrawingML（rvg包dml函数生成的格式）的文本布局解析存在兼容性缺陷，尤其是非通用字体、复杂文本样式的处理逻辑与Office不一致。即使设置editable=FALSE，dml仍会生成结构化的文本元素，转换时容易出现移位、错位问题。

解决方案 #

1. 标准化字体与ggplot主题（保留可编辑性） #

指定Google Slides原生支持的通用字体（如Arial、Calibri），同时统一ggplot的文本样式、边距和对齐方式，减少解析时的歧义：

library(tidyverse)
library(officer)
library(rvg)

template <- read_pptx()

# 定义兼容Google Slides的主题，统一字体、大小和边距
compatible_theme <- theme_minimal() +
  theme(
    text = element_text(family = "Arial", size = 10),
    plot.title = element_text(hjust = 0.5, size = 12, margin = margin(b = 10)),
    axis.title.x = element_text(margin = margin(t = 8)),
    axis.title.y = element_text(margin = margin(r = 8)),
    axis.text = element_text(size = 8)
  )

test_plot <- ggplot(mtcars, aes(x = mpg, y = gear)) +
  geom_line() +
  ggtitle("this is test plot") +
  compatible_theme

test_deck <- template %>%
  add_slide(layout = "Title Slide", master = "Office Theme") %>%
  ph_with(test_plot, 
          location = ph_location(height = 4.1, width = 10, left = .5, top = 2)) %>%
  add_slide(layout = "Title Slide", master = "Office Theme") %>%
  ph_with(
    dml(
      ggobj = test_plot, 
      editable = TRUE,
      # 强制dml使用兼容字体
      fonts = list(sans = "Arial", serif = "Times New Roman", mono = "Courier New")
    ), 
    location = ph_location(height = 4.1, width = 10, left = .5, top = 2)
  )

print(test_deck, "test powerpoint dml vs ggplot.pptx")

2. 矢量文本转路径（显示一致但文本不可编辑） #

若仅需图形元素可编辑，不需要修改文本内容，可启用vectorize_text=TRUE，将文本转为图形路径，彻底避免Google Slides解析文本时的移位问题：

# 替换dml部分的代码
ph_with(
  dml(
    ggobj = test_plot, 
    editable = FALSE,
    vectorize_text = TRUE
  ), 
  location = ph_location(height = 4.1, width = 10, left = .5, top = 2)
)

3. 强制保持图形比例 #

确保dml对象导出时严格保留ggplot的原始宽高比，避免缩放导致的布局偏移：
在dml()中添加preserve_aspect_ratio = TRUE参数，或在ph_location()中设置与ggplot匹配的宽高比。

总结 #

优先尝试方案1，既能保留dml对象的可编辑性，又能最大程度兼容Google Slides；若对文本编辑需求较低，方案2可彻底解决显示错乱问题。

内容的提问来源于stack exchange，提问作者J.Sabree