Convertir les variables catégorielles numérique dans la R

Peut-être que vous êtes après data.matrix. À partir de la fonction de la description:

Retour de la matrice obtenue par la conversion de toutes les variables dans un bloc de données pour le mode numérique, puis les lier ensemble, comme les colonnes d'une matrice. Facteurs et a ordonné facteurs sont remplacés par leurs codes internes.

Exemple:

mydf <- data.frame(A = letters[1:5],
B = LETTERS[1:5],
C = month.abb[1:5],
D = 1:5)
str(mydf)
# 'data.frame': 5 obs. of  4 variables:
#  $ A: Factor w/5 levels "a","b","c","d",..: 1 2 3 4 5
#  $ B: Factor w/5 levels "A","B","C","D",..: 1 2 3 4 5
#  $ C: Factor w/5 levels "Apr","Feb","Jan",..: 3 2 4 1 5
#  $ D: int  1 2 3 4 5
data.matrix(mydf)
#      A B C D
# [1,] 1 1 3 1
# [2,] 2 2 2 2
# [3,] 3 3 4 3
# [4,] 4 4 1 4
# [5,] 5 5 5 5

Le remplacer tout à la fois avec:

mydf[] <- data.matrix(mydf)
mydf
#   A B C D
# 1 1 1 3 1
# 2 2 2 2 2
# 3 3 3 4 3
# 4 4 4 1 4
# 5 5 5 5 5

---

Bien sûr, si vous avez beaucoup plus de types de colonnes, vous aurez à décider de la façon dont vous voulez traiter avec eux. Par exemple, il y a la crainte que si il y a un character colonne, data.matrix entraînerait une colonne de NA valeurs, ce qui est correct. Cependant, la préoccupation devrait être "Comment voudriez-vous traiter avec character colonnes?

Voici deux options. Vous pouvez étendre la logique de la même façon pour les autres types de colonne.

mydf <- data.frame(A = letters[1:5],
B = LETTERS[1:5],
C = month.abb[1:5],
D = 1:5)
mydf$E <- state.abb[1:5]
str(mydf)
# 'data.frame': 5 obs. of  5 variables:
#  $ A: Factor w/5 levels "a","b","c","d",..: 1 2 3 4 5
#  $ B: Factor w/5 levels "A","B","C","D",..: 1 2 3 4 5
#  $ C: Factor w/5 levels "Apr","Feb","Jan",..: 3 2 4 1 5
#  $ D: int  1 2 3 4 5
#  $ E: chr  "AL" "AK" "AZ" "AR" ...
## You want to convert everything to numeric
data.matrix(data.frame(unclass(mydf))) 
#      A B C D E
# [1,] 1 1 3 1 2
# [2,] 2 2 2 2 1
# [3,] 3 3 4 3 4
# [4,] 4 4 1 4 3
# [5,] 5 5 5 5 5
## You only want to convert factors to numeric
mydf[sapply(mydf, is.factor)] <- data.matrix(mydf[sapply(mydf, is.factor)])
mydf
#   A B C D  E
# 1 1 1 3 1 AL
# 2 2 2 2 2 AK
# 3 3 3 4 3 AZ
# 4 4 4 1 4 AR
# 5 5 5 5 5 CA

as.numeric fait le travail aussi.

df <- iris
df$newgroup <- as.factor(rep(c(letters[1:10]))) # just another factor
str(df) # Species and newgroup are categorial variables
as.numeric(df$Species) # this returns the levels (numeric) of Species.
# Now, we want to apply this automatically to all
# categorical variables
# using lapply
i <- sapply(df, is.factor)
df[i] <- lapply(df[i], as.numeric)
str(df)
# using dplyr
#(load df again)
library(dplyr)
df2 <- df %>% mutate_if(is.factor, as.numeric)
str(df2)
# using purrr
library(purrr)
df3 <- df %>% map_if(is.factor, as.numeric)
str(df3)

Si vous aussi vous souhaitez créer des mannequins, des variables, essayez

library(dummies)
df.4 <- dummy.data.frame(df, sep = ".")

Juste à ajouter aux réponses déjà postées, ce lien fournit des exemples de comment convertir des catégories de données numériques, mais aussi de la carte ces chiffres aux valeurs indiquées, si vous n'êtes pas heureux avec la conversion par défaut.