0

使用 packageflextable并阅读不同的帮助页面,我找不到如何按照 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()orpadding以后可能会产生各种格式问题,或者编辑可能会抱怨它不对应于正确的双倍间距(例如,它不会响应手动更改间距,因此很难通过传统方式进行更改)。

还是我们希望在导出后手动更改为 Word 中的双倍行距?谢谢你。

4

1 回答 1

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

在此处输入图像描述

于 2020-08-25T12:53:29.127 回答