我有一个类似这样的dataframe：

library(gt)
library(tidyverse)
library(gtExtras)

test = dplyr::tibble(
  id = 1:3,
  type1_value1 = 2:4,
  type1_value2 = 3:5,
  type2_value1 = 4:6,
  type2_value2 = 5:7)

我实际上只想有扳手，但没有col_lables，这似乎不起作用，当我尝试它：

test %>%
  gt() %>%
  tab_spanner(
    label = "span1",
    columns = c(2:3)) %>%
  tab_spanner(
    label = "span2",
    columns = c(4:5)) %>%
  tab_options(column_labels.hidden = TRUE)

扳手就是不会出现。如果你知道什么是错误的解决方案，请给予我一个提示。我现在试着解决这个问题，只是重命名了每一列，没有名字。

test %>%
  gt() %>%
  tab_spanner(
    label = "span1",
    columns = c(2:3)) %>%
  tab_spanner(
    label = "span2",
    columns = c(4:5)) %>%
  cols_label(id = "", type1_value1 = "", type1_value2 = "", 
             type2_value1 = "", type2_value2 = "") 
  
  cols_label(id = "", type1_value1 = "", type1_value2 = "", 
             type2_value1 = "", type2_value2 = "")

我真实的的df有200多列。我如何一次重命名它们？它们都应该获得空名称“”。
谢谢你的帮助