r - Flextable R：添加标题后如何保持列宽

Question

我有一个包含两列的小标题：

library('flextable')
library("tidyverse")

df <- tibble('Long' = "Long Long Long Long Long Text", 
             'Short' = 'Short Text')

转换为弹性表：

ft <- flextable(data = df,
                theme_fun = theme_zebra)

所以，我有一个包含两个相等列的表：

现在我使左列比左列宽：

ft <- ft %>%
    width(j = 1,
          width = 4) %>%
    width(j = 2,
          width = 1)

接下来我添加一个标题：

ft <- ft %>%
   add_header_row(values = "Header", colwidths = 2)

如您所见，我现在有了具有相同宽度的标题和列的 flextable。并且格式不再有帮助。如何更改列的宽度？

标签： rflextable