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

Question

有没有办法将带有 gt package 的列标题旋转 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;
    }
    "
)

Answer 2

看起来这可能还不是gt中的一个特性，因为它仍在队列中作为增强功能。

另一种选择是使用kableExtra （来自此处的代码）：

library(kableExtra)
library(knitr)

kable(head(mtcars), "html") %>%
  kable_styling("striped", full_width = F) %>%
  row_spec(0, angle = -90)

Output

或者使用gridExtra （代码来自这里）：

library(gridExtra)
library(grid)

tt = ttheme_default(colhead=list(fg_params=list(rot=90)))
grid.newpage()
grid.table(head(mtcars), theme=tt)

Output