如何让R垂直打印列名？

Question

我相信有意义的变量名。不幸的是，这通常意味着当我在 R 控制台中查看 data.frame 时，会出现巨大的白色间隙：

有没有办法告诉 R 垂直打印列名，如下所示：

它不需要在控制台中，也许可以通过这种方式将表格绘制为 PDF？

---

可执行代码，由 Ben Bolker 提供：

sample.table <- data.frame(a.first.long.variable.name=rep(1,7),
                           another.long.variable.name=rep(1,7),
                           this.variable.name.is.even.longer.maybe=rep(1,7)
                           )

Answer 1

正如评论中所述，您可以通过 CSS 应用旋转：

library(DT)
df <- mtcars
names(df) <- sprintf('<div style="transform:rotate(-90deg);margin-top:30px;">%s</div>', names(df))
dt <- datatable(df, escape = FALSE)
htmlwidgets::saveWidget(dt, tf<-tempfile(fileext = ".html"))
shell.exec(tf)

这在 RStudio 查看器中不起作用，但在浏览器中起作用：