-1

我已经搜索和搜索，只是找不到合适的例子。我并不是一个真正的开发人员，所以我可能遇到了我需要的答案，但只是不明白。

我正在使用 R 来操作/分析一些数据，然后使用 flex-dashboard 作为输出在 Rmarkdown 中生成报告。我有一个包含几列的宽表（即，这些列是应用程序名称和数据中心位置，然后我会显示每个站点中每个应用程序的主机名计数），并且想倾斜/旋转其中一些，以便表格更具可读性并且更适合页面。

我不接受任何一种解决方案；我已经使用 kable、xtable、htmltable 等寻找答案，但似乎找不到我需要的东西。我只是想把一些表格列名转成一个角度。

我没有提供任何可重现的数据，因为它不是关于数据，而是关于表格输出的格式。寻找任何建议。非常感谢。

4

1 回答 1

0

如果您的表有数千行，我不建议pixiedust您这样做，因为随着表的增长，字符串操作可能需要很长时间。但如果你不到几百，这应该是一个合理的选择。

library(shiny)
library(pixiedust)

options(pixiedust_print_method = "html")

shinyApp(
  ui = shinyUI(
    fluidPage(
      uiOutput("table")
    )
  ),

  server = shinyServer(function(input, output, session){

    output$table <- 
      renderUI({
        dust(mtcars) %>%
          sprinkle_colnames(mpg = "Miles per Gallon",
                            cyl = "Cylinders") %>%
          sprinkle(rotate_degree = -45,
                   height = 70,
                   height_units = "pt",
                   part = "head") %>%
          sprinkle(pad = 3) %>%
          medley_bw() %>%
          print(asis = FALSE) %>%
          HTML()
      })
  })
)
于 2017-06-13T13:59:51.630 回答