dodaj przecinki do numeru dla wyjścia

Question

Wysyłam ramkę danych do html przez xtable. Chcę dodać przecinki do liczb w kilku kolumnach tabeli. Pomyślałem, że zanim zrobiłem własną metodę wklejania, sprawdziłem, czy jest w to wbudowany sposób.

Answer 1

może warto rozważyć przekształcenie kolumny stosując 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

Ogromne podziękowania Jonathan Chang na jego odpowiedź. formatC wygląda niezwykle użyteczną funkcję. To zainspirowało mnie do przeczytania dokumentacji, w której znalazłem prettyNum, co okazało się całkiem eleganckim rozwiązaniem podobnego problemu, jaki miałem. Oto minimalny wykonalny przykład tego, co zrobiłem, aby dodać przecinki do liczb w ramce danych o nazwie enrollment.summary.

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

Answer 3

Można również spróbować użyć argumentu fuction

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

stąd

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

Answer 4

'format.args' formatować pewne podsumowania z dplyr, tutaj jest boilerplate kod:

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

Answer 5

Oto późna odpowiedź, ale można też użyć scales::comma_format następująco:

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

Dla wartości całkowitych tylko, można po prostu użyć przecinka:

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