Discussion :

[pitchu]

Bonjour,

J'essaye de créer une liste en lui ajoutant des éléments et un nom pour chaque groupe d'élément.
Comment puis-je faire pour donner le nom de s1 et s2 dans la liste a pour que l'on puisse accéder aux éléments correspondant avec la commande a$nom.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
s1 = c(1,2,3)
s2 = c(4,5,6)
a = list()
 
a[1] = NA
a[[1]] = s1
 
a[2] = NA
a[[2]] = s2

[tototode]

Bonjour,

tu as plusieurs façons de faire :

Code :

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

1
2
3
4
5
6
7
8
9
# au moment de la création de la liste :
l1 <- list(s1 = s1, s2=s2)
l1$s2
[1] 4 5 6
# a postériori :
l1 <- list(s1, s2)
names(l1) <- c("s1", "s2")
l1$s2
[1] 4 5 6

cdlt

[pitchu]

bonjour,

quand je fais la commande names(l1) <- c("s1", "s2"), j'obtiens cette erreur.

Code :

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

1
2
Error in (function (classes, fdef, mtable)  : 
  unable to find an inherited method for function ‘name<-’ for signature ‘"list"’

[tototode]

es-tu sur d'avoir taper names(l1) <- c("s1", "s2") et pas plutôt name(l1) <- c("s1", "s2") ? Dans mon exemple ma liste s'appelle l1 et je vois que la tienne s'appelle a, est-ce que tu as mis le bon nom de liste dans la fonction names ?

Sinon il n'y a pas de raison pour que ça ne fonctionne pas.

[pitchu]

ha ^^, l'exemple fonctionne.
Lorsque je souhaite récupérer le nom à partir d'une autre liste. Il ne se passe rien

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
 
> l2
$s1
[1] 'a' 'b' 'c'
 
$s2
[1] 'd' 'e' 'f'
 
> l1
[[1]]
[1] 1 2 3
 
[[2]]
[1] 4 5 6
 
> names(l1[1]) = names(l2[1])
> l1[1]
[[1]]
[1] 1 2 3

[Theta]

Code :

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

1
2
 
names(l1)[1] = names(l2)[1]