54

如何删除动物园系列的最后 100 个元素？

我知道 name[-element] 表示法，但我无法减去一个完整的部分

4

6 回答 6

97

我喜欢用head这个，因为它更容易打字。其他方法可能执行得更快……但我很懒，我的电脑不是。;-)

x <- head(x,-100)
> head(1:102,-100)
[1] 1 2
于 2010-09-20T17:17:15.450 回答
17

实际上，有一个更快的方法：

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

代码展示：

> 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
于 2016-06-08T06:20:36.337 回答
14

我敢打赌length<-是修剪向量的最有效方法：

> x <- 1:10^5
> length(x)
[1] 100000
> length(x) <- 3
> x
[1] 1 2 3
于 2011-05-04T14:39:51.113 回答
7

只需使用数字索引，即

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

您需要确保N大于 100 等的地方

于 2010-09-20T17:08:15.013 回答
6

如果你是一个班轮

x = x[1:(length(x) -101)]
于 2010-09-20T17:10:47.427 回答
3

为了完整起见，另一个单行：

x <- lag(x, 100)[-1:-100]
于 2015-10-06T18:24:17.620 回答