奇奇怪怪的知识又增加了---给数据自动加上千分位

千分位(thousands)，数学领域术语，一种简化数学表达的方式。千分位形式，即从个位数起，每三位之间加一个逗号，例如，将7654321输出成7,654,321。

有粉丝私信问，投稿中经常有编辑要求给数字加上千分位，往往需要手动添加，太麻烦，能不能自动给数据加上千分位。今天咱们来演示一下，先导入R包

library(hgutils)

先来个单个数据的，用的是sep_thousands函数

sep_thousands(1324311111.33)

这样就成了，非常简单把，如果是一串数字咱们实现呢，咱们先生成一个向量

set.seed(123)
dat<-rnorm(9, mean = 10000000, sd = 100)
dat<-round(dat)

也是同样的方法，这就是R语言向量化编程的好处

sep_thousands(dat)

那如果是表格式的数据可以改吗，也是很轻松的，咱们先生成一个表格

out<-matrix(dat, nrow=3,ncol=3,byrow=TRUE)

处理表格的数据需要使用lapply函数或者sapply函数搭配一下，我这里使用sapply函数，

dat2<-sapply(out,sep_thousands)

Sapply这里返回的是向量，重新把它组成表格就可以了，

dat2<-matrix(dat2, nrow=3,ncol=3,byrow=TRUE)

也可以自己表格小程序自动生成表格，本期就这样突兀的结束啦。