R 官员构建列名和替换的 set_header_labels 列表

Question

officer set_header_labels function 指定一个名称来打印替换列名，像这样。

ft <- set_header_labels(ft,

values = list( Sepal.Length = "萼片长度", Sepal.Width = "萼片宽度", Petal.Length = "花瓣长度", Petal.Width = "花瓣宽度" )

我想构造一对列名并动态替换。 例如我有

cols_names <- c("colname1", "colnametitle1")
cols_titles <- c("colname2", "colnametitle2")

我希望这些是 output 作为

值=列表（colname1 =“colnametitle1”，colname2 =“colnametitle1”）

这对于列名和标题对来说很接近

paste0(cols_names, ' = "', cols_titles, '", "' )

但是必须有一些我还没有想出的更简单的操作列表的方法。

Answer 1

不幸的是paste0将不起作用，因为set_header_labels的values参数需要一个命名list 。 但是您可以使用setNames来这样做。

使用基于iris的最小可重现示例：

library(flextable)

dat <- head(iris[1:2])
names(dat) <- c("colname1", "colname2")

ft <- flextable(dat)

cols_names <- c("colname1", "colname2")
cols_titles <- c("columntitle1", "columntitle2")

values <- setNames(cols_titles, cols_names)

ft <- set_header_labels(ft,
  values = values
)

ft