用 flextable 加倍 space table 的最佳方法？

Question

使用包 flextable，并从不同的帮助页面阅读，我找不到如何 double (line) space 整个 table，根据 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

用 flextable 加倍 space table 的最佳方法？

Best way to double space table with flextable?

r

flextable

line-spacing

问题