Rで解析：出現率をラクラク確認「extdplyr」パッケージ

data.frameの欠損値や特定条件の出現率を確認するのに便利なパッケージだと考えます。

パッケージバージョンは0.1.5。R version 3.2.4で動作を確認しています。

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

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

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

コマンドの紹介

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

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

###&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;#####
n <- 15
TestData <- data.frame("Group" = sample(paste0("Group", 1:5), n, replace = TRUE),
                       "Data1" = sample(c(40:60, NA), n, replace = TRUE),
                       "Data2" = sample(c(1, NA), n, replace = TRUE),
                       "LETTERS" = sample(LETTERS[1:24], n, replace = TRUE))
########

#&#12487;&#12540;&#12479;&#12398;&#27424;&#25613;&#20516;&#12434;&#35336;&#31639;:check_missing&#12467;&#12510;&#12531;&#12489;
#&#25968;&#12414;&#12383;&#12399;&#21106;&#21512;&#12434;&#25351;&#23450;:rep_prop&#12458;&#12503;&#12471;&#12519;&#12531;;FALSE:&#20491;&#25968;
check_missing(data = TestData, ret_prop = TRUE)
Group Data1     Data2 LETTERS
1     0     0 0.4666667       0

#&#25277;&#20986;&#26465;&#20214;&#12395;&#36969;&#21512;&#12375;&#12390;&#12356;&#12427;&#12363;&#26032;&#35215;&#21015;&#12434;&#36861;&#21152;&#12375;&#21028;&#26029;:grp_routine&#12467;&#12510;&#12531;&#12489;
#&#25277;&#20986;&#26465;&#20214;&#12364;&#37325;&#12394;&#12387;&#12383;&#12426;NA&#12364;&#21547;&#12414;&#12428;&#12390;&#12356;&#12427;&#12392;&#12456;&#12521;&#12540;
grp_routine(data = TestData[complete.cases(TestData),],
            col = "Check",
            #&#20197;&#38477;&#12395;&#25277;&#20986;&#26465;&#20214;&#12434;&#20837;&#21147;
            OK = Data1 &gt; 50,
            NO = Data1 &lt;= 50)

#&#25351;&#23450;&#12375;&#12383;&#20998;&#39006;&#12391;&#12398;&#20986;&#29694;&#29575;&#12434;&#34920;&#31034;:pct_routine&#12467;&#12510;&#12531;&#12489;
#data&#12458;&#12503;&#12471;&#12519;&#12531;&#20197;&#38477;&#12395;&#20998;&#39006;&#12434;&#35352;&#36848;
pct_routine(data = TestData, Group, LETTERS)

少しでも、あなたの解析が楽になりますように！！このすば「第7話このふてぶてしい鈍らに招待を！」観ました。アクア様の表情最高です。