用flextable加倍空间表的最佳方法？

Question

使用包 flextable 并阅读不同的帮助页面，我找不到如何按照 APA 的要求将整个表格加倍（行）空间。

有hrule()的选项：

ft_1 <- flextable(head(iris))
ft_1 <- height(ft_1, height = 1, part = "body")
ft_1 <- height(ft_1, height = 1, part = "head")
ft_1 <- hrule(ft_1, rule = "exact", part = "body")
ft_1 <- hrule(ft_1, rule = "exact", part = "head")
ft_1

或padding():

ft_1 <- flextable(head(iris))
ft_1 <- padding(ft_1, padding = 20, part = "all")
ft_1

但是在这两种情况下，当我在 Word 中签入时，它都不对应双（行）间距（那里仍然是单间距）。

问题

是否有更好的选择来确保它 100% 对应于双行间距（Word 中的“行和段落间距”）？

我假设使用 hrule() 或 padding 可能会在以后产生各种格式问题，或者编辑可能会抱怨它不对应于正确的双倍间距（例如，它不会响应手动更改间距之后很难通过常规方式进行更改）。

或者我们希望在导出后手动更改为 Word 中的双倍行距？谢谢。

Answer 1

我创建了一个名为 line_spacing (flextable >= 0.5.11) 的新函数。它应该做你想做的事：

ft_1 <- qflextable(head(iris))
ft_1 <- line_spacing(ft_1, space = 1.5, part = "all")
ft_1