tab_spanner 返回列不存在

Question

我正在尝试使用 gt 包创建一个 table。现在，当我尝试将 spanner 添加到 table 时，代码 returns 出错。

gt_tbl =
  gt(data = merged.dfs) %>%
  tab_header(
    title = "Two sample K-S Test Statistics for 2004") %>%
  tab_spanner(
    label = "Pair 1 (VIC SC and PCA SC)",
    columns = c(D.Max.04.p1, p.value.04.p1)
  ) %>%
  tab_spanner(
    label = "Pair 2 (VIC SCB1 and PCA SCB1)",
    columns = c(D.Max.04.p2, p.value.04.p2)
  )

错误

Error: Can't subset columns that don't exist.
x Column `0.19` doesn't exist.

请注意，当我运行以下代码时， table 被创建，并且可以看到这些列确实存在。如何修复此错误？

gt_tbl =
      gt(data = merged.dfs) %>%
      tab_header(
        title = "Two sample K-S Test Statistics for 2004")

Answer 1

正在评估 columns 参数，因此代码正在寻找名称等于 merged.dfs$D.Max.04.p1 和 merged.dfs$p.value.04.p1 值的列，因此它是第一列寻找的是 merged.dfs[=15=].19。您可以通过两种方式修改列参数：

使用带引号的字符串：

columns = c("D.Max.04.p1", "p.value.04.p1")

使用vars函数（如?tab_spanner的示例所示）

 columns = vars(D.Max.04.p1, p.value.04.p1)

当然，同样的更改也需要应用于第二个 tab_spanner 调用。

tab_spanner 返回列不存在

tab_spanner returning column does not exist

r

gt