在flextable中添加表头

Question

我正在尝试使用flextable制作一个漂亮的表格，可以在Word中进行排版，并且具有全面的描述性横幅/标题

示例数据：

trialdata<-structure(list(` ` = c("Number per team", "Average height", "vegetarian", 
"meat", "carrot", "cucumber", "orange", 
"banana", "pepper", "tangerine", "Average Score", 
"Range Score", "Number of children", "Number of parents", 
"Number of grandparents"), `year 1` = c("20", "2", 
"25", "12", "4", "7", 
"7", "37", "21", "3", 
"-0.3", "78 : 1", "61", "19", 
"39"), `Year 2` = c("98", "28.2", "23", 
"1", "8", "6", "1", 
"36", "2", "29", "-0.2", "3 : 2", 
"6", "18", "9"), `Year 3` = c("88", 
"28.2", "24", "1", "1", "4", 
"91", "3", "24 ", "2", 
"-0.2", "7 : 2", "58", "1", 
"8")), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, 
-15L))

制作一个表格：

  install.packages("flextable")
library(flextable)
table1<-flextable(trialdata)

这将制作一个类似下图的表格，只有一个标题

但是我想添加一些描述性标题，例如“喜爱的食品”。这不是数据中已有的“分组”，而是我想使表格更清晰的附加文本，例如如下所示：

Flex表格有添加页眉和页脚的方法，但我找不到在表格中添加页眉类型对象的方法。

- Gabriella

Answer 1

我可以想到一个使用 as_grouped_data() |> as_flextable() 的解决方案：

library(flextable)
trialdata <- structure(list(` ` = c(
  "Number per team", "Average height", "vegetarian",
  "meat", "carrot", "cucumber", "orange",
  "banana", "pepper", "tangerine", "Average Score",
  "Range Score", "Number of children", "Number of parents",
  "Number of grandparents"
), `year 1` = c(
  "20", "2",
  "25", "12", "4", "7",
  "7", "37", "21", "3",
  "-0.3", "78 : 1", "61", "19",
  "39"
), `Year 2` = c(
  "98", "28.2", "23",
  "1", "8", "6", "1",
  "36", "2", "29", "-0.2", "3 : 2",
  "6", "18", "9"
), `Year 3` = c(
  "88",
  "28.2", "24", "1", "1", "4",
  "91", "3", "24 ", "2",
  "-0.2", "7 : 2", "58", "1",
  "8"
)), class = c("tbl_df", "tbl", "data.frame"), row.names = c(
  NA,
  -15L
))

trialdata$group <- c(rep("blah", 4), rep("Favorite foods", 11))

as_grouped_data(trialdata, groups = "group") |> 
  as_flextable() |> 
  align(i = ~ !is.na(group), align = "center")

还有其他解决方案，比如使用tabulator()，但是对于这个，数据应该是整洁的。

- David Gohel

Answer 2

我认为flextable不接受不在页眉/页脚位置的标题/页脚，但这并不意味着我们不能通过编程将外观类似的行添加到表格中。

步骤1：定义新的标题（我只是称它们为子标题）以及它们应该插入的位置：

sub.headers <- c("favourite foods", "other details")
insert.after <- c(4, 10)

步骤 2: 定义一个函数，将它们作为新行插入到输入的表中，并输出结果：

process.data <- function(df, lab, pos) {
  lab <- rev(lab)
  pos <- rev(pos)
  for(i in seq_along(pos)) {
    # split data frame at insert location
    df1 <- df[seq(1, pos[i]), ]
    df2 <- df[seq(pos[i] + 1, nrow(df)), ]

    # create new data frame with same column names, but with the sub-header
    # as the value for 1st column
    df.add <- df %>% slice(1)
    df.add[1, 1] <- lab[i]

    # combine the result
    df <- rbind(df1, df.add, df2)
  }
  return(df)
}

步骤三：将原始数据框传递给函数并美化结果：

header.pos <- insert.after + seq.int(length(insert.after))
border.format <- officer::fp_border(width = 2)

trialdata %>%
  process.data(lab = sub.header,
               pos = insert.after) %>%
  flextable() %>%
  merge_h_range(i = header.pos, 
                j1 = 1, j2 = ncol(trialdata)) %>%
  bold(i = header.pos) %>%                            # bold
  hline(i = header.pos, border = border.format) %>%   # add line below
  hline(i = header.pos - 1, border = border.format)   # add line above

结果：

更改步骤1中的值将使您能够适应其他数据框。

- Z.Lin