Recoder/redéfinir les données avec différents niveaux

Question

Chaque fois que je dois recoder un ensemble de variables, j'ai la fonction de recodage SPSS à l'esprit. Je dois admettre que c'est assez simple. Il y a une fonction recode similaire dans le paquet car, et cela fait l'affaire, mais supposons que je veuille faire les choses avec factor.

J'ai data.frame avec plusieurs variables avec plage de valeurs de 1 à 7. Je veux des valeurs variables « reverse », remplaçant donc 1s avec 7s, 2 s avec 6s, 3 s avec 5 s etc. Je peux utiliser factor fonction:

# create dummy factor 
set.seed(100) 
x <- as.factor(round(runif(100,1,7))) 
y <- factor(x, levels = rev(levels(x))) 

Et si je cours:

> levels(x) 
[1] "1" "2" "3" "4" "5" "6" "7" 
> levels(y) 
[1] "7" "6" "5" "4" "3" "2" "1" 

problème commence quand je veux recoder des facteurs qui ne sont pas des niveaux égaux. Si un facteur, z, a des niveaux c("1", "3", "4", "6", "7"), y a-t-il une chance que je puisse "inverser" les niveaux alors 1 = 7, 2 = 6, 3 = 5 etc. en utilisant la fonction factor?

D'autres fonctions de recodage efficaces devraient suffire!

Answer 1

Vous devez fournir l'argument levels pour tenir compte (comme Dirk a écrit):

set.seed(2342472) 
(x <- round(runif(10,1,7))) 
# [1] 7 5 5 3 1 2 5 3 3 2 
(xf <- as.factor(x)) 
# [1] 7 5 5 3 1 2 5 3 3 2 
# Levels: 1 2 3 5 7 
(yf <- factor(x,levels=7:1)) 
# [1] 7 5 5 3 1 2 5 3 3 2 
# Levels: 7 6 5 4 3 2 1 

vous pouvez le faire sur le facteur existant trop

(yxf <- factor(xf,levels=7:1)) 
# [1] 7 5 5 3 1 2 5 3 3 2 
#Levels: 7 6 5 4 3 2 1 

Comme vous voyez, les niveaux ont été étendus dans l'ordre du désir.

Answer 2

Oui, juste attribuons à levels:

R> set.seed(100) 
R> x <- as.factor(round(runif(100,1,7))) 
R> table(x) 
x 
1 2 3 4 5 6 7 
3 16 20 19 18 17 7 
R> levels(x) <- LETTERS[1:7] 
R> table(x) 
x 
A B C D E F G 
3 16 20 19 18 17 7 
R> 

Answer 3

Si vous remplissez les niveaux de facteur que vous êtes bon pour aller:

df <- data.frame(x=factor(c(2,4,5,6))) 
df$x <- factor(df$x, levels = 7:1) 
table(df$x) 

7 6 5 4 3 2 1 
0 1 1 1 0 1 0 

Answer 4

Dans ce cas, puisque vous avez des chiffres, pourquoi ne pas transformer simplement les chiffres à l'aide arithmétique modulaire?

par exemple

levels(x) <- as.character((6*as.numeric(levels(x)))%%7+1) 

Modifier le 6 et 7, selon le cas si l'on utilise des gammes plus larges.