以编程方式将单元格值传递给 GT tab_header 中的标题

Question

我想使用特定列中的值作为 gt 表的标题。
标题列中的所有行都具有相同的字符值。
如何引用 tab_header 中的列

我想这样做是因为我正在从一个大型数据框中制作许多表，每个表都有不同的标题

这是示例数据

d <- data.frame(
          organism=c("Grasshopper", "Bumblebee", "MycoTB"), 
          protein=c("Jumpylegs", "venom-1", "rpoB"), 
          accession=c("Gr1,Gr2,Gr3", "Bbv4,Bbv5,Bbv6", "Mtb1,Mtb2,Mtb3,Mtb4,Mtb5"), 
          title = c("mytitle", "mytitle", "mytitle")
)

这是我的代码

d %>%
          gt() %>%
          tab_header(
                    title = # here I want to get the text from the title column, somthing like .$title[1]
                
          )

Answer 1

d %>%
  gt() %>%
  tab_header(
    title = .$`_data`$title[1]
  )

当您将数据转换为gt对象时，您可以使用 访问列表中的数据元素_data。

这给了我们：