繁体   English   中英

R Shiny中是否有提供多个列名和行名的库?

Any library in R Shiny which provides multiple columnnames and rownames?

提示:本站收集StackOverFlow近2千万问答,支持中英文搜索,鼠标放在语句上弹窗显示对应的参考中文或英文, 本站还提供   中文繁体   英文版本   中英对照 版本,有任何建议请联系yoyou2525@163.com。

我正在寻找R中的库,它可以生成图片中附带的结果,即多个列名和行名 目前,我出于相同的目的使用rpivotTable和DT :: Datatable库 ,并使用它们来构建ShinyApp

但是我面临的问题是使用ShinyApp 将输出导出到excel ,这可能是错误的重复标题或跳过标题 例如,当我按照下面的代码下载Iris的输出时,我没有得到Sepal和Petal的顶部标题。

我需要这个

X

library(shiny)
library(DT)

iris<-iris[,c(5,1:4)]

ui =basicPage(
tags$head(
tags$style(type = "text/css",
           HTML("th { text-align: center; }")
)
),

selectInput(inputId = "Species", 
          label = "Species:",
          choices = c("All",
                      unique(as.character(iris$Species)))),


h2('Iris Table'),
DT::dataTableOutput('mytable')
)


server = function(input, output) {
output$mytable = DT::renderDataTable({

  # a custom table container
  sketch = htmltools::withTags(table(
    class = 'display',
    thead(
      tr(
        th(rowspan = 2, 'Species'),
        th(colspan = 2, 'Sepal'),
        th(colspan = 2, 'Petal')
      ),
      tr(
        lapply(rep(c('Length', 'Width'), 2), th)
      )
    )
  ))

  DT::datatable(filter = "top",  rownames = FALSE, container = sketch,
                extensions = 'Buttons',
                escape = FALSE,
                options = list(dom = 'Bfrtip',
                               buttons = 
                                 list('colvis', list(
                                   extend = 'collection',
                                   buttons = list(list(extend='csv',
                                                       filename = 
'hitStats'),
                                                  list(extend='excel',
                                                       filename = 
'hitStats'),
                                                  list(extend='pdf',
                                                       filename= 
'hitStats'),
                                                  list(extend='copy',
                                                       filename = 
'hitStats'),
                                                  list(extend='print',
                                                       filename = 
'hitStats')),
                                   text = 'Download'
                                 )),
                               scrollX = TRUE,
                               pageLength = nrow(iris),
                               order=list(list(2,'desc'))),               


                 {

                   data<-iris

                   if(input$Species != 'All'){
                     data<-data[data$Species == input$Species,]
                   }



                   # data<-data[,c("Species",input$columns),drop=FALSE]
                   # 

                   data

                 })

})
}


shinyApp(ui = ui, server = server)
问题暂未有回复.您可以查看右边的相关问题.
3 读入矩阵,R中没有行名和列名

我想读入R中的以下矩阵,但是放弃行和列的名称: 我这样做: 但是,结果“ m”仍然具有行和列名称。 我如何摆脱它们? 出于某种原因,在使用 产生: ...

2014-11-01 22:33:22 1 10015   r/ matrix
4 R中的列名和行名匹配

R中的新手。 我确实有另一个数据框中的列,它们的名称与下面的b $ Seasons的级别相同。 假设dataX $ Winter,dataX $ Summer,dataX $ Spring和dataX $ Fall。 如果列dataX $ Summer在数据框b的Seasons的行名中 ...

6 如何更改R中不同矩阵的列表的列名和行名,每个矩阵具有唯一的列名和行名?

所以我有一个样品清单。 每个样本都有自己的矩阵文件,自己的行名称文件和自己的列名称文件。 到目前为止,我有读取每个文件的循环(例如,读取所有矩阵的循环,读取所有行名称的循环以及读取所有列名称的循环)。 我的印象是,先创建矩阵,然后再更改事实,然后更改列和行名称是一种好习惯,但是当我拥有一系列与一个 ...

2021-03-10 06:09:54 0 14   r/ matrix
10 在R中的表中添加额外的列名和行名?

我有一个表,我从table()函数生成,我进一步使用xtable打印它如下: 我想以下面的格式添加一个额外的列名和一个rowname。 我看了xtable但找不到任何东西。 colnames()更改现有列的名称,rownames()对rownames执行相同操作。 ...

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2022 STACKOOM.COM