按“ID”列，若某一值出现次数小于3，则该值对应的行全部删除

（如ID=2，出现1次，不满足条件，该行删除；ID=1出现3次，满足条件，所有行保留）

应该用什么函数？怎么编呢？

数据如下：

F1        Poi        X1        X30        ID

S2        1        35        190        1

S5        4        35        190        1

S2        1        35        190        1

S5        4        35        190        2

S2        1        35        190        3

S5        4        35        190        3

S2        1        35        190        3

S5        4        35        190        4

S2        1        35        190        5

S5        4        35        190        5

S2        1        35        190        5

S5        4        35        190        7

S2        1        35        190        7

S5        4        35        190        7

解决方式参考：

import tidyverse

analydb <- # import data

analydb_obey <- analydb %>% group_by(ID) %summarise(countn = n()) %>% left_join(analydb,by=c("ID")) %>% filter(countn >3)