在 gt (r) 中对齐列标题

Question

以下代码生成一个表格，其中第一列的 header 居中。 它应该左对齐。 我还没有找到只为这个 header 更改 alignment 的方法。 可以做到吗？

罪魁祸首似乎是tab_spanner 。 如果省略，alignment 工作。

library(tidyverse)

my_df <- structure(list(Bundesland = c("Burgenland", "Kärnten", "Niederösterreich"
), `Positiv M` = c(4065, 4814, 4114), `Positiv W` = c(4013, 5222, 
4128), `Verstorben M` = c(82, 131, 76), `Verstorben W` = c(70, 
115, 69)), row.names = c(NA, -3L), class = c("tbl_df", "tbl", 
"data.frame"))

my_df  %>%
gt() %>%
  fmt_number(columns=2:5,decimals = 0,
             sep_mark = ".",dec_mark = ",") %>%
  tab_spanner("pro 100.000",2:5)

Answer 1

这是最近修复的一个错误，安装开发版后可以使用以下内容： https://github.com/rstudio/gt/issues/607

library(devtools)

devtools::install_github('rstudio/gt')

my_df  %>%
  gt() %>%
  fmt_number(columns=2:5,decimals = 0,
             sep_mark = ".",dec_mark = ",") %>%
  cols_align(columns = 1,
             align = "left") %>% 
  tab_spanner("pro 100.000",2:5) 

假设这是您的预期结果：