a <- read.table('clipboard', header = T)
b <- a[order(a[,2], a[,3]),]
m <- do.call(rbind,tapply(1:nrow(b), b[,2], range))
bb <- b[m[,1], ]
xinghao <- bb[which(bb[,4]>=100),2]
b[b[,2]==xinghao,]

没看明白哦，order对时间不能排序吧，2014年10月排在2014年1月前面了

a <- read.table('clipboard', header = T)
a[,3] <- as.Date(paste(a[,3], '1', sep = '-'), '%Y-%m-%d')
b <- a[order(a[,2], a[,3]),]
m <- do.call(rbind,tapply(1:nrow(b), b[,2], range))
bb <- b[m[,1], ]
xinghao <- bb[which(bb[,4]>100),2]
subset(a, 型号 == xinghao)

as.date后，时间变成NA了。。
每个语句麻烦解释下，初学看不懂，谢谢！