弹性格式数字列blockweise

Question

我想一起格式化一些列。 在下面的示例中，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)
  )

Answer 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