特定のグループのアンケートごとのデータがありません

Question

特定のグループの参加者について、アンケートごとにどれだけのデータがないかを確認しようとしています。すなわち

私はこれを行うことができますどのように、

id Result QA1 QA2 QA3 QA4 QA5 QA6 QB1 QB2 QB3 QB4 QB5 QB6 
1 1  1 3 2 2 3 3 3 NA 1 1 2 1 
2 1  2 NA 2 2 2 1 1 3 2 1 2 3 
3 2  3 2 3 1 1 1 2 1 1 NA 3 NA 
4 1  2 1 NA 3 2 NA 1 3 3 1 2 1 
5 6  1 1 3 2 1 3 2 1 1 1 1 NA 

は私が1で符号化されているすべての結果のためのアンケートAにありますどのように多くの行方不明を知りたいと言う、すなわちデータフレームを持っていますか？助言がありますか？

Answer 1

あなたは、すなわち

fun1 <- function(df, questionnaire, code){ 
    d <- sum(is.na(df[df$Result == code,grepl(questionnaire, names(df))])) 
    return(d) 
} 
fun1(df, 'A', 1) 
#[1] 3 

fun1(df, 'B', 1) 
#[1] 1 

fun1(df, 'A', 2) 
#[1] 0