R中gt表创建stub时报错no applicable method for 'group_vars'如何解决？

错误原因 #

gt()函数仅支持输入原始数据框/tibble类型的对象，你当前代码里的employtable1已经是gt包生成的gt_tbl类型对象，重复传入gt()函数就会触发方法不匹配的报错。

修复方案 #

根据你的使用场景二选一即可：

• 如果你还未构造过gt表格，employtable1原本应该是存储职位数据的原始数据框：
  先重置employtable1为你最初生成的原始数据框，再运行以下代码，注意不要把原始数据和gt表格用同一个变量存储，避免混淆：

  # 基于原始数据框生成gt表格
  employtable_gt <- employtable1 %>%
    gt(rowname_col = "job") %>%
    tab_stubhead(label = "Employment Status")
  # 调用变量即可查看生成的表格
  employtable_gt
  

• 如果你已经生成过employtable1这个gt表格，只是需要修改stub头内容：
  不需要重复调用gt()函数，直接对已有的gt表格调用修改方法即可：

  employtable1 <- employtable1 %>%
    tab_stubhead(label = "Employment Status")
  

内容的提问来源于stack exchange，提问作者AnSri