时间戳

首页 > 解决方案 > 用 flextable() 正确对齐页脚

r - 用 flextable() 正确对齐页脚

问题描述

有没有办法可以将不同的对齐方式应用于 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")

标签： rtidyverseflextable

解决方案

这就是你所追求的吗？申请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")

推荐阅读