通过用户定义的函数格式化多个弹性表列

Question

有没有办法以百万为单位显示弹性表格中的数值？

我不想在创建弹性表之前将数据集中的数字除以 1000000。

例如，我想将数字 1983445678 显示为 1,983 或 1,983.4 或 1,983.4€

如果没有，是否可以实现一个新函数，可能类似于 set_formatter 或 colformat_num 允许您使用用户定义的函数格式化多个列？

由于我的数据集中的某些列是在运行时动态生成的（例如，在使用扩展函数之后），我不能使用函数 set_formatter 来格式化新列，因为我还不知道列的名称，当我写代码。当然，我可以在运行时检测到这个名称，因此有一个函数可以使用用户定义的函数来格式化这些新列，并在输入中接受要格式化为字符串的列的名称。

应该是这样的：

my_data %>%
regulartable %>%
col_format_by_udf(j = c("Europe", "Asia", "Australia"), million_format)

...或类似的东西：

my_data %>%
regulartable %>%
col_format_num_by_udf(million_format)

所有数字列的格式都以百万为单位

谢谢！

Answer 1

目前，我定义了一个函数来解决我的问题。如果可以将类似的，可能更详细的内容直接插入到 flextable 包中，将会很有用。

colformat_num_udf <- function(table, j = NULL, udf_function_name = NULL) {

  if (is.null(udf_function_name) | is.null(table))
    return(table)

  if (is.null(j))
    input_columns <- names(table$body$dataset)
  else if(is.numeric(j))
    input_columns <- names(table$body$dataset)[j]
  else
    input_columns <- j

  numeric_columns <- table$body$dataset %>% select_if(is.numeric) %>% names() %>% intersect(input_columns)

  if (length(numeric_columns) == 0)
    return(table)

  rExpression = paste0("table <- set_formatter(table,`", numeric_columns, "` = ", udf_function_name, ")")
  eval(parse(text = rExpression))

  table
}

Answer 2

你可以试试这个代码：

library(magrittr)

dummy_fun <- function(x){
  sprintf("%0.02f", x*1000+pi)
}
funs <- setNames(rep(list(fun), 4), names(iris)[-5])
flextable(head(iris)) %>% 
  set_formatter(values = funs)