Question

I have a dataframe, where a factor has different amounts of rows. I would like to remove the last 2 rows of each factor level. test<-data.frame(id=c(1,1,1,1,1,2,2,2,2,2,2,3,3,3,3,3,3,3), val=c(3,5,4,6,7,4,1,6,7,8,4,2,0,3,6,8,1,2), trt=c(1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2))

其结果应如此:

   id val trt
1   1   3   1
2   1   5   1
3   1   4   1
4   2   4   1
5   2   1   1
6   2   6   1
7   2   7   1
8   3   2   2
9   3   0   2
10  3   3   2
11  3   6   2
12  3   8   2

我需要增加的一点是把其他各栏放在数据框架内。我编辑了这个例子,以包括另一个与这项工作无关的因素,但我确实需要这个因素(以及一个更强大的团队)来进行今后的计算。

Answer 1

<sequences alonid by id <>>>> /em>,应缩短到length - 1. 我们可为此使用ave和subset。

> subset(test, ave(id, id, FUN=(x) seq_along(x) < length(x) - 1L) == 1L) id val 1 1 3 2 1 5 3 1 4 6 2 4 7 2 1 8 2 6 9 2 7 12 3 2 13 3 0 14 3 3 15 3 6 16 3 8

Data:

> dput(test)
structure(list(id = c(1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 
3, 3, 3, 3, 3), val = c(3, 5, 4, 6, 7, 4, 1, 6, 7, 8, 4, 2, 0, 
3, 6, 8, 1, 2)), class = "data.frame", row.names = c(NA, -18L
))

Answer 2

缩略语

library(data.table)

setDT(test)[,.(val = val[1:(.N - 2)]), id][]
#>     id val
#>  1:  1   3
#>  2:  1   5
#>  3:  1   4
#>  4:  2   4
#>  5:  2   1
#>  6:  2   6
#>  7:  2   7
#>  8:  3   2
#>  9:  3   0
#> 10:  3   3
#> 11:  3   6
#> 12:  3   8

或,使用<代码>。 SD

setDT(test)[,.SD[1:(.N - 2)], id][]
#>     id val trt
#>  1:  1   3   1
#>  2:  1   5   1
#>  3:  1   4   1
#>  4:  2   4   1
#>  5:  2   1   1
#>  6:  2   6   1
#>  7:  2   7   1
#>  8:  3   2   2
#>  9:  3   0   2
#> 10:  3   3   2
#> 11:  3   6   2
#> 12:  3   8   2

请注意,如果尚未按<代码>id分类,则将重新安排与原始数据有关的数据。

基础R(如果test,则按id分类):

test[sequence((n <- rle(test$id)[[1]]) - 2, c(1, cumsum(n[-length(n)]) + 1)),]
#>     id val trt
#>  1:  1   3   1
#>  2:  1   5   1
#>  3:  1   4   1
#>  4:  2   4   1
#>  5:  2   1   1
#>  6:  2   6   1
#>  7:  2   7   1
#>  8:  3   2   2
#>  9:  3   0   2
#> 10:  3   3   2
#> 11:  3   6   2
#> 12:  3   8   2

Answer 3

页: 1

> library(dplyr)

> test %>% slice_head(n = -2, by = id)
   id val
1   1   3
2   1   5
3   1   4
4   2   4
5   2   1
6   2   6
7   2   7
8   3   2
9   3   0
10  3   3
11  3   6
12  3   8

友情链接