r - 重複を見つける

Question

この形式の ID とその出現回数のデータがあります。2回以上出現するIDを返す関数を書きたいです。

  ID    Freq
  100    1
  101    1
  102    1
  103    1
  104    1
  105    2
  106    1
  107    1
  108    1

ここに私のコードがあります

if (data$Freq>=2){
  return(data$ID)
} else {
  print("no duplicates of years")
}

次のアンサーと警告が表示されます

[1] "no duplicates of years"
Warning message:
In if (x$Freq > 1) { :
  the condition has length > 1 and only the first element will be used

私は何が間違っているのでしょうか？

編集：

皆様、ご回答ありがとうございます。頻度表の作成方法に問題があると思います

x=as.data.frame(table(data$cid)) 

はどこcidですかID。最初の列の要素を見ようとすると、つまり

> x$var1[1:20,]

私はNULLを取得しますが、これは

>x$Freq[1:20,]

戻るだろう

Error in x$Freq[1:20, ] : incorrect number of dimensions' 

の要素を示すデータフレームをx[1:20,]返しますx。