在 flextable 中将值分组/合并为 header

Question

我有一个类似于此的数据集

mydf<-data.frame(
  estimate=rep(c("b0","b1","b2"),2),
  linear=rep(c("0.1(0.1)*","0.1(0.1)*",""),2),
  quadratic=rep(c("0.1(0.1)*","0.1(0.1)*","0.1(0.1)*"),2),
  zone=c(rep("A",3),rep("B",3))
)

我想创建一个类似于此flextable结果的pivot_wider ，但每个区域的列线性和二次合并

mydf%>%
pivot_wider(names_from=zone,values_from=c(linear,quadratic))

function merge_v按行执行，但我需要的是将合并的单元格作为合并的标题。

Answer 1

有多种方法，我喜欢这个，因为它适用于 dplyr/tidyr：

mydf<-data.frame(
  estimate=rep(c("b0","b1","b2"),2),
  linear=rep(c("0.1(0.1)*","0.1(0.1)*",""),2),
  quadratic=rep(c("0.1(0.1)*","0.1(0.1)*","0.1(0.1)*"),2),
  zone=c(rep("A",3),rep("B",3))
)

mydf%>%
  pivot_wider(names_from=zone,values_from=c(linear,quadratic)) |> 
  flextable::flextable() |> 
  flextable::separate_header() |> 
  flextable::align(align = "center", part = "all")