Как удалить последние 100 элементов серии зоопарков?
Я знаю название [-element]
но я не могу заставить его работать, чтобы вычитать полный раздел
Ответ 1
Мне нравится использовать head для этого, потому что его легче набирать. Другие методы, вероятно, выполняются быстрее, хотя... но я ленив, а мой компьютер - нет.; -)
x <- head(x,-100)
> head(1:102,-100)
[1] 1 2
Ответ 2
Я ставлю length<- - самый эффективный способ обрезать вектор:
> x <- 1:10^5
> length(x)
[1] 100000
> length(x) <- 3
> x
[1] 1 2 3
Ответ 3
Просто используйте числовые индексы, т.е.
N <- nrow(X)
X <- X[1:(N-100-1),]
где вам необходимо убедиться, что N больше 100 и т.д.
Ответ 4
На самом деле существует гораздо более быстрый способ:
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