Rで解析：データの書式設定例

###データ例の作成#####
#fmtrパッケージを読み込み
#fmtrパッケージがなければインストール
if(!require("fmtr", quietly = TRUE)){
  install.packages("fmtr");require("fmtr")
}

#tidyverseパッケージを読み込み
#tidyverseパッケージがなければインストール
if(!require("tidyverse", quietly = TRUE)){
  install.packages("tidyverse");require("tidyverse")
}
#乱数の固定
set.seed(1980)
#データ例の作成
n <- 5
TestData <- tibble(Group = sample(paste0("Group", 1:5),
                                  n, replace = TRUE),
                   Data1 = as.POSIXct(sample(paste0(2000:2020, "-", 1:12, "-", 1:30,
                                                    " ",0:24, ":", 0:59, ":", 0:59),
                                             n, replace = TRUE), tz = "Japan"),
                   Data2 = sample(900:1500,
                                  n, replace = TRUE)) 
#&#30906;&#35469;
TestData
# A tibble: 5 x 3
Group  Data1               Data2
<chr>  <dttm>              <int>
1 Group2 2017-12-30 09:59:59  1425
2 Group1 2002-12-24 23:23:23  1132
3 Group2 2016-05-17 16:16:16  1017
4 Group3 2003-04-04 03:03:03  1486
5 Group4 2012-01-13 12:12:12   995
########

###数字に関する書式設定#####
#浮動小数点数:%f
fapply(TestData$Data2, "%f")
[1] "1425.000000" "1132.000000" "1017.000000" "1486.000000" "995.000000" 

#表示する小数点の桁数:%.xf;[x]を表示したい桁数で四捨五入
#fapply(1.5684, "%.2f")
#[1] "1.57"
#fapply(1.5634, "%.2f")
#[1] "1.56"
fapply(TestData$Data2, "%.2f")
[1] "1425.00" "1132.00" "1017.00" "1486.00" "995.00"

#空白を挿入し文字数を揃えて右寄せ:"%x.yf;[x]は文字数,[y]は表示する小数点の桁数
fapply(TestData$Data2, "%6.0f")
[1] "  1425" "  1132" "  1017" "  1486" "   995"
#左寄せはxの前にマイナスを付与
fapply(TestData$Data2, "%-6.0f")
[1] "1425  " "1132  " "1017  " "1486  " "995   "
#0を挿入し文字数を揃えて右寄せ
fapply(TestData$Data2, "%06.0f")
[1] "001425" "001132" "001017" "001486" "000995"

#指数表示:%e
fapply(TestData$Data2, "%e")
[1] "1.425000e+03" "1.132000e+03" "1.017000e+03" "1.486000e+03" "9.950000e+02"
fapply(TestData$Data2, "%.1e")
[1] "1.4e+03" "1.1e+03" "1.0e+03" "1.5e+03" "1.0e+03"

#倍精度値:%a
fapply(TestData$Data2, "%a")
[1] "0x1.644p+10" "0x1.1bp+10"  "0x1.fc8p+9"  "0x1.738p+10" "0x1.f18p+9" 

###参考:baseのsprintfコマンドでの例#####
#fapplyコマンドと同じ結果が得られるので結果は省略
sprintf("%f", TestData$Data2)
sprintf("%.2f", TestData$Data2)
sprintf("%6.0f", TestData$Data2)
sprintf("%-6.0f", TestData$Data2)
sprintf("%06.0f", TestData$Data2)
sprintf("%e", TestData$Data2)
sprintf("%.1e", TestData$Data2)
sprintf("%a", TestData$Data2)
########

###年月日や時間に関する書式設定#####
#年月日:%Y;年,%m;月,%d;日
#時間:%H;時間,%M;分,%S;秒

##例1:Data1の年月日や時間を入れ替えて書式を変更
fapply(TestData$Data1, format = "%d/%m/%Y %S秒%H時%M分")
[1] "10/04/2018 39秒14時39分" "17/11/2004 46秒21時46分" "26/08/2013 55秒05時55分"
[4] "04/10/2012 33秒08時33分" "23/05/2010 52秒02時52分"

##例2:Data1の年月日に変更
fapply(TestData$Data1, format = "%Y-%m-%d")
[1] "2018-04-10" "2004-11-17" "2013-08-26" "2012-10-04" "2010-05-23"

##例3:Data1の時,分に変更
fapply(TestData$Data1, format = "%H:%M")
[1] "14:39" "21:46" "05:55" "08:33" "02:52"

###参考:baseのformatコマンドでの例#####
#fapplyコマンドと同じ結果が得られるので結果は省略
format(TestData$Data1, "%d/%m/%Y %S秒%H時%M分")
format(TestData$Data1, "%Y-%m-%d")
format(TestData$Data1, "%H:%M")
########