弹性表格格式数字列块

【问题标题】：flextable format numerical columns blockweise弹性表格格式数字列块
【发布时间】：2019-08-16 15:09:25
【问题描述】：

我想一起格式化一些列。在以下示例中，var1 和 var2 使用相同的格式。是否可以为一组列设置格式命令？

library(tidyverse)
library(flextable)
my_tibble <- tibble(var1=round(1:5,1),var2=round(11:15,1),var3=var2/100)
my_tibble %>% flextable() -> tab
tab %>%
  set_formatter(
    var1=function(x)sprintf("%.0f",x),
    var2=function(x)sprintf("%.0f",x),
    var3=function(x)sprintf("%.2f",x)
  )

【问题讨论】：

标签： r flextable

【解决方案1】：

是的，使用colformat_* 函数之一：

library(tidyverse)
library(flextable)
my_tibble <- tibble(var1=round(1:5,1),var2=round(11:15,1),var3=var2/100)
my_tibble %>% 
  flextable() %>% 
  colformat_num(col_keys = c("var1", "var2"), digits = 0) %>% 
  colformat_num(col_keys = c("var3"), digits = 2)

您可以在此处阅读更多相关信息： https://davidgohel.github.io/flextable/articles/display.html#simple-functions-for-formatting-content

【讨论】：