Добавить запятые в номер для вывода

Question

Я выводить данные кадра в HTML через xtable, Я хочу добавить запятые к числам в паре столбцов таблицы. Я подумал, прежде чем я сделаю свой собственный взлом пасты, я бы проверил, есть ли встроенный способ сделать это.

Answer 1

Вы можете рассмотреть возможность преобразования столбца с помощью formatC

> formatC(1:10 * 100000, format="d", big.mark=",")
 [1] "100,000"   "200,000"   "300,000"   "400,000"   "500,000"   "600,000"  
 [7] "700,000"   "800,000"   "900,000"   "1,000,000"

Answer 2

Огромное спасибо Джонатану Чангу за его ответ. formatC выглядит чрезвычайно полезной функцией. Это вдохновило меня на чтение документации, в которой я нашел prettyNumЭто оказалось довольно элегантным решением для аналогичной проблемы, с которой я столкнулся. Вот минимальный жизнеспособный пример того, что я сделал, чтобы добавить запятые к числам во фрейме данных с именем enrollment.summary,

xtable(prettyNum(enrollment.summary,big.mark=","))

Answer 3

Вы также можете попробовать использовать аргумент fuction 'format.args'

  ## Demonstration of additional formatC() arguments.
  print(fm1.table, format.args = list(big.mark = "'", decimal.mark = ","))

отсюда

https://cran.rstudio.com/web/packages/xtable/xtable.pdf

Answer 4

Вот поздний ответ, но вы также можете использовать scales::comma_format следующее:

library(scales)
values <- c(1000000.789, 8888.23)
comma_format(digits = 12)(values)
## [1] "1,000,000.789" "8,888.230"

Для целочисленных значений вы можете просто использовать запятую:

int_vals <- c(1234, 5678)
comma(int_vals)
## [1] "1,234" "5,678"

Answer 5

Отформатировать некоторые резюме из dplyrВот примерный код:

df %>%
    summarise(mu=mean(big_values),
              min=min(big_values),
              max=max(big_values)) %>%
    mutate_each(funs(prettyNum(., big.mark=",")))