Rで要素数が一定以上の要素を含む行だけを抽出したい

Question

##実現したいこと
以下のようなデータフレームがあった時に，factorAの要素(XYZ)の数でフィルタリング
したいのです．

name	factorA	score
aa	X	1
ab	X	6
ac	Y	5
ad	Z	4
ae	Z	2
...	...	...

例えば今回はXは2つ，Yは１つ，Zは２つあります．この時全体に２つ以上ある要素を持つ行を取り出すとするとYをもつacは除外されます．
日本語が下手ですみません．

##試したこと

• このようなコードを書いてユニーク要素の個数表を作った．

counts = sapply(1:length( unique(d$factorA) ), function(i){length(d[d$factorA == unique(d$factorA)[i], 1])})
names(counts) = unique(d$factorA)

• for文を回し，データフレーム一行ずつ要素を検証し，countsを参照していった．

これでも出来ないことはなさそうですがスマートに思えません．
dplyrなどでスマートに書く方法はないでしょうか？

Answer 1

頻度はtable()で計算できます。これに基づいてsubsetでフィルタリングすれば良いでしょう。

df1 <- read.table(text="
name factorA score
aa X 1
ab X 6
ac Y 5
ad Z 4
ae Z 2
", sep=" ", stringsAsFactors=F, header=T)

fr  <- table(df1$factorA)
df2 <- subset(df1, factorA %in% names(fr[fr!=1]))

Comments

[authink231]

ありがとうございます！table()は知っていたのですが，それをこのように活用できるとは知りませんでした...！