如何使用 R 包 gt 旋转列标题？

Question

有没有办法使用 gt 包将列标题旋转 90 度并使它们垂直？

提前致谢！

Answer 1

正如 Andrew 所指出的，目前还没有内置的方法来执行此操作，但您可以使用自定义 CSS 来设置表格的样式，尽管您可能需要对元素进行一些额外的微调才能使其看起来正常。

library(gt)

head(mtcars) %>%
  gt(id = "mygt") %>%
  tab_options(column_labels.padding = px(15),
              column_labels.padding.horizontal = px(7)) %>%
  cols_align("center", everything()) %>%
  opt_css(
  css = "
    #mygt .gt_col_heading {
      text-align: center;
      transform: rotate(-90deg);
      font-weight: bold;
    }
    "
)