Reputation: 103
Is there a way to rotate by 90 degrees the column headers with the gt package and make them vertical?
Thanks in advance!
Upvotes: 3
Views: 1480
Reputation: 34601
As Andrew has noted, there's not yet a built-in way of doing this but you can use custom CSS to style the table, although you may need to do some additional fine tuning of the elements to get it to look ok.
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;
}
"
)
Upvotes: 6
Reputation: 16856
It looks like this might not be a feature yet in gt
, as it is still in the queue as an enhancement.
Another option would be to use kableExtra
(code from here):
library(kableExtra)
library(knitr)
kable(head(mtcars), "html") %>%
kable_styling("striped", full_width = F) %>%
row_spec(0, angle = -90)
Output
Or using gridExtra
(code from here):
library(gridExtra)
library(grid)
tt = ttheme_default(colhead=list(fg_params=list(rot=90)))
grid.newpage()
grid.table(head(mtcars), theme=tt)
Output
Upvotes: 1