it-swarm-ko.tech

벡터의 마지막 값에 접근하는 방법?

데이터 프레임 하나 또는 두 개의 레벨에 중첩 된 벡터가 있다고 가정합니다. length() 함수를 사용하지 않고 마지막 값에 액세스하는 빠르고 더러운 방법이 있습니까? Perl의 $# 특별한 var?

그래서 나는 다음과 같이하고 싶다.

dat$vec1$vec2[$#]

대신에

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

tail() 함수를 사용합니다.

tail(vector, n=1)

tail()의 좋은 점은 x[length(x)] 관용구와 달리 데이터 프레임에서도 작동한다는 것입니다.

317
lindelof

미학적이지만 성능 지향적 인 관점에서 대답하는 것이 아니라 위의 제안을 모두 벤치 마크를 통해 적용했습니다. 정확하게 말하면, 나는 제안을 고려했다.

  • x[length(x)]
  • mylast(x), 여기서 mylast은 Rcpp를 통해 구현 된 C++ 함수이며,
  • tail(x, n=1)
  • dplyr::last(x)
  • x[end(x)[1]]]
  • rev(x)[1]

다양한 크기 (10 ^ 3, 10 ^ 4, 10 ^ 5, 10 ^ 6, 10 ^ 7)의 무작위 벡터에 적용했다. 숫자를 살펴보기 전에 입력 크기가 커질수록 (즉 O(1))이 아닌 항목이 눈에 띄게 느려지는 항목은 선택 사항이 아니라는 점을 분명히 밝혀야합니다. 내가 사용한 코드는 다음과 같습니다.

Rcpp::cppFunction('double mylast(NumericVector x) { int n = x.size(); return x[n-1]; }')
options(width=100)
for (n in c(1e3,1e4,1e5,1e6,1e7)) {
  x <- runif(n);
  print(microbenchmark::microbenchmark(x[length(x)],
                                       mylast(x),
                                       tail(x, n=1),
                                       dplyr::last(x),
                                       x[end(x)[1]],
                                       rev(x)[1]))}

그것은 나에게 준다.

Unit: nanoseconds
           expr   min      lq     mean  median      uq   max neval
   x[length(x)]   171   291.5   388.91   337.5   390.0  3233   100
      mylast(x)  1291  1832.0  2329.11  2063.0  2276.0 19053   100
 tail(x, n = 1)  7718  9589.5 11236.27 10683.0 12149.0 32711   100
 dplyr::last(x) 16341 19049.5 22080.23 21673.0 23485.5 70047   100
   x[end(x)[1]]  7688 10434.0 13288.05 11889.5 13166.5 78536   100
      rev(x)[1]  7829  8951.5 10995.59  9883.0 10890.0 45763   100
Unit: nanoseconds
           expr   min      lq     mean  median      uq    max neval
   x[length(x)]   204   323.0   475.76   386.5   459.5   6029   100
      mylast(x)  1469  2102.5  2708.50  2462.0  2995.0   9723   100
 tail(x, n = 1)  7671  9504.5 12470.82 10986.5 12748.0  62320   100
 dplyr::last(x) 15703 19933.5 26352.66 22469.5 25356.5 126314   100
   x[end(x)[1]] 13766 18800.5 27137.17 21677.5 26207.5  95982   100
      rev(x)[1] 52785 58624.0 78640.93 60213.0 72778.0 851113   100
Unit: nanoseconds
           expr     min        lq       mean    median        uq     max neval
   x[length(x)]     214     346.0     583.40     529.5     720.0    1512   100
      mylast(x)    1393    2126.0    4872.60    4905.5    7338.0    9806   100
 tail(x, n = 1)    8343   10384.0   19558.05   18121.0   25417.0   69608   100
 dplyr::last(x)   16065   22960.0   36671.13   37212.0   48071.5   75946   100
   x[end(x)[1]]  360176  404965.5  432528.84  424798.0  450996.0  710501   100
      rev(x)[1] 1060547 1140149.0 1189297.38 1180997.5 1225849.0 1383479   100
Unit: nanoseconds
           expr     min        lq        mean    median         uq      max neval
   x[length(x)]     327     584.0     1150.75     996.5     1652.5     3974   100
      mylast(x)    2060    3128.5     7541.51    8899.0     9958.0    16175   100
 tail(x, n = 1)   10484   16936.0    30250.11   34030.0    39355.0    52689   100
 dplyr::last(x)   19133   47444.5    55280.09   61205.5    66312.5   105851   100
   x[end(x)[1]] 1110956 2298408.0  3670360.45 2334753.0  4475915.0 19235341   100
      rev(x)[1] 6536063 7969103.0 11004418.46 9973664.5 12340089.5 28447454   100
Unit: nanoseconds
           expr      min         lq         mean      median          uq       max neval
   x[length(x)]      327      722.0      1644.16      1133.5      2055.5     13724   100
      mylast(x)     1962     3727.5      9578.21      9951.5     12887.5     41773   100
 tail(x, n = 1)     9829    21038.0     36623.67     43710.0     48883.0     66289   100
 dplyr::last(x)    21832    35269.0     60523.40     63726.0     75539.5    200064   100
   x[end(x)[1]] 21008128 23004594.5  37356132.43  30006737.0  47839917.0 105430564   100
      rev(x)[1] 74317382 92985054.0 108618154.55 102328667.5 112443834.0 187925942   100

rev 또는 end과 관련된 모든 항목은 즉시 O(1)이 아니기 때문에 즉시 제외됩니다 (결과 식은 비 지연 방식으로 평가됩니다). taildplyr::lastO(1)에서 멀지는 않지만 mylast(x)x[length(x)]보다 상당히 느립니다. mylast(x)x[length(x)]보다 느리고 이점이 없습니다 (오히려 커스텀이고 비어있는 벡터를 정상적으로 처리하지 못합니다), 대답은 분명합니다 : x[length(x)]을 사용하십시오.

130
anonymous

Python의 x [-1] 표기법과 같은 멋진 것을 찾고 있다면, 운이 나쁘다고 생각합니다. 표준 관용구는

x[length(x)]  

이렇게하기위한 함수를 작성하기는 쉽습니다.

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

R에서 누락 된이 기능은 나도 귀찮게한다!

100
Gregg Lind

Lindelof와 Gregg Lind의 아이디어를 결합 :

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

프롬프트에서 작업 할 때 대개 "n=", 즉 tail(x, 1)을 생략합니다.

last 패키지의 pastecs과 달리 headtail (utils에서)은 벡터뿐만 아니라 데이터 프레임에서도 작동하며 "처음/마지막 n 요소가없는"데이터도 반환 할 수 있습니다.

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

(head 대신 tail을 사용해야합니다.)

43
Florian Jenn

다음 코드를 사용하여 663,552 행의 데이터 프레임에서이 두 가지 방법을 벤치마킹했습니다.

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 

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 

따라서 벡터로 작업한다고 가정하면 길이 위치에 액세스하는 것이 훨씬 빠릅니다.

17
scuerda

dplyr 패키지에는 last() 함수가 포함되어 있습니다.

last(mtcars$mpg)
# [1] 21.4
16
Sam Firke

또 다른 방법은 반전 된 벡터의 첫 번째 요소를 취하는 것입니다.

rev(dat$vect1$vec2)[1]
12
James

벡터의 마지막 요소를 찾는 다른 방법이 있습니다. 벡터가 a이라고합시다.

> a<-c(1:100,555)
> end(a)      #Gives indices of last and first positions
[1] 101   1
> a[end(a)[1]]   #Gives last element in a vector
[1] 555

너 거기 간다!

9
Akash

무엇에 관한

> a <- c(1:100,555)
> a[NROW(a)]
[1] 555
7
Kurt Ludikovsky

패키지 data.table에는 last 함수가 포함되어 있습니다.

library(data.table)
last(c(1:10))
# [1] 10

Xts 패키지는 last 함수를 제공합니다.

library(xts)
a <- 1:100
last(a)
[1] 100
2
smoff