R数据表：如何格式化一列以用逗号显示千位数字？

Question

在 Shiny 中，我正在渲染一个数据表。

我正在阅读 DT 包的选项，我发现要做到这一点，我需要了解 Javascript。

https://rstudio.github.io/DT/options.html

m = as.data.frame(matrix(round(rnorm(100, 1e5, 1e6)), 20))
datatable(m, options = list(
  rowCallback = JS(
    "function(row, data) {",
    "var num = '$' + data[3].toString().replace(/\\B(?=(\\d{3})+(?!\\d))/g, ',');",
    "$('td:eq(3)', row).html(num);",
    "}")
), callback = JS("table.order([3, 'asc']).draw();"))

我对JS不太了解，所以问了这个问题。我现在最大的数字是：22381，最低的是 0。

我想将 22381 显示为 22,381。如果可能：22381 作为 S/.22,381。

这就是我的 DataTable 现在呈现的方式，我正在使用选项来订购（描述）收入。

output$products <- renderDataTable(products_ss(),
                                           options = list(
                                             order = list(list(2, 'desc'))
                                           ))

更新一：如何申请formatCurrency？

这样应用会报错：

您指定了列：itemRevenue，但数据的列名是

output$productos_sams <- renderDataTable(productos_samsung()  %>% 
                                         formatCurrency(c('itemRevenue'), currency = ' S/.',
                                                        interval = 3, mark = ',', before = FALSE),
                                       options = list(
                                         order = list(list(2, 'desc'))
                                       ))

我已更改您的答案以匹配我的专栏名称。

Answer 1

您正在寻找DT::formatCurrency

library(DT)
datatable(m) %>% 
             formatCurrency(c('V1', 'V2', 'V3', 'V4', 'V5'), currency = ' S/.',
                            interval = 3, mark = ',', before = FALSE)

更新1：

library(shiny)
library(DT)
#Use DT::dataTableOutput and DT::renderDataTable as shiny also has these functions name
shinyApp(
  ui = fluidPage(fluidRow(column(12, DT::dataTableOutput('tbl')))),
  server = function(input, output) {
    m <- reactive({m <- as.data.frame(matrix(round(rnorm(100, 1e5, 1e6)), 20))})
    output$tbl = DT::renderDataTable(
      datatable(m()) %>% formatCurrency(c('V1', 'V2', 'V3', 'V4', 'V5'), currency = ' S/.',
                                           interval = 3, mark = ',', before = FALSE) 
    )
  }
)

如https://rstudio.github.io/DT/shiny.html DT::renderDT() 的第一个参数可以是数据对象或由 datatable() 返回的表小部件。当您想在 Shiny 中渲染它之前操作小部件时，后一种形式可能很有用，例如您可以将格式化功能应用于表格小部件：。因此，您需要先datatable(m())，然后再将其传递给另一个步骤。