私は党派性を表す 3 つの異なる変数を取り、それらを 1 つに結合しようとしています。データは次のようになります。各回答者は、1 または 2 のいずれかとして 3 つの変数のうちの 1 つのみに関するデータを持っています。
PARTISANSHIP_D PARTISANSHIP_I PARTISANSHIP_R
1 NA NA
2 NA NA
NA 1 NA
そして、私が作成しようとしているのは、3 つすべてへの応答に基づく 1:6 スケールの 1 つの変数です。私はdplyrを使ってこれをやろうとしました
survey$partisan <- mutate(survey, partisan = ifelse(PARTISANSHIP_D==1, 6,
ifelse(PARTISANSHIP_D==2, 5,
ifelse(PARTISANSHIP_I==1, 4, ifelse(PARTISANSHIP_I==2, 3, ifelse(
PARTISANSHIP_R==2, 2, 1)
)))))
車
survey$partisan <- Recode(survey$PARTISANSHIP_D, "1=6; 2=5",
survey$PARTISANSHIP_I, "1=4; 2=3",
survey$PARTISANSHIP_R, "1=1; 2=2")
そして、次のような単純な ifelse コマンド:
survey$partisan <- ifelse(survey$PARTISANSHIP_D == 1, 6,
ifelse(survey$PARTISANSHIP_D == 2, 5,
ifelse(survey$PARTISANSHIP_I == 1, 4,
ifelse(survey$PARTISANSHIP_I == 2, 3,
ifelse(survey$PARTISANSHIP_R == 2, 2, 1)))))
しかし、これらのどれも機能していません。私が間違っていることの指針はありますか？