格式化数据。表列值（行），如果是数字

Question

我正在创建摘要数据。表将使用xtable，插入knitr报表中。如果＜code＞是，我想检查每个列中的每个行值。numeric（）==TRUE如果是，则格式化数字，然后将其还原为字符。如果＜code＞为。numeric（）==FALSE然后返回值。实际的＜code＞数据。表可能有许多列。

以下是我在下面的内容，所需的输出位于底部：

library(data.table)
library(magrittr)

dt <- data.table(A = c("apples",
                       "bananas",
                       1000000.999),
                 B = c("red",
                       5000000.999,
                       0.99))

dt

a <- dt[, lapply(.SD,
                 function(x)  {
                   if (is.na(is.numeric(x))) {
                     prettyNum(as.numeric(x), digits = 0, big.mark = ",")
                   } else {
                     x
                   }
                 })]

a

b <- dt[, A := ifelse(is.na(is.numeric(A)),
                      format(as.numeric(A), digits = 0, big.mark = ","),
                      A)] %>% 
  .[, B := ifelse(is.na(is.numeric(B)),
                  format(as.numeric(B), digits = 0, big.mark = ","),
                  B)]

b
b


desired <- data.table(A = c("apples",
                            "bananas",
                            "1,000,000"),
                      B = c("red",
                            "5,000,000",
                            "1"))

desired

根据我的理解，< code>data.table语法的< code>j参数中的< code > la ply 对vector进行操作，因此它可用于< code>mean() 、< code>sum() 、< code>na.approx()等函数。不一定能在这里工作。但是我想遍历< code>data.table中的每一列，而不指定每一列的名称，因为可能有许多列，命名它们会很麻烦。这有点像我知道圆不在正方形里，但我真的希望它在正方形里！

我尝试了我认为应该有效的：= ifelse（）方法，但它似乎返回了第一个元素。在列完全是数字的不同 data.table 上，采用相同的方法可生成所有 NA。

感谢任何帮助！

Answer 1

我们可以使用带有number的set。用for循环遍历列序列，识别所有数字或的元素的索引。（'i1'），将其用作set中的i，将这些元素转换为数字，应用number为该元素设置格式

library(scales)
library(data.table)
for(j in seq_along(dt)) {
  i1 <- grep("^[0-9.]+$", dt[[j]])
  set(dt, i = i1, j = j, value = number(as.numeric(dt[[j]][i1]), big.mark = ","))
 }
dt
#          A         B
#1:    apples       red
#2:   bananas 5,000,001
#3: 1,000,001         1