Appliquer "as.factor" à toutes les colonnes d'un data.frame

Version imprimable

Bonjour à tous,

En fait je ne pose pas vraiment un problème ici mais plutôt quelque chose d'étrange que j'ai remarqué.
Ci-dessous le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
A<-sample(1:5,10,replace=TRUE)
B<-sample(1:3,10,replace=TRUE)
C<-sample(1:6,10,replace=TRUE)
 
M<-data.frame(A,B,C)
 
is.factor(M[,1])
[1] FALSE
 
summary(M)
       A              B              C      
 Min.   :1.00   Min.   :1.00   Min.   :1.0  
 1st Qu.:2.25   1st Qu.:1.25   1st Qu.:2.0  
 Median :4.50   Median :2.00   Median :5.0  
 Mean   :3.70   Mean   :2.10   Mean   :4.1  
 3rd Qu.:5.00   3rd Qu.:3.00   3rd Qu.:6.0  
 Max.   :5.00   Max.   :3.00   Max.   :6.0  
 
 
## test 1 ##
 
M<-apply(M,2,as.factor)
 
is.factor(M[,1])
[1] FALSE
 
summary(M)
 A     B     C    
 1:1   1:3   1:1  
 2:2   2:3   2:3  
 3:1   3:4   5:2  
 4:1         6:4  
 5:5   
 
 
## test 2 ##
 
M<-data.frame(A,B,C)
 
for(k in 1:ncol(M))
{
	M[,k]<-as.factor(M[,k])
}
 
is.factor(M[,1])
[1] TRUE
 
summary(M)
 A     B     C    
 1:1   1:3   1:1  
 2:2   2:3   2:3  
 3:1   3:4   5:2  
 4:1         6:4  
 5:5

A quoi pensez-vous que cette différence puisse être dûe? Peut-être que c'est tout bête mais je ne vois pas trop...

Bonne journée :)

Cordialement,

A.D.

16/11/2011, 13h41
pitipoisson
Salut,

C'est parce que la fonction apply simplifie le résultat en une matrice, et que tu ne peux avoir une matrice de facteur.

Même un sapply tout seul te fera cette simplification.

Pour arriver à tes fins, tu dois faire :
Code:

1 2 3 4 5 6 7 > M2 <- as.data.frame(lapply(M, as.factor)) > class(M2) [1] "data.frame" > class(M2[,1]) [1] "factor"
Ça tient au fait que lapply retourne une liste, sans faire la-dite simplification.
Ça devrait d'ailleurs également marcher avec

Code:

M2 <- as.data.frame(sapply(M, as.factor, simplify=FALSE))
16/11/2011, 14h27
A. D.

Merci pour cet éclaircissement pitipoisson ! :)

Cordialement,

A.D.