根据列值仅保留非重复行

Question

这是前一个question的后续行动。

数据集如下所示：

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

我喜欢根据第一列值保留非重复行。输出将如下：

    ID Veh oct nov dec jan feb
1 1120   1   7  47 152 259 140
2 1133   1   6  71 207 290 242
3 2006   1  14  72 263 331 147

可能的解决方案是here。但是这个问题没有可重复的例子。

Answer 1

我们可以使用duplicated

dat[!(duplicated(dat$ID)|duplicated(dat$ID, fromLast = TRUE)),]