列合計に基づいてテーブル出力をフィルタリングする

Question

その値の合計（この場合は列値）に基づいてテーブル出力をフィルタ処理したいとします。それから、特定の合計よりも高い値の棒グラフを作成したいと思います。

コード：

counts <- table(mtcars$vs, mtcars$gear) 
counts 
#output 
#x 3 4 5 
#0 12 2 4 
#1 3 10 1 

#I want to create a barplot for those with column sums > 12 ie. gears 3 and 4. 

#pseudo-code 
#barplot(counts[colSums>12]? 

私の予想出力は、それがRであることを行うにはどのようにギア3と4のためにのみ2列にbarplot表示されるということですか？

PS：私は、その後、2列でbarplotを作成するために、別のtable(mtcars$vs, mtcars$gear)を作成総和> 12を有するものをサブセット、すべての車（table(mtcars$gear)）のための歯車の数を見つける作成することができますが、実行する任意の即時の方法がある場合、私は探していますそれ。

Answer 1

一つggplot2ソリューション、

# install.packages(c("ggplot2"), dependencies = TRUE) 
library(ggplot2) 
g <- ggplot(subset(mtcars, gear <= 4), aes(factor(vs))) 
g + geom_bar(aes(fill = factor(gear))) 

それともlmo's comment,

counts <- with(mtcars, table(vs, gear)) 
counts 

barplot(counts[,colSums(counts) >= 12])