R 具有重复ID的筛选器行
我的数据如下:R 具有重复ID的筛选器行,r,duplicates,R,Duplicates,我的数据如下: dat <- read.table(header=TRUE, text=" ID Veh oct nov dec jan feb 1120 1 7 47 152 259 140 2000 1 5 88 236 251 145 2000 2 14 72 263 331 147 1133 1 6 71 207 290 242 2000 3 7 47 152 259
dat <- read.table(header=TRUE, text="
ID Veh oct nov dec jan feb
1120 1 7 47 152 259 140
2000 1 5 88 236 251 145
2000 2 14 72 263 331 147
1133 1 6 71 207 290 242
2000 3 7 47 152 259 140
2002 1 5 88 236 251 145
2006 1 14 72 263 331 147
2002 2 6 71 207 290 242
")
dat
ID Veh oct nov dec jan feb
1 1120 1 7 47 152 259 140
2 2000 1 5 88 236 251 145
3 2000 2 14 72 263 331 147
4 1133 1 6 71 207 290 242
5 2000 3 7 47 152 259 140
6 2002 1 5 88 236 251 145
7 2006 1 14 72 263 331 147
8 2002 2 6 71 207 290 242
在第1列中复制单元格
但是我想保留第一行的行,如下所示(我正在努力编码):
试一试
或
我认为你对第一个独特案例的描述令人困惑。dat%%>%groupby(ID)%%>%filter(n()>1)
@akrun,我稍微更改了标题。如果你可以更好的标题,请随意编辑。我更改了一点标题,请检查这是否对你有意义。
dat[!duplicated(dat[,1]),]
ID Veh oct nov dec jan feb
1 1120 1 7 47 152 259 140
2 2000 1 5 88 236 251 145
4 1133 1 6 71 207 290 242
6 2002 1 5 88 236 251 145
7 2006 1 14 72 263 331 147
dat[duplicated(dat[,1]),]
ID Veh oct nov dec jan feb
3 2000 2 14 72 263 331 147
5 2000 3 7 47 152 259 140
8 2002 2 6 71 207 290 242
ID Veh oct nov dec jan feb
2000 1 5 88 236 251 145
2000 2 14 72 263 331 147
2000 3 7 47 152 259 140
2002 1 5 88 236 251 145
2002 2 6 71 207 290 242
dat[duplicated(dat[,1])|duplicated(dat[,1],fromLast=TRUE),]
# ID Veh oct nov dec jan feb
#2 2000 1 5 88 236 251 145
#3 2000 2 14 72 263 331 147
#5 2000 3 7 47 152 259 140
#6 2002 1 5 88 236 251 145
#8 2002 2 6 71 207 290 242
library(data.table)
setDT(dat)[, .SD[.N>1], ID]