r - 在 gt (r) 中对齐列标题

Question

以下代码生成一个表格，其中第一列的标题居中。它应该左对齐。我还没有找到一种方法来改变这个标题的对齐方式。可以做到吗？

罪魁祸首似乎是tab_spanner。如果省略，则对齐有效。

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

这是最近修复的一个bug，安装dev版本后可以使用如下：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) 

假设这是您的预期结果：