flextable：系统地更改多个 headers' 标签

Question

我想用 one-liner 更改 S_1 到 S_4，而不是在 set_header_label.

中全部输入

`

我是怎么化妆的ft1

ft1 <- head(iris) %>%
  flextable() %>%
set_header_labels(
  values = list(
    Sepal.Length = "S_1",
    Sepal.Width = "S_2",
    Petal.Length = "S_3",
    Petal.Width = "S_4"
  )
)

one-liner

的大致思路

ft1 %>%
  set_header_labels(
  values = list(list(S_1:S_4) = list(paste("\U03A3", c(1:4), sep = "_"))))

Answer 1

我认为一种方法是单独创建一个命名列表，然后在set_header_labels中使用。让我知道这是否是您要找的。

library(dplyr)
library(flextable)

my_list <- setNames(as.list(paste0("S_", 1:4)), names(iris[1:4]))

ft1 <- head(iris) %>%
  flextable() %>%
  set_header_labels(values = my_list)

flextable：系统地更改多个 headers' 标签

flextable: systematically change multiple headers' labels

r

header

flextable