Nun, das können Sie im Prinzip genauso als R-Script eingeben:
data$newOne = NA.
data[which((data$ZF04_01 == 1) & (data$ZF04_02 == 1)), "newOne"] = "trust".
data[which(((data$ZF04_01 == 2) & (data$ZF04_02 == 2)) | ((data$ZF04_01 == 1) & (data$ZF04_02 == 2)) | ((data$ZF04_01 == 1) & (data$ZF04_02 == 2))), "newOne"] = "nottrust".
data$newOne = as.factor(data$newOne).
Man könnte es auch etwas eleganter lösen, aber dieser Code sollte es tun :)