如何提取（或子集）數據框中列上的條件的所有行？

Question

我有以下數據框，並希望提取與狀態== 1相同的組對應的所有行。

狀態欄是0或1。

df<-data.frame(time= rep(1:4,times=c(2,3,5,4)),status=c(0,0,1,1,0,0,0,0,0,0,1,0,0,0)) 

    Input Data 

    time status 

1  1  0 
2  1  0 
3  2  1 
4  2  1 
5  2  0 
6  3  0 
7  3  0 
8  3  0 
9  3  0 
10 3  0 
11 4  1 
12 4  0 
13 4  0 
14 4  0 

希望的輸出（與重新編號序列中的組列）。

time status 

    1  1 
    1  1 
    1  0 
    2  1 
    2  0 
    2  0 
    2  0 

我的實際data.frame的尺寸爲10^6以便通過5

謝謝您的幫助。

Answer 1

嗯提取行，所以你要拿到小組兩個和四個，因爲一個這兩個組都有一個狀態值，對嗎？從這兩組你想要得到整個輸出？

如果是這樣，這個怎麼樣：

df <- data.frame(time = rep(1:4, times = c(2,3,5,4)), 
       status = c(0,0,1,1,0,0,0,0,0,0,1,0,0,0)) 

id <- unique(df[df$status == 1, "time"]) 
df2 <- df[df$time %in% id, ] 

編輯：

df2$time <- factor(df2$time, labels = c(1,2)) 

Answer 2

我有點困惑，因爲你試圖做兩件獨立的事情 - 首先想要提取狀態== 1的行，而在你想要的輸出中，有零行的行。 這是一種方法，你如何與狀態== 1

df1 <- data.frame(time= rep(1:4,times=c(2,3,5,4)),status=c(0,0,1,1,0,0,0,0,0,0,1,0,0,0)) 
df1$time <- factor(df1$time) 
df1s <- split(df1, df1$time) 
df1l <- lapply(df1s, function(x) { 
      x[x$status == 1, ] 
     }) 
df1l <- do.call("rbind", df1l) 

或周圍的其他方法

df2 <- df1[df1$status == 1, ] 
df2.l <- split(df2, as.factor(df2$time))