R: loại bỏ các phần tử cuối cùng của một vector

Question

Làm cách nào để loại bỏ 100 phần tử cuối cùng của loạt thú cưng?

tôi biết tên [-element] ký hiệu nhưng tôi không thể làm cho nó làm việc để trừ một phần đầy đủ

Answer 1

Chỉ cần sử dụng các chỉ số số, tức là

N <- nrow(X) 
X <- X[1:(N-100-1),] 

nơi bạn nên cần phải đảm bảo N lớn gấp 100 vv

Answer 2

nếu bạn là một một trong lót

x = x[1:(length(x) -101)] 

Answer 3

Tôi thích sử dụng head vì điều này vì dễ nhập hơn. Các phương pháp khác có thể thực hiện nhanh hơn mặc dù ... nhưng tôi lười biếng và máy tính của tôi là không. ;-)

x <- head(x,-100) 
> head(1:102,-100) 
[1] 1 2 

Answer 4

Tôi đặt cược length<- là cách hiệu quả nhất để cắt một vector:

> x <- 1:10^5 
> length(x) 
[1] 100000 
> length(x) <- 3 
> x 
[1] 1 2 3 

Answer 5

Một one-liner vì lợi ích của sự hoàn chỉnh:

x <- lag(x, 100)[-1:-100] 

Answer 6

Trên thực tế, có một cách nhanh hơn nhiều:

y <- x[1:(length(x)-1)] 

Mã hiển thị:

> microbenchmark(y <- head(x, -1), y <- x[-length(x)],y <- x[1:(length(x)-1)], times=10000) 
Unit: microseconds 
         expr min  lq  mean median  uq  max 
      y <- head(x, -1) 71.399 76.4090 85.97572 78.9230 84.2775 2795.076 
     y <- x[-length(x)] 53.623 55.5585 65.15008 56.5680 61.1585 2523.141 
y <- x[1:(length(x) - 1)] 25.722 28.2925 36.43029 29.1855 30.4010 2410.975