Discussion :

[mathieu_r]

Bonjour

C'est encore moi: en ce moment, je suis en pleine analyse de données et je débute sous R d'où ma présence et le fait que je sollicite plus que je n'aide (mais ça viendra, j'espère)

Voilà, j'ai une liste qui est la 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
> fichiers
$CALVI
[1] "c2B050_CALVI_pnb10_parcelle.csv"
 
$ALGAJOLA
[1] "c2B010_ALGAJOLA_pnb10_parcelle.csv"
 
$AREGNO
[1] "c2B020_AREGNO_pnb10_parcelle.csv"
 
$BELGODERE
[1] "c2B034_BELGODERE_pnb10_parcelle.csv"
 
$CALENZANA
[1] "c2B049_CALENZANA_pnb10_parcelle.csv"

J'aimerais annexer les lignes de l'ensemble de ces fichiers via rbind, mais j'obtiens un message d'avis que j'ai peine à déchiffrer. Aussi, ma solution me semble peu élégante...

La voici:

Code :

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

1
2
resultat<-NA
for (i in fichiers) resultat<-rbind(read.csv2(i),resultat)

Il y a sûrement mieux...
Aussi, que signifie ce message d'avis?

Merci!

[A. D.]

Bonjour,

Vous pouvez peut-être essayer :

Code :

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

1
2
> resultat<-NULL
> for (i in fichiers) resultat<-rbind(read.csv(file=deparse(i)),resultat)

Bonne continuation


Cordialement,

A.D.

[mathieu_r]

ok ça marche très bien.

merci

[mathieu_r]

Bonjour,

Juste pour vous dire que j'ai trouvé une solution plus simple qui consuste à utiliser la fonction reduce:

Reduce(rbind,list)

[A. D.]

Bonjour,


Je ne connaissais pas la fonction "Reduce", c'est bon à savoir.

Par contre, si vous souhaitiez simplement obtenir un vecteur contenant les noms de fichiers de votre liste, pourquoi avoir utilisé la fonction "read.csv" ?
Et si vous souhaitiez ouvrir tous les fichiers dont les noms sont contenus dans la liste, je ne vois pas ce que change l'utilisation de "Reduce"...

Cela dit merci d'être revenu poster cette info


Cordialement,

A.D.

[pitipoisson]

Bonjour,

Je ne connaissais pas non plus cette fonction, comme quoi on en découvre tous les jours en R !

Bon pour info - et parce que R offre toujours de multiples possibilité - on peut également utiliser :

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
> l <- as.list(letters[1:5])
> l
[[1]]
[1] "a"

[[2]]
[1] "b"

[[3]]
[1] "c"

[[4]]
[1] "d"

[[5]]
[1] "e"

> do.call(rbind, l)
     [,1]
[1,] "a" 
[2,] "b" 
[3,] "c" 
[4,] "d" 
[5,] "e"

(ne me demandez pas quelles sont les différences fondamentales avec la précédente).

ou bien encore le très simple

Code :

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

1
2
> unlist(l)
[1] "a" "b" "c" "d" "e"

dont le résultat peut évidement être stocké dans une colonne de l'objet de votre choix.

[mathieu_r]

merci pour toutes vos réponses.

j'y suis presque!..

En fait, y a qqch que je ne comprends pas. Je bute lors de la création d'une liste dont chaque élément contient le contenu du csv...

Le résultat est différent selon que j'ai un point-virgule ou une virgule comme séparateur. Notamment, j'obtiens un résultat correct avec la virgule mais pas avec le point-virgule...

J'ai créé deux fichiers csv, chacun avec le sép , ou ;

test avec Virgule:
1-virgule.csv

Code :

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

1
2
3
col1,col2
"a","b"
"c","d"

2-virgule.csv:

Code :

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

1
2
3
col1,col2
1,2
3,4

Je crée la liste

Code :

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

1
2
3
4
5
6
7
8
9
10
11
> list=list("1-virgule.csv", "2-virgule.csv")
> s=sapply(list, read.csv(x))
> length(s)
[1] 2
> s
$col1.col2
[1] a,b c,d
Levels: a,b c,d
 
$col1.col2
[1] 1.2 3.4

nickel!

Par contre, avec les mêmes fichiers avec des points-virgule:
1-pointVirgule.csv

Code :

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

1
2
3
col1;col2
"a";"b"
"c";"d"

2-pointVirgule.csv:

Code :

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

1
2
3
col1;col2
1;2
3;4

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
> list=list("1-pointVirgule.csv", "2-pointVirgule.csv")
> s<-sapply(list,function(x)read.csv2(x))
> length(s)
[1] 4
> s
     [,1]     [,2]     
col1 factor,2 Integer,2
col2 factor,2 Integer,2
> read.csv2(list[[1]])
  col1 col2
1    a    b
2    c    d

Comme on peut le voir, la lecture d'un fichier individuellement fonctionne bien!..

(No comprendo..)

[A. D.]

Bonjour Mathieu,


Tout d'abord, je me permets une petite remarque : ce n'est jamais une bonne idée d'appeler un objet de type liste "list" car c'est aussi le nom d'une fonction.

Ensuite, j'ai repris les fichiers tels que vous les donnez et j'ai utilisé la fonction "lapply" plutôt que "sapply", et personnellement j'obtiens quelque chose qui me semble correct :

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
# avec virgule
 
> read.csv("1-virgule.csv")
  col1 col2
1    a    b
2    c    d
> read.csv("2-virgule.csv")
  col1 col2
1    1    2
2    3    4
 
 
> L<-list("1-virgule.csv","2-virgule.csv")
> L
[[1]]
[1] "1-virgule.csv"
 
[[2]]
[1] "2-virgule.csv"
 
> s<-lapply(L,function(x) read.csv(x))
> s
[[1]]
  col1 col2
1    a    b
2    c    d
 
[[2]]
  col1 col2
1    1    2
2    3    4
 
 
# avec point virgule
 
> read.csv2("1-pointVirgule.csv")
  col1 col2
1    a    b
2    c    d
> read.csv2("2-pointVirgule.csv")
  col1 col2
1    1    2
2    3    4
 
 
> L2<-list("1-pointVirgule.csv","2-pointVirgule.csv")
> L2
[[1]]
[1] "1-pointVirgule.csv"
 
[[2]]
[1] "2-pointVirgule.csv"
 
 
> s2<-lapply(L2,function(x) read.csv2(x))
> s2
[[1]]
  col1 col2
1    a    b
2    c    d
 
[[2]]
  col1 col2
1    1    2
2    3    4

Bonne continuation


Cordialement,

A.D.

[mathieu_r]

Je l'avais lu dans la doc' qu'içlne fallait pas utiliser les noms de fonction mais c'était juste pour l'exemple!

En tout, c'est sympa de m'avoir répondu et ça marche nickel!