Как удалить первые и последние N строк в кадре данных, используя R?

Question

У меня есть фрейм данных df из 2M + строк, который выглядит следующим образом:

        LOCUS POS COUNT
1: CP007539.1   1     4
2: CP007539.1   2     7
3: CP007539.1   3    10
4: CP007539.1   4    15
5: CP007539.1   5    21
6: CP007539.1   6    28

В настоящее время я использую это для удаления первой и последней 1000 строк:

> df_adj = df[head(df$POS,-1000),]
> df_adj = tail[(df_adj$POS,-1000),]

Но даже я вижу, что это можно сделать лучше.Предложения?

Answer 1

Вы можете выполнить это, указав диапазон строк, которые вы хотите оставить в окончательном наборе данных:

 df_adj <- df[1001:( nrow(df) - 1000 ),]

Просто убедитесь, что у вас достаточно строк для этого.Более безопасный подход может быть:

df_adj <- if( nrow(df) > 2000 ) df[1001:( nrow(df) - 1000 ),] else df