Ich frage mich trotzdem, ob Du es Dir nicht viel zu kompliziert machst.
Um mir meine Frage beantworten zu können, benötige ich noch Informationen, nämlich den output von:
Code: Alles auswählen
str(k$v_307)
Gruß, Jörg
Code: Alles auswählen
str(k$v_307)
> library(carData)
> # Mache eine neue Variable die dichotomisiert ist, zusammengefasst werden Singles, verwitwet, geschieden zu 1
> # und verpartnert, verheiratet zu 2#
> k$v_307_dicho <- recode(k$v_307, "1 = '1'; 4 = '1'; 5 = '1'; 2 = '2'; 3 = '2'")
> k$v_307_dicho
[1] 1 2 2 2 2 1 2 1 1 2 2 2 2 2 2 2 1 2 2 1 2 2 2 2 2 1 2 1 1 1 2 2 2 1 1 1 1 2 2 1 2 2 1 2 2 2 2 1 1 1 1 2 2 2 2 1 2 1 2 1 1 1
[63] 2 1 2 2 1 2 2 2 2 1 1 2 1 1 2 1 2 2 2 2 2 2 1 2 2 2 2 1 2 2 2 2 1 1 2 1 1 2 2 1 1 2 1 1 1 1 1 2 1 2 2 2 2 2 2 2 1 2 2 1 2 2
[125] 2 2 1 1 1 1 2 2 1 2 1 1 1 1 2 2 2 2 1 2 2 2 2 2 1 1 1 1 2 2 2 1 2 1 2 2 1 1 1 1 2 2 1 2 1 2 1 2 1 2 1 2 2 2 1 1 2 1 1 1 2 2
[187] 1 2 1 1 1 2 2 2 2 1 2 1 1 2 1 2 1 1 1 1 2 1 1 1 2 1 2 2 1 1 1 1 1 1 1 1 2 2 1 1 1 2 1 2 2 2 1 2 1 1 2 2 2 1 2 1 2 2 2 1 1 2
[249] 1 2 2 2 2 1 1 2 2 2 2 2 1 1 1 2 2 2 1 1 2 2 1 2 2 2 2 1 2 2 1 2 2 1 1 1 2 1 2 2 1 1 2 1 2 2 1 2 2 1 1 2 2 1 1 1 2 1 2 1 2 2
[311] 2 1 2 2 2 2 2 1 1 1 2 2 2 2 1 1 2 1 1 1 1 2 2 1 1 2 2 1 1 2 2 2 1 1 1 1 2 1 1 1 1 2 2 1 1 2 1 1 2 2 1 2 1 2 2 1 1 1 1 1 1 1
[373] 1 1 1 1 2 1 1 2 1 1 1 1 1 1 1 1 1 1 2 1 2 2 1 2 1 2 1 1 1 2 2 2 2 1 2 2 1 2 1 2 1 1 2 2 2 2 1 2 1 2 2 2 1 1 1 1 2 2 2 1 2 2
[435] 1 2 1 1 2 2 1 1 2 1 1 1 1 1 1 1 1 1 2 2 1 2 2 2 1 2 2 2 2 2 1 2 1 1 1 2 2 1 2 2 2 2 2 2 2 2 1 1 2 1 2 2 1 2 2 1 1 1 2 2 1 1
[497] 1 1 2 1 2 1 2 1 2 2 1 1 2 1 1 2 1 1 2 1 1 2 1 2 1 2 2 2 1 2 2 2 2 2 2 2 2 2 1 2 2 2 2 1 2 2 2 1 1 2 1 2 1 2 2 1 1 2 2 2 2 1
[559] 2 2 2 2 1 1 1 1 1 2 1 2 2 2 2 2 2 2 1 1 1 1 2 2 1 2 2 2 1 1 1 2 1 1 1 2 2 2 1 1 1 1 2 1 1 1 1 1 1 2 1 1 2 1 2 1 1 1 2 2 2 1
[621] 2 2 2 1 1 2 1 2 2 1 1 2 2 2 2 2 2 2 2 1 1 1 1 2 1 2 2 1 1 1 1 1 1 1 1 2 2 2 1 1 2 1 1 1 2 2 1 1 1 1 1 1 1 1 1 2 2 2 2 1 1 1
[683] 1 1 1 1 2 2 2 2 1 1 1 1 1 1 2 1 2 1 1 1 1 1 2 2 1 1 1 1 1 1 2 2 1 2 1 1 1 1 1 1 1 1 1 1 1 1 1 2 1 2 1 2 1 1 1 1 2 1 2 2 1 1
[745] 1 2 2 1 1 2 1 1 1 1 1 2 1 1 1 1 2 1 1 1 2 2 2 1 1 2 1 1 1 2 2 1 2 2 2 1 1 1 1 1 1 1 1 2 2 1 2 1 2 1 1 2 2 2 1 1 2 2 2 2 2 1
[807] 1 2 1 1 1 2 1 2 2 1 1 2 1 1 2 2 1 1 1 1 1 1 1 2 1 1 1 2 1 2 1 1 2 1 2 2 1 2 2 2 2 2 2 2 1 2 1 2 2 1 2 2 2 1 2 2 2 2 2 2 2 2
[869] 2 1 1 2 1 2 1 2 2 2 1 2 2 2 2 1 2 1 2 2 2 1 2 2 1 2 2 1 2 1 1 1 2 2 1 2 1 2 2 2 2 2 1 2 2 1 1 1 2 1 1
> # faktorisiere die neue Variable#
> k$v_307_dicho <- factor(k$v_307_dicho)
> class(k$v_307_dicho)
[1] "factor"
> str(k$v_307)
int [1:919] 4 3 3 2 3 1 3 1 4 3 ...
>
Code: Alles auswählen
k$v_307_dicho <- recode(k$v_307, "2:3='mitPartner'; else='alleine'", as.factor=TRUE))
Code: Alles auswählen
library("car")
set.seed(42)
k <- data.frame(v_307=sample(1:5, 25, repl=TRUE))
k$v_307_dicho <- recode(k$v_307, "2:3='mitPartner'; else='alleine'", as.factor=TRUE))
str(k)
k