Comment accéder à la dernière valeur d'un vecteur ?

Question

Supposons que j'ai un vecteur qui est imbriqué dans un cadre de données à un ou deux niveaux. Existe-t-il un moyen rapide d'accéder à la dernière valeur, sans utiliser la fonction length() fonction ? Quelque chose comme la fonction PERL $# var spécial ?

Je voudrais donc quelque chose comme :

dat$vec1$vec2[$#]

au lieu de

dat$vec1$vec2[length(dat$vec1$vec2)]

Answer 1

J'utilise le tail fonction :

tail(vector, n=1)

Ce qui est bien avec tail c'est qu'il fonctionne aussi sur les dataframes, contrairement à l'option x[length(x)] idiome.

Answer 2

Si vous cherchez quelque chose d'aussi agréable que la notation x[-1] de Python, je pense que vous n'avez pas de chance. L'idiome standard est

x[length(x)]  

mais il est assez facile d'écrire une fonction pour le faire :

last <- function(x) { return( x[length(x)] ) }

Cette fonctionnalité manquante dans R m'ennuie aussi !

Answer 3

Combinaison de de lindelof et Gregg Lind des idées :

last <- function(x) { tail(x, n = 1) }

En travaillant à l'invite, j'omets généralement le caractère n= c'est-à-dire tail(x, 1) .

Contrairement à last de la pastecs paquet, head et tail (de utils ) fonctionnent non seulement sur des vecteurs mais aussi sur des cadres de données, etc. et peuvent également renvoyer des données " sans les n premiers/ derniers éléments ", par exemple

but.last <- function(x) { head(x, n = -1) }

(Notez que vous devez utiliser head pour cela, au lieu de tail .)

Answer 4

Je viens de tester ces deux approches sur un cadre de données de 663 552 lignes en utilisant le code suivant :

system.time(
  resultsByLevel$subject <- sapply(resultsByLevel$variable, function(x) {
    s <- strsplit(x, ".", fixed=TRUE)[[1]]
    s[length(s)]
  })
  )

 user  system elapsed 
  3.722   0.000   3.594 

et

system.time(
  resultsByLevel$subject <- sapply(resultsByLevel$variable, function(x) {
    s <- strsplit(x, ".", fixed=TRUE)[[1]]
    tail(s, n=1)
  })
  )

   user  system elapsed 
 28.174   0.000  27.662 

Ainsi, en supposant que vous travaillez avec des vecteurs, l'accès à la position de la longueur est nettement plus rapide.

Answer 5

Une autre méthode consiste à prendre le premier élément du vecteur inversé :

rev(dat$vect1$vec2)[1]