按“ID”列，若某一值出現(xiàn)次數(shù)小于3，則該值對(duì)應(yīng)的行全部刪除

（如ID=2，出現(xiàn)1次，不滿足條件，該行刪除；ID=1出現(xiàn)3次，滿足條件，所有行保留）

應(yīng)該用什么函數(shù)？怎么編呢？

數(shù)據(jù)如下：

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)