le codage des valeurs de variables dans les classes à l'aide de R

J'ai un ensemble de données dans lequel j'ai besoin de coder les valeurs de certaines variables (numériques) en 3 classes.

Mon jeu de données est similaire à ce mais a 60 plus variables:

anim <- c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15)
wt <- c(181,179,180.5,201,201.5,245,246.4,189.3,301,354,369,205,199,394,231.3)
data <- data.frame(anim,wt)

> data
   anim    wt
1     1 181.0
2     2 179.0
3     3 180.5
4     4 201.0
5     5 201.5
6     6 245.0
7     7 246.4
8     8 189.3
9     9 301.0
10   10 354.0
11   11 369.0
12   12 205.0
13   13 199.0
14   14 394.0
15   15 231.3

J'ai besoin de code de valeurs de la variable "wt" en 3 classes: (wt >= 179 & tm < 200) = 1; (wt >= 200 & tm < 300) = 2; (wt > 300) = 3

qui devrait me donner cette

> data2
   anim    wt SWT
1     1 181.0   1
2     2 179.0   1
3     3 180.5   1
4     4 201.0   2
5     5 201.5   2
6     6 245.0   2
7     7 246.4   2
8     8 189.3   1
9     9 301.0   3
10   10 354.0   3
11   11 369.0   3
12   12 205.0   2
13   13 199.0   1
14   14 394.0   3
15   15 231.3   2

InformationsquelleAutor baz | 2011-05-17

break r subclass variables

10

La cut méthode comme indiqué par @Greg est probablement ce que vous voulez ici. Une chose à noter est que cut retourne un facteur par défaut, que vous pouvez supprimer en fournissant labels = FALSE pour retourner les valeurs entières:
```
cut(data$wt, c(178, 200, 300, Inf), labels = FALSE)
```
Alternativement, si votre coupe ne se prête pas à des interruptions naturelles, vous pouvez utiliser ifelse(). Vous pouvez "nid" de la ifelse des propos similaires à Excel. J'utilise "par" de couper vers le bas sur le typage nécessaires:
```
data$group2 <- with(data, ifelse(wt >= 179 & wt < 200, 1, 
  ifelse(wt >= 200 & wt < 300, 2, 3))
)
```
- bon point sur les étiquettes. J'ai l'habitude de simplement le jeter en numérique avec as.numeric pour obtenir entier, les valeurs du groupe.
- J'imagine que c'est six dans un, 1/2 douzaine de l'autre. En fait je ne savais pas cut serait de retour les valeurs numériques jusqu'en regardant le fichier d'aide pour la question. J'ai toujours utilisé le as.numeric() méthode...
- Bien que j'admette que ce que Greg a fourni fonctionne, je vais aussi dire que ce que vous avez suggéré permet plus de contrôle et peut-être la souplesse.
- Je trouve ifelse plus utiles quand je suis calcul de nouvelles variables basé sur 2 ou plusieurs variables...j'.e si "lundi et pluies", puis "ne pas sortir de son lit"
- imbriquée ifelse déclarations sont grands pour les 3 groupes. mais si vous avez 20 groupes, il peut devenir difficile à gérer.
- j'aime toujours utiliser ifelse, mais je suis pas vraiment convaincu lors de l'utilisation de 2 ou plusieurs variables pour en obtenir un nouveau. Maintenant, je crois que j'ai que de la confiance. Merci beaucoup les gars!
- pour les performances, il vaut mieux ne pas imbriquer trop ifelses. Cut est conçu pour le faire pour vous, afin de l'utiliser.
- Toujours sur le même exemple: au Lieu de mettre une gamme pour chaque niveau, j'ai juste besoin de diviser en 3 groupes de taille égale.
InformationsquelleAutor Chase
5

Vous pouvez essayer cut
```
anim <- c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15) 
wt <-c(181,179,180.5,201,201.5,245,246.4,
189.3,301,354,369,205,199,394,231.3) 
data <- data.frame(anim,wt)
```
EDIT: correction d'un groupe de droite = FALSE, débarrassé de split exemple.
```
group = cut(data$wt, c(178, 200, 300, Inf), right=FALSE)


data$swt = as.numeric(group)
data
   anim    wt swt
1     1 181.0   1
2     2 179.0   1
3     3 180.5   1
4     4 201.0   2
5     5 201.5   2
6     6 245.0   2
7     7 246.4   2
8     8 189.3   1
9     9 301.0   3
10   10 354.0   3
11   11 369.0   3
12   12 205.0   2
13   13 199.0   1
14   14 394.0   3
15   15 231.3   2
> 
```
- Je crois que j'aurais utilisé le terme de "codage" au lieu de "casser", ce qui signifie que j'ai besoin de code wt=179<200 1; wt=200<300 2 et wt>300 3. désolé pour mon erreur!
- J'ai ajouté le code pour ajouter le groupe. Vous pouvez regarder le right paramètre pour inclure soit la gauche ou la droite de l'intervalle. Je pense à ma gauche/droite paramètre est désactivé à partir de votre exemple.
- Je pense que mon bloc de données correspond à la vôtre dès maintenant.
- J'imagine labels = FALSE est préféré au as.numeric() pour ceux qui ont travaillé sur ces choses.
- que faire si j'ai besoin de scinder mon wt variable en 3 groupes de taille égale ou toute variable continue d'ailleurs
InformationsquelleAutor Greg
2

Je pense que Greg réponses couvrir "standard operating procedure", mais je trouve beaucoup d'utilisations pour le findInterval fonction. Il revient naturellement un certain nombre qui identifie l'intervalle dans le deuxième argument.
```
 data$int <- findInterval(data$wt, c(179, 200, 300, Inf))
 data
```
InformationsquelleAutor 42-

Juste pour montrer un autre (similaire à recoder dans SPSS) méthode de paquet voiture:

> data$SWT <- with(data, recode(wt, "lo:200=1; 300:hi=3; else=2"))
> data
   anim    wt SWT
1     1 181.0   1
2     2 179.0   1
3     3 180.5   1
4     4 201.0   2
5     5 201.5   2
6     6 245.0   2
7     7 246.4   2
8     8 189.3   1
9     9 301.0   3
10   10 354.0   3
11   11 369.0   3
12   12 205.0   2
13   13 199.0   1
14   14 394.0   3
15   15 231.3   2

J'ai aussi utiliser le package voiture dans certains de mes recodage de travail sur les variables catégorielles comme: df$newvar <- recode(df$oldvar,"c(1)=2;c(0)=1"), mais ne l'a jamais utilisé sur la continuité de la varibales. Merci pour cette!

InformationsquelleAutor daroczig

0

Juste pour l'intégralité et de l'info, la classInt paquet (sur CRAN) est un autre moyen très pratique pour classer les nombres dans les classes.

InformationsquelleAutor Spacedman

Vous devez vous connecter pour publier un commentaire.