数据格式： 时间                车牌             设备编码
2019-09-06    川A123456      ********
2019-09-07    川A123456      ********
2019-09-08    川A123456      ********
2019-09-09    川A333333      ********
2019-09-09    川A123456      ********
2019-09-10    川A333333      ********
2019-09-10    川A666666      ********

实现效果：
筛选出现频数大于3的车牌并维持原记录，即预想的结果是
时间                车牌             设备编码
2019-09-06    川A123456      ********
2019-09-07    川A123456      ********
2019-09-08    川A123456      ********


2019-09-09    川A123456      ********

代码：
data<-data[which(table(data$车牌)>3),]

问题：
经过调试发现，which(table(data$车牌)>10)能正确选出大于10的车牌，但会对结果建立一个新的序列，所以which得到的int值不再对应原始data的位置，因此选出的车牌并不是目标车牌，请问有什么其他办法能达到我的目的吗？