1

我想rownames在过滤数据表后从 1,2,3... 重新开始计数。可能吗？

这是简单的代码：

library(shiny)
library(DT)
library(ggplot2)

x <- as.numeric(1:1000)
y <- as.numeric(1:1000)
data <- data.frame(x,y)

shinyApp(
  ui = fluidPage(dataTableOutput('tbl'),
                 plotOutput('plot1')),
  server = function(input, output) {
    output$tbl = renderDataTable({
      datatable(data, filter = "top", rownames=TRUE,options = list(
        pageLength = 300, lengthMenu = c(100,200,300,400,500,600)
      ))
    })
    output$plot1 = renderPlot({
      filtered_data <- input$tbl_rows_all
      ggplot(data = data[filtered_data, ], aes(x = x,y = y)) + geom_line()
    })
  }
)

例如，如果我过滤列 x 以从 50-... 中获取值，我希望rownames（在这种情况下）不以 50,51.. 开始，而是以 1,2...

谢谢你的帮助！

4

1 回答 1

1

Datatables文档有一个如何在此处执行此操作的示例。您可以使用 javascript 代码和datatable回调参数：

   output$tbl = renderDataTable({
                        datatable(data, filter = "top", rownames=TRUE,options = list(
                                pageLength = 300, lengthMenu = c(100,200,300,400,500,600)
                        ),
                        callback=JS("table.on( 'order.dt search.dt', function () {
                                table.column(0, {search:'applied', order:'applied'}).nodes().each( function (cell, i) {
                                      cell.innerHTML = i+1;});}).draw();"))
                })

这只会改变显示的 HTML 的值，rownames数据集的实际值不会改变。

于 2016-02-19T10:43:37.383 回答