如何将Shiny中的纵向数据表转换为横向排列？

要把asdf_lm$fitted生成的单列表格改成单行，核心是把拟合值向量转成单行数据框，直接修改renderTable里的代码就行：

• 基础写法：

  output$table2 <- renderTable({
    # 转置向量为单行数据框
    as.data.frame(t(asdf_lm$fitted))
  })
  

• 自定义列名（可选）：
  如果不想用默认的列名（比如V1、V2...），可以手动设置：

  output$table2 <- renderTable({
    fitted_row <- as.data.frame(t(asdf_lm$fitted))
    # 给每列命名，比如"拟合值1"、"拟合值2"
    colnames(fitted_row) <- paste0("拟合值", 1:ncol(fitted_row))
    fitted_row
  })
  

• 隐藏列名（可选）：
  如果不需要显示列名，加个参数就行：

  output$table2 <- renderTable({
    as.data.frame(t(asdf_lm$fitted))
  }, colnames = FALSE)
  

原理很简单：asdf_lm$fitted本身是个数值向量，默认转数据框时会被拆成单列多行；用t()转置后，就变成了单行多列的结构，刚好适配横向屏幕显示。

内容的提问来源于stack exchange，提问作者LaryHedge