如何在R中的flextable中灵活添加标题行名称？

Question

我正在尝试制作一个根据用户输入自动生成灵活表的功能，并且我希望标题尽可能不重复。 例如，当前列名是：

raw_names <- c("name", "V1_avg", "V1_median", "V2_avg", "V2_median", "V3_avg", "V3_median")

对于此表，我希望顶部标题具有变量名称（V1、V2、V3），而子标题在相应变量下方为 Avg 和 Med。 顶部标题中不会有任何名称（请参见下面的代码）

如果我要手动明确说明，我知道如何执行此操作，但我希望此功能灵活，因为有时数据集可能具有 V4 或 V5。 输入将始终如上所示，但它可能具有不同数量的变量。

让我感到困惑的是，对于这些主要标题，您需要指定标题行的长度，但我不确定会有多少变量：

library(flextable)
    add_header_row(colwidths = c(1, 2, 2, 2),
                   values = c(NA_character_, "V1", "V2", "V3"))

有什么想法吗？

Answer 1

如果您的raw_names将始终遵循相同的模式，也许像这样准备add_header_row()参数：

col_widths_vect <- function(names_vect) c(1, rep(2, (length(names_vect) - 1) / 2))

col_vals_vect <- function(names_vect) {
  return(
    c(
      NA_character_,
      names_vect[2:length(names_vect)] |>
        sub("_.*", "", x = _) |>
        unique()
    )
  )
}

raw_names <- c("name", "V1_avg", "V1_median", "V2_avg", "V2_median", "V3_avg", "V3_median")
col_widths_vect(raw_names)
#> [1] 1 2 2 2
col_vals_vect(raw_names)
#> [1] NA   "V1" "V2" "V3"

Answer 2

我创建了一个名为separate_header的函数（目前仅在 github 上可用）。 它使用data.table::tstrsplit()来做你想做的事情。

x <- data.frame(
  Species = as.factor(c("setosa", "versicolor", "virginica")),
  Sepal.Length_mean = c(5.006, 5.936, 6.588),
  Sepal.Length_sd = c(0.35249, 0.51617, 0.63588),
  Sepal.Width_mean = c(3.428, 2.77, 2.974),
  Sepal.Width_sd = c(0.37906, 0.3138, 0.3225),
  Petal.Length_mean = c(1.462, 4.26, 5.552),
  Petal.Length_sd = c(0.17366, 0.46991, 0.55189),
  Petal.Width_mean = c(0.246, 1.326, 2.026),
  Petal.Width_sd = c(0.10539, 0.19775, 0.27465)
)

ft_1 <- flextable(x)
ft_1 <- colformat_double(ft_1, digits = 2)
ft_1 <- theme_box(ft_1)
ft_1 <- separate_header(
  x = ft_1,
  opts = c("span-top", "bottom-vspan")
)
ft_1