R Kable：旋转列分组中的文本

Question

我想在kable-latex表中包装并旋转HEADER列标题。我可以使用列规格来控制列的宽度，但是我需要使用标题将表中的列分组，而标题是我要旋转和包装的名称。我的表格的一个非常基本的示例如下。

example <- data.frame(name="testname", score1=3, score2=2, score3=0)

table <- kable(example, format="latex", escape = F) %>%   
column_spec(1:4, width = "5em") %>%   
add_header_above(c(" " = 1, "Rhyme Product" = 2, "Sound ID Middle" = 1)) %>%   add_header_above(c(" " = 1, "Exploring Words" = 2, "Early Skills" = 1), bold = T)

我想翻转第一组列分组（Rhyme Product和Sound ID Middle）在它们的侧面（角度= -45），然后将文本包装在两条单独的行上，占用更少的空间。这可能吗？