使用 flextable() 正确对齐页脚

Question

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

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")

Answer 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")

使用 flextable() 正确对齐页脚

Correctly align footers with flextable()

r

flextable

tidyverse