渲染多维列联表

Question

我正在寻找有关如何使用Shiny in R渲染多维列联表的建议和建议。

我尝试使用tableoutput和rendertable来渲染使用ftable生成的平面列联表。然而，只有当我在每个轴（x和y）上有单个尺寸时，我能够正确地渲染它。一旦任一轴上的尺寸数量增加，渲染就会消失。 （对于下面的示例，标签在y轴上开始显示为0_3,0_4等，在x轴上开始显示为4_0，4_1等...看起来不太好） 我正在寻找像UI这样的东西。

这是我到目前为止所做的：

UI ：

mainPanel(
    tableOutput("tableDF")
)

服务器 ：

observeEvent(input$inShow, {
    grp_cols <- input$inDimensions
    obs <- main_table$data
    dots <- lapply(grp_cols, as.symbol)
    tableop <- ftable(obs[grp_cols])
    output$tableDF <- renderTable(as.matrix(tableop),rownames = T)
})

但是，如果选择的尺寸超过2个，那么它的当前外观如何（Y轴为2维，Y轴为1）。 （在Y轴上有F_，M_值，用于组合应用了ftable的两个维度Gender和其他属性）

我正在寻找更好的格式化输出，如下图所示，当有超过2个维度时。