下面是一个示例代码，展示了如何使用Flextable按列分组：

library(flextable)
library(dplyr)

# 创建一个数据框
df <- data.frame(
  group = rep(c("A", "B", "C"), each = 10),
  var1 = rnorm(30),
  var2 = rnorm(30),
  var3 = rnorm(30)
)

# 按照group列分组
grouped_df <- df %>% group_by(group) %>% summarise_all(mean)

# 创建Flextable对象
ft <- flextable(grouped_df)

# 设置表格样式
ft <- theme_box(ft, border = "none")
ft <- theme_ft(ft, theme = "default")

# 添加表格标题
ft <- add_header_lines(ft, "按列分组的Flextable")

# 显示表格
ft

这段代码首先加载了flextable和dplyr包，然后创建了一个包含group、var1、var2和var3列的数据框df。接下来，使用dplyr包中的group_by和summarise_all函数按照group列分组，并计算每个分组的所有列的平均值，生成一个新的数据框grouped_df。

然后，我们使用grouped_df创建了一个Flextable对象ft。通过调用theme_box和theme_ft函数，我们设置了表格的样式，使其没有边框，并使用默认的主题。

然后，我们使用add_header_lines函数添加了一个表格标题。

最后，通过调用ft显示了表格。