m<-d#d是数据框，也就是产生数据的
d1<-d$id
k<-length(d1)
for (i in 1:(k-1)){
for (j in (i+1):k){
if (d1[i]==d1[j])
m<-m[-i,]
}
}
m

我试了一下，不能够得到我想要的结果呀，能继续帮我看看么，
id height      date
1  1001    175  2005/1/2
2  1002    176  2005/1/3
3  1003    177  2005/1/4
5  1004    179  2005/1/6
6  1005    180  2005/1/7
7  1006    181  2005/1/8
8  1007    182  2005/1/9
9  1008    184 2005/1/10
11 1009     NA 2005/1/13
12 1009    185 2005/1/12
14 1011    188 2005/1/15
15 1012    189 2005/1/16
1、1009没有筛选掉，2、我是想要（a有数据、b最早一次） 的记录。多谢~

我试了一下，不能够得到我想要的结果呀，能继续帮我看看么，
id height      date
1  1001    175  2005/1/2
2  1002    176  2005/1/3
3  1003    177  2005/1/4
5  1004    179  2005/1/6
6  1005    180  2005/1/7
7  1006    181  2005/1/8
8  1007    182  2005/1/9
9  1008    184 2005/1/10
11 1009     NA 2005/1/13
12 1009    185 2005/1/12
14 1011    188 2005/1/15
15 1012    189 2005/1/16
1、1009没有筛选掉，2、我是想要（a有数据、b最早一次） 的记录。多谢~

说个思路吧，看楼主是能选择最早的，只是有NA存在，
data <- na.omit(data)
会把有空值的行删除，LZ试试？

不行的呀，如果删除空值那么，同一年有两次数据的如id==1008怎么办呢