如何在R语言的DT包数据表格中为数字添加US$前缀

我来帮你搞定这个需求，这里有两种实用的方案，你可以根据自己的场景选择：

方法1：在R中预先格式化数值列 #

如果不需要保留原始数值用于排序、筛选，或者后续要直接用格式化后的文本，这种方法最简单——直接在R里把数值转换成带US$前缀的字符串，再传入datatable。

修改后的完整代码：

library(DT)
library(dplyr)

# 原始数据
Test <- structure(list(date2 = structure(c(18808, 18808, 18809, 18810 ), class = "Date"), 
                       Category = c("FDE", "ABC", "FDE", "ABC"), 
                       coef1 = c(4, 1, 6, 1),
                       coef2 = c(8, 3, 1, 6)), 
                  row.names = c(NA, 4L), class = "data.frame")

# 先计算Sum，再给数值列添加US$前缀
Test <- Test %>%
  mutate(Sum = rowSums(across(3:last_col()), na.rm = TRUE)) %>%
  mutate(across(c(coef1, coef2, Sum), ~paste0("US$ ", .x)))

# 生成表格
z <- datatable(Test, 
               options = list(columnDefs = list(list(className = 'dt-center', targets = "_all")), 
                              paging = TRUE,
                              searching = FALSE, 
                              pageLength = 10,
                              dom = 'tip',
                              scrollx=T),
               rownames = FALSE)
z

方法2：用DT前端渲染（推荐，保留数值功能） #

如果需要保留原始数值的排序、筛选能力（比如点击列头可以按数值大小排序），推荐用这种方法——在前端显示时添加前缀，原始数据还是数值类型，不影响表格的交互功能。

完整代码如下：

library(DT)
library(dplyr)

# 原始数据
Test <- structure(list(date2 = structure(c(18808, 18808, 18809, 18810 ), class = "Date"), 
                       Category = c("FDE", "ABC", "FDE", "ABC"), 
                       coef1 = c(4, 1, 6, 1),
                       coef2 = c(8, 3, 1, 6)), 
                  row.names = c(NA, 4L), class = "data.frame")

# 计算Sum列
Test <- Test %>%
  mutate(Sum = rowSums(across(3:last_col()), na.rm = TRUE))

# 生成带前缀的表格
z <- datatable(Test, 
               options = list(
                 columnDefs = list(
                   # 所有列居中
                   list(className = 'dt-center', targets = "_all"),
                   # 给指定列添加US$前缀：DT的列索引从0开始，这里对应coef1(2)、coef2(3)、Sum(4)
                   list(targets = c(2,3,4),  
                        render = JS(
                          "function(data, type, row, meta) {",
                          "  // 只有在显示模式下才添加前缀，不影响排序等操作",
                          "  if(type === 'display') {",
                          "    return 'US$ ' + data;",
                          "  }",
                          "  return data;",
                          "}"
                        ))
                 ),
                 paging = TRUE,
                 searching = FALSE, 
                 pageLength = 10,
                 dom = 'tip',
                 scrollx=T
               ),
               rownames = FALSE)
z

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