comment ramasser le dernier (ou quelque chose) des éléments de tous les vecteurs dans une liste?

Question

J'ai une liste fictive ici:

> x <- c("a", "b", "c") 
> y <- c("d", "e", "f") 
> z <- list(x,y) 
> z 
[[1]] 
[1] "a" "b" "c" 

[[2]] 
[1] "d" "e" "f" 

Si je veux attribuer une autre variable (par exemple w) pour maintenir le dernier élément (ie "c", "f") de tous les vecteurs (par exemple x, y) à l'intérieur de la liste (c'est-à-dire z), comment puis-je faire cela?

Merci!

Answer 1

sapply(z, tail, n = 1) 

Answer 2

Vous pouvez également utiliser le fait que des opérateurs comme [] fonctionnent réellement avec une notation pratique. La réponse de Richie Cotton peut être écrit comme

> "["(x, 2)   # regular style function call 
[1] "b" 

# thanks Marek: this only works if length(x) is last element for all components 
> sapply(z, "[", length(x)) 
[1] "c" "f" 

> sapply(z, "[", c(1, 2)) 
    [,1] [,2] 
[1,] "a" "d" 
[2,] "b" "e" 

Answer 3

Une autre façon en utilisant mapply:

mapply("[", z, lapply(z, length))