我不认为flextable会接受不在页眉/页脚位置的页眉/页脚，但这并不是说我们不能通过编程方式将类似的行添加到表中。

第一步：定义新的标题（我就称之为子标题）以及它们应该插入的位置：

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

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

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)
}

第三步：将原始 Dataframe 通过函数传递，并对结果进行美化：

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中的值将使您能够将其调整为其他 Dataframe 。