Discussion :

[AuroreGau]

Bonjour,
J'ai besoin d'un petit coup de main. Je me retrouve avec la liste suivante.

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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
 
> L_new1
[[1]]
     C2      x1     
[1,] " 0.35" "I8-I1"
 
[[2]]
character(0)
 
[[3]]
     C1-C2   C1      C1-C2   x1     
[1,] "-3.56" "-1.91" " 0.44" "I8-I1"
 
[[4]]
     C1 x1
 
[[5]]
     C1      x1     
[1,] " 0.44" "I8-I1"
[2,] " 0.76" "S8-I1"
 
[[6]]
character(0)
 
[[7]]
     I1-I8   x1  
[1,] " 0.41" "C1"
[2,] "-0.41" "C1"
 
[[8]]
character(0)
 
[[9]]
     I8      x1     
[1,] " 2.25" "C1-C2"
 
[[10]]
character(0)
 
[[11]]
character(0)
 
[[12]]
character(0)
 
[[13]]
character(0)
 
[[14]]
character(0)
 
[[15]]
character(0)
 
[[16]]
character(0)
 
[[17]]
character(0)
 
> str(L_new1)
List of 17
 $ : chr [1, 1:2] " 0.35" "I8-I1"
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : NULL
  .. ..$ : chr [1:2] "C2" "x1"
 $ : chr(0) 
 $ : chr [1, 1:4] "-3.56" "-1.91" " 0.44" "I8-I1"
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : NULL
  .. ..$ : chr [1:4] "C1-C2" "C1" "C1-C2" "x1"
 $ : chr[0 , 1:2] 
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : NULL
  .. ..$ : chr [1:2] "C1" "x1"
 $ : chr [1:2, 1:2] " 0.44" " 0.76" "I8-I1" "S8-I1"
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : NULL
  .. ..$ : chr [1:2] "C1" "x1"
 $ : chr(0) 
 $ : chr [1:2, 1:2] " 0.41" "-0.41" "C1" "C1"
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : NULL
  .. ..$ : chr [1:2] "I1-I8" "x1"
 $ : chr(0) 
 $ : chr [1, 1:2] " 2.25" "C1-C2"
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : NULL
  .. ..$ : chr [1:2] "I8" "x1"
 $ : chr(0) 
 $ : chr(0) 
 $ : chr(0) 
 $ : chr(0) 
 $ : chr(0) 
 $ : chr(0) 
 $ : chr(0) 
 $ : chr(0)

J'aimerais pouvoir supprimer tous les composants de cette liste qui sont des character(0) et la [[4]] aussi.
j'ai essayé de faire ceci

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
L_new1=unique(L_new1)
nu=length(L_new1)
 
L=vector("list", nu)
for(o in 1:nu){
if (length(L_new1[[o]])>0){
L[[o]]=L_new1[[o]]}}
L
 
Lbis=vector("list", nu)
for(o in 1:nu){
if (length(L[[o]])>0){
Lbis[[o]]=L[[o]]}}
Lbis
 
> Lbis
[[1]]
     C2      x1     
[1,] " 0.35" "I8-I1"
 
[[2]]
NULL
 
[[3]]
     C1-C2   C1      C1-C2   x1     
[1,] "-3.56" "-1.91" " 0.44" "I8-I1"
 
[[4]]
NULL
 
[[5]]
     C1      x1     
[1,] " 0.44" "I8-I1"
[2,] " 0.76" "S8-I1"
 
[[6]]
     I1-I8   x1  
[1,] " 0.41" "C1"
[2,] "-0.41" "C1"
 
[[7]]
     I8      x1     
[1,] " 2.25" "C1-C2"

Mais je n'arrive pas a aller plus loin. le but étant de supprimer les NULL et ensuite de mettre les composants de la liste avec les mêmes dimensions pour pouvoir les fusionner.
Merci à tous ceux qui voudront bien m'aider.

[faubry]

Pour supprimer les membres de la liste qui ont une longueur nulle, il suffit de les rechercher et de prendre la sous-liste qui a des éléments de longueur différente de zéro :

Code :

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

new.list <- old.list[sapply( old.list, function( x) length( x) != 0)]

[AuroreGau]

Merci, ça m'aidera pour la prochaine fois. J'ai réussi à m'en sortir en transformant en data.frame.