サブセットの遅れた値がR

Question

ある特定のデータテーブルについては、以下のサンプルを参照してください.NUの行を削除せずに、Unique_IDで2より大きい値の差分列を保持したいだけです。ここ

My_data_table <- structure(list(Unique_ID = structure(c(1L, 1L, 2L, 2L, 3L, 
        3L, 3L, 4L, 4L, 4L), .Label = c("1AA", "3AA", "5AA", "6AA"), 
        class = "factor"), Distance.km. = c(1, 2.05, 2, 4, 2, 4, 7, 
        8, 9, 10), Difference = c(NA, 1.05, NA, 2, NA, 2, 3, NA, 1, 1)), 
        .Names = c("Unique_ID", "Distance.km.", "Difference"), 
        class = "data.frame", row.names = c(NA, -10L)) 
My_data_table 
Unique_ID Distance(km) Difference  
1AA  1    NA   
1AA  2.05   1.05   
3AA  2    NA   
3AA  4    2   
5AA  2    NA   
5AA  4    2   
5AA  7    3 
6AA  8    NA 
6AA  9    1 
6AA  10   1 

'はUNIQUE_ID'、論理ベクトルのifsum（Difference >= 2）によってグループ化され、iは（setDT(df1)） 'data.table' に変換した後

 My_data_table 
Unique_ID Distance(km) Difference    
3AA  2    NA   
3AA  4    2   
5AA  2    NA   
5AA  4    2   
5AA  7    3 

Answer 1

を探していた結果でありますが0より大きい場合、 'Difference'がNAまたは|より大きいか2より大きいData.table（.SD）のサブセットを取得します。

library(data.table) 
setDT(df1)[, if(sum(Difference >=2, na.rm = TRUE)>0) 
       .SD[is.na(Difference)|Difference>=2], by = Unique_ID] 
#  Unique_ID Distance.km. Difference 
#1:  3AA   2   NA 
#2:  3AA   4   2 
#3:  5AA   2   NA 
#4:  5AA   4   2 
#5:  5AA   7   3 

Answer 2

dplyrソリューション：

library(dplyr) 

df %>% 
    group_by(Unique_ID) %>% 
    filter(any(Difference >= 2 & !is.na(Difference))) 
# # A tibble: 5 x 3 
# # Groups: Unique_ID [2] 
# Unique_ID Distance.km. Difference 
#  <fctr>  <dbl>  <dbl> 
# 1  3AA   2   NA 
# 2  3AA   4   2 
# 3  5AA   2   NA 
# 4  5AA   4   2 
# 5  5AA   7   3