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

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

#パッケージの読み込み
library("extdplyr")

###データ例の作成#####
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))
########

#データの欠損値を計算:check_missingコマンド
#数または割合を指定:rep_propオプション;FALSE:個数
check_missing(data = TestData, ret_prop = TRUE)
Group Data1     Data2 LETTERS
1     0     0 0.4666667       0

#抽出条件に適合しているか新規列を追加し判断:grp_routineコマンド
#抽出条件が重なったりNAが含まれているとエラー
grp_routine(data = TestData[complete.cases(TestData),],
            col = "Check",
            #以降に抽出条件を入力
            OK = Data1 &gt; 50,
            NO = Data1 &lt;= 50)

#指定した分類での出現率を表示:pct_routineコマンド
#dataオプション以降に分類を記述
pct_routine(data = TestData, Group, LETTERS)