僅從數據框中選擇特定情況

Question

如何僅選擇在特定列中後跟相同值的行？

即 從這個（使用作爲基準V1的值）

`v1 = c(1,1,2,3,1,2,4,1,1,2,3,4) 
v2 = seq(1:12) 
v3 = c(rep("blue", 4), rep("red", 4), rep("green", 4)) 
df<- data.frame(v1, v2, v3) 
df` 

> df 
    v1 v2 v3 
1 1 1 blue 
2 1 2 blue 
3 2 3 blue 
4 3 4 blue 
5 1 5 red 
6 2 6 red 
7 4 7 red 
8 1 8 red 
9 1 9 green 
10 2 10 green 
11 3 11 green 
12 4 12 green 

此;其中只有情況1和8，這是其次的情況下爲V1值也爲1個保存

v1 v2 v3 
1 1 1 blue 
8 1 8 red 

Answer 1

您可以提取感興趣的索引，然後從數據框中提取感興趣的行。

indices <- which(df$v1[1:(nrow(df)-1)]==df$v1[2:nrow(df)]) 
df.new <- df[indices,] 

Answer 2

我們可以使用rleid從data.table讓遊程類型ID，用它作爲分組變量，和if的nrow大於1（.N >1），選擇第一個觀察值（head(.SD, 1L)）。

library(data.table) 
setDT(df)[, if(.N>1) head(.SD, 1L) ,.(v1,rleid(v1))][,rleid:= NULL][] 
# v1 v2 v3 
# 1: 1 1 blue 
# 2: 1 8 red 

注意：我們用setDT(df)將'data.frame'轉換爲'data.table'。