Вы можете попробовать форматировать или prettyNum, но обе функции возвращают вектор символов.Я бы использовал это только для печати.
> prettyNum(12345.678,big.mark=",",scientific=FALSE)
[1] "12,345.68"
> format(12345.678,big.mark=",",scientific=FALSE)
[1] "12,345.68"
РЕДАКТИРОВАТЬ: Как сказал в комментарии Майкл Кирико:
Имейте в виду, что они имеют побочный эффект заполнения печатных строкс пробелом, например:
> prettyNum(c(123,1234),big.mark=",")
[1] " 123" "1,234"
Добавьте trim=TRUE
к format
или preserve.width="none"
к prettyNum
, чтобы предотвратить это:
> prettyNum(c(123,1234),big.mark=",", preserve.width="none")
[1] "123" "1,234"
> format(c(123,1234),big.mark=",", trim=TRUE)
[1] "123" "1,234"