データハンドリングするときに良く使っている自作関数をアップします。 中には自分が関数を知らないだけのものもあるかも。。 Comma <- function(Number){ #---数値をカンマ区切りにする(12桁まで対応) if(nchar(Number) < 4) Temp <- Number if(nchar(Number) == 4) Temp <- paste(substr(Number, 1, 1), ",", substr(Number, 2, 4), sep = "") if(nchar(Number) == 5) Temp <- paste(substr(Number, 1, 2), ",", substr(Number, 3, 5), sep = "") if(nchar(Number) == 6) Temp <- paste(substr(Number, 1, 3),