用 flextable() 正确对齐页脚

【问题标题】：Correctly align footers with flextable()用 flextable() 正确对齐页脚
【发布时间】：2020-11-30 16:40:59
【问题描述】：

有没有一种方法可以对 flextable 对象中的页脚行应用不同的对齐方式？在下面的示例中，我希望页脚行的第一个单元格左对齐，其余单元格居中对齐。谢谢。

library(tidyverse)
df<-data.frame(
  var1=rep(c('A', 'B'), 10),
  var2=rep(c('apples', 'oranges'), 10), 
  var3=rnorm(20),
  var4=rnorm(20), 
  var5=rnorm(20))
library(flextable)
flextable(df) %>% 
  add_footer_row(values=c('nobs', nrow(df), nrow(df), nrow(df)), colwidths=c(2,1,1,1)) %>% 
  align(., align="center", part="footer")

【问题讨论】：

标签： r tidyverse flextable

【解决方案1】：

这就是你所追求的吗？按顺序申请两次align。 align(align = "center", part = "footer")首先将整个页脚居中，然后再次选择您想要的单元格：align(i = NULL, j = 1, align = "left", part = "footer")

library(tidyverse)
library(flextable)
df <- data.frame(
  var1=rep(c('A', 'B'), 10),
  var2=rep(c('apples', 'oranges'), 10), 
  var3=rnorm(20),
  var4=rnorm(20), 
  var5=rnorm(20))
flextable(df) %>% 
  add_footer_row(values = c('nobs', nrow(df), nrow(df), nrow(df)), colwidths=c(2, 1, 1, 1)) %>% 
  align(align = "center", part = "footer") %>% 
  align(i = NULL, j = 1, align = "left", part = "footer")

【讨论】：

就是这样！谢谢，我错过了页脚可能有多行或多列，而 i 和 j 选择器可用于应用于这些表格部分。合乎逻辑，但我错过了。