Discussion :

[CE.KA]

Bonjour,

Imaginons le tableau «base» :

Code :

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

1
2
3
4
5
colone1=c("d","d","b","b","a","a")
colone2=c("var1","var2","var1","var2","var1","var2")
colone3=c(5,2,4,8,9,7)
base=data.frame(colone1,colone2,colone3)
base

(j'ai utilisé les """"" pour mettre en forme le tableau)

Code :

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

1
2
3
4
5
6
7
 """    colone1 colone2 colone3
1"""""       d """""       var1 """""          5
2"""""       d """""       var2 """""          2
3"""""       b """""       var1 """""          4
4"""""       b """""       var2  """""         8
5"""""       a """""       var1 """""          9
6"""""       a """""       var2  """""         7

Comment programmer R pour obtenir le tableau croisé de valeurs suivant :

Code :

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

1
2
3
4
"""	var1"	var2
a"""""	9"""""	7
b"""""	4"""""	8
d"""""	5"""""	2

Cordialement

[vchouraki]

Bonjour,

Code :

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

?tapply

HTH

Vincent

[CE.KA]

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
55
56
57
58
59
60
61
62
63
colone1=c("d","d","b","b","a","a")
colone2=c("var1","var2","var1","var2","var1","var2")
colone3=c(5,2,4,8,9,7)
base=data.frame(colone1,colone2,colone3)
base
  colone1 colone2 colone3
1       d    var1       5
2       d    var2       2
3       b    var1       4
4       b    var2       8
5       a    var1       9
6       a    var2       7
 
table(base$colone1,base$colone2)
 
table(base$colone1,base$colone2,base$colone3)
, ,  = 2
 
 
    var1 var2
  a    0    0
  b    0    0
  d    0    1
 
, ,  = 4
 
 
    var1 var2
  a    0    0
  b    1    0
  d    0    0
 
, ,  = 5
 
 
    var1 var2
  a    0    0
  b    0    0
  d    1    0
 
, ,  = 7
 
 
    var1 var2
  a    0    1
  b    0    0
  d    0    0
 
, ,  = 8
 
 
    var1 var2
  a    0    0
  b    0    1
  d    0    0
 
, ,  = 9
 
 
    var1 var2
  a    1    0
  b    0    0
  d    0    0

En utilisant "table" on se rapproche du résultat mais le tableau est dissocié en plusieurs "matrices".

Il doit forcément y avoir une fonction pour faire un tableau croisé dynamique de valeurs, c'est-à-dire sans opération (somme, moyenne, ...) ?

Cordialement

[hoccha]

Hello,

voici une proposition de solution:

Code :

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

1
2
3
4
5
c1   <- c("d","d","b","b","a","a")
c2   <- c("var1","var2","var1","var2","var1","var2")
c3   <- c(5,2,4,8,9,7)
base <- data.frame(c1,c2,c3)
xtabs(c3~c1+c2,base)

Output:

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
 
> base
  c1   c2 c3
1  d var1  5
2  d var2  2
3  b var1  4
4  b var2  8
5  a var1  9
6  a var2  7
 
> xtabs(c3~c1+c2,base)
   c2
c1  var1 var2
  a    9    7
  b    4    8
  d    5    2

Bonne continuation

[vchouraki]

Bonjour,

En reprenant votre code :

Code :

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

tapply(base$colone3, list(base$colone1, base$colone2), c)

HTH

Vincent