r - 在 R 的 gt 表中创建存根时出错 - 导致错误

Question

我正在尝试调整 gt 表employtable1并创建具有各种 Job 角色的存根。出于某种原因，我在运行命令时遇到错误，我不太确定为什么或如何修复它。我确信这是一个相当简单的修复程序，而且我是 R 的新手，但如果能帮助解决这个问题，我将不胜感激。我附上了一个链接，其中包含当前表输出的图片和下面的变量名称。

gt 表输出

这也是错误时输出的样子。

> employtable1
> employtable1 <-
+   employtable1 %>%
+   gt(rowname_col = "job") %>%
+   tab_stubhead(label = "Employment Status")
Error in UseMethod("group_vars") : 
  no applicable method for 'group_vars' applied to an object of class "c('gt_tbl', 'list')"

在此先感谢您的帮助！

标签： rdebugginggt

Answer 1

鉴于您没有提供如何制作数据框的结构，很难看到。鉴于您的错误代码，我假设发生的情况是，无论您如何制作数据，它都不是数据框或表格形式，您需要运行 gt 表。在这里，我已将您图片中的数据重建为一个可以工作的数据框：

# Load libraries:
library(gt)

# Create data frame from scratch:
job <- c("Working During the Pandemic",
         "Not Working During the Pandemic",
         "Job Affected by the Pandemic",
         "Student",
         "None of the Above",
         "N/A")

concern_infect_me <- c(1.00,
                       1.26,
                       1.07,
                       1.20,
                       0.75,
                       1.68)
concern_infect_else <- c(1.00,
                         1.21,
                         1.00,
                         1.32,
                         0.89,
                         1.57)
concern_discrim <- c(1.00,
                     1.32,
                     0.86,
                     2.52,
                     0.83,
                     1.43)
concern_finance <- c(1.00,
                     0.89,
                     0.59,
                     3.20,
                     0.90,
                     1.31)
concern_econ <- c(1.00,
                  1.18,
                  0.82,
                  0.97,
                  0.62,
                  1.09)
concern_govt <- c(1.00,
                  0.97,
                  0.99,
                  0.93,
                  0.69,
                  1.49)
employtable1 <- data.frame(job,
           concern_infect_me,
           concern_infect_else,
           concern_discrim,
           concern_finance,
           concern_econ,
           concern_govt)

然后我只是对您的代码做了同样的事情，但将其更改为一个新表，employtable2：

# Create gt table:
employtable2 <-
  employtable1 %>%
  gt(rowname_col = "job") %>%
  tab_stubhead(label = "Employment Status")

# Print table:
employtable2

创建此表：