Rで解析：factor class操作の役に立つかも？「lfactors」パッケージ

factor class操作の役に立つパッケージの紹介です。意外と便利なパッケージだと思います。

パッケージバージョンは1.0.0。windows 10のR version 3.3.2で確認しています。

パッケージのインストール

下記コマンドを実行してください。

#パッケージのインストール
install.packages("lfactors")

実行コマンド

詳細はコマンド、パッケージのヘルプを確認してください。

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("lfactors")

#lfactor class&#12398;&#20316;&#25104;:lfactor&#12467;&#12510;&#12531;&#12489;
#&#12487;&#12540;&#12479;&#12434;&#25351;&#23450;:x&#12458;&#12503;&#12471;&#12519;&#12531;
#levels&#12434;&#35373;&#23450;:levels&#12458;&#12503;&#12471;&#12519;&#12531;
#labels&#12434;&#35373;&#23450;:labels&#12458;&#12503;&#12471;&#12519;&#12531;
LFactData <- lfactor(x = sample(1:12, 30, replace = TRUE),
                     levels = 1:12,
                     labels = paste0("Data", 1:12))
#&#20869;&#23481;&#30906;&#35469;
LFactData
[1] Data11 Data9  Data6  Data3  Data9  Data9  Data5  Data3  Data12 Data4 
[11] Data10 Data12 Data2  Data4  Data2  Data7  Data7  Data1  Data1  Data11
[21] Data9  Data2  Data12 Data3  Data2  Data2  Data10 Data6  Data6  Data10
12 Levels: Data1 Data2 Data3 Data4 Data5 Data6 Data7 Data8 Data9 ... Data12
Numeric levels: 1 2 3 4 5 6 7 8 9 10 11 12 

#class&#12398;&#30906;&#35469;
class(LFactData)
[1] "lfactor" "factor"

###&#12487;&#12540;&#12479;&#25805;&#20316;&#20363;#####
#&#12521;&#12505;&#12523;&#12391;&#12487;&#12540;&#12479;&#12434;&#25277;&#20986;
#factor class&#12391;&#12418;&#21516;&#12376;&#25805;&#20316;&#12364;&#21487;&#33021;
#&#20301;&#32622;&#12434;&#30906;&#35469;
LFactData == "Data4"
[1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE
[13] FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
[25] FALSE FALSE FALSE FALSE FALSE FALSE
#&#20491;&#25968;&#12434;&#30906;&#35469;
sum(LFactData == "Data4")
[1] 2
#&#25277;&#20986;
LFactData[LFactData == "Data4"]
[1] Data4 Data4
12 Levels: Data1 Data2 Data3 Data4 Data5 Data6 Data7 Data8 Data9 ... Data12
Numeric levels: 1 2 3 4 5 6 7 8 9 10 11 12 

#Numeric levels&#12391;&#25277;&#20986;
#factor class&#12391;&#12399;&#24037;&#22827;&#12364;&#24517;&#35201;
LFactData == 2
[1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
[13]  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE
[25]  TRUE  TRUE FALSE FALSE FALSE FALSE
#&#25277;&#20986;
LFactData[LFactData == 2]
[1] Data2 Data2 Data2 Data2 Data2
12 Levels: Data1 Data2 Data3 Data4 Data5 Data6 Data7 Data8 Data9 ... Data12
Numeric levels: 1 2 3 4 5 6 7 8 9 10 11 12
#&#28436;&#31639;&#23376;&#12364;&#21487;&#33021;
LFactData[LFactData &gt; 3]
[1] Data11 Data9  Data6  Data9  Data9  Data5  Data12 Data4  Data10 Data12
[11] Data4  Data7  Data7  Data11 Data9  Data12 Data10 Data6  Data6  Data10
12 Levels: Data1 Data2 Data3 Data4 Data5 Data6 Data7 Data8 Data9 ... Data12
Numeric levels: 1 2 3 4 5 6 7 8 9 10 11 12
#&#20491;&#25968;&#12434;&#30906;&#35469;
sum(LFactData &gt; 3)
[1] 20

#&#21442;&#32771;_factor class&#12391;&#28436;&#31639;&#23376;&#12434;&#20351;&#29992;&#12375;&#12390;&#20491;&#25968;&#12434;&#30906;&#35469;
#as.numeric&#12467;&#12510;&#12531;&#12489;&#12434;&#20351;&#29992;&#12377;&#12427;
FactData <- as.factor(LFactData)
#class&#12398;&#30906;&#35469;
class(FactData)
[1] "factor"
#&#20869;&#23481;&#30906;&#35469;
FactData
[1] Data11 Data9  Data6  Data3  Data9  Data9  Data5  Data3  Data12 Data4 
[11] Data10 Data12 Data2  Data4  Data2  Data7  Data7  Data1  Data1  Data11
[21] Data9  Data2  Data12 Data3  Data2  Data2  Data10 Data6  Data6  Data10
12 Levels: Data1 Data2 Data3 Data4 Data5 Data6 Data7 Data8 Data9 ... Data12
#&#20491;&#25968;&#12434;&#30906;&#35469;
sum(as.numeric(FactData) &gt; 3)
[1] 20

少しでも、あなたの解析が楽になりますように！！