Discussion :

[A. D.]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

M2 <- as.data.frame(sapply(M, as.factor, simplify=FALSE))

[A. D.]

Merci pour cet éclaircissement pitipoisson !


Cordialement,

A.D.