a <- read.table(text="
                no  x
1    1
1    2
1    2
2    1
3    4
3    4
4    3
4    4
5    1
5    2
5    3
",header=T)

a [!duplicated(a$no,fromLast=T),]

数据读入好像有问题

> a <- read.table(text="
+                 no  x
+ 1    1
+                 1    2
+                 1    2
+                 2    1
+                 3    4
+                 3    4
+                 4    3
+                 4    4
+                 5    1
+                 5    2
+                 5    3
+                 ",header=T)
>
> a [!duplicated(a$no,fromLast=T),]
   no x
3   1 2
4   2 1
6   3 4
8   4 4
11  5 3

怎么会读入 有问题呢？