cols_label in gt table 内部函数

Question

是否有将 cols_label 中的列名称作为字符串的解决方案？

喜欢

fun <- function( df,column, label )
{
  df %>%
    gt() %>%
    cols_label( column = label)
  
}


fun( mtcars,"cyl", "cylinder")

Answer 1

使用 curly-curly 运算符。

library(gt)

fun <- function(df, column, label)
{
  df %>%
    gt() %>%
    cols_label({{column}} := label)
}

fun(mtcars, "cyl", "cylinder")

或者，您可以使用 .list 参数。这将处理列向量。

library(gt)

fun <- function(df, column, label)
{
  cols_list = as.list(label) %>% purrr::set_names(column)
  
  df %>%
    gt() %>%
    cols_label(.list = cols_list)
}

fun(mtcars, "cyl", "cylinder")
fun(mtcars, c("cyl", "hp"), c("cylinder", "horsepower"))

cols_label in gt table 内部函数

cols_label in gt table inside function

r

gt