Única alteração que fiz foi trocar o G pelo Q. Inclusive saltou as primeiras 3 variáveis que eram sexo, idade e tempo que não deveriam ser alteradas pela função.
x <- ... # Seu data.frame aqui
vars <- sapply(c(1:63), function(x) { paste('Q', x, sep = "") })
new_labels <- c("Discordo totalmente", "Discordo", "Neutro", "Concordo", "Concordo totalmente")
for (var in vars) {
x[[var]] <- factor(x[[var]], label = new_labels, levels = 1:5)
}
----
Confesso que fiquei atordoado, não entendi nada, mas funcionou mesmo!
Pode explicar?
Já salvei dos dados em .Rdata.
Muitíssimo obrigado mesmo.
Alessandro