ここでR

Question

でグループごとに最後のレコード（ID）が私のデータで削除します。ここでは

> PayInstance EMPLID DEPTID JOBCODE PAY_FREQUENCY MAX._TTL.GROSS 
> 1 1 23231606 100880    W   1203 
> 2 1 23231606 100880    W   597 
> 3 1 23231606 100880    W   625 
> 4 1 23231606 100880    W   245 
> 5 1 23231606 100880    W   480 
> 6 1 23231606 100880    W   758 
> 7 1 23231606 100880    W   599 
> 1 2 23231606 100880    W   551 
> 2 2 23231606 100880    W   767 
> 3 2 23231606 100880    W   880 
> 3 2 23231606 100880    W   557 
> 4 2 20441606 100880    W   909 

は私がやりたいものです。

> PayInstance EMPLID DEPTID JOBCODE PAY_FREQUENCY MAX._TTL.GROSS 
> 1 1 23231606 100880    W   1203 
> 2 1 23231606 100880    W   597 
> 3 1 23231606 100880    W   625 
> 4 1 23231606 100880    W   245 
> 5 1 23231606 100880    W   480 
> 6 1 23231606 100880    W   758 
> 1 2 23231606 100880    W   551 
> 2 2 23231606 100880    W   767 
> 3 2 23231606 100880    W   880 
> 3 2 23231606 100880    W   557 

これが私のスタートですが、私はよ、私はこのために私自身の関数を記述する必要があります私は、私がコメント欄で完全に有効な解答に加えて

df %>% 
    group_by(EMPLID) %>% 

Answer 1

ないよ確信していると、誰かが役に立つことを願って仮定ここで代替dplyrを使用したソリューションとdata.table

## Data table 
setDT(df) 
df[, obs := 1:.N] 
df[df[, max(obs) != obs, by = EMPLID]$V1, ] 


## Dplyr 
df$obs <- 1:nrow(df) 
df %>% group_by(EMPLID) %>% filter(max(obs) != obs)