合計がggplot2の値を超えた場合のバーの選択

Question

Year  <- c(rep(c("2006-07", "2007-08", "2008-09", "2009-10"), each = 4)) 
Category <- c(rep(c("A", "B", "C", "D"), times = 4)) 
Frequency <- c(168, 259, 226, 340, 216, 431, 319, 368, 423, 645, 234, 685, 166, 467, 274, 251) 
Data  <- data.frame(Year, Category, Frequency) 
library(ggplot2) 
p <- qplot(Year, Frequency, data = Data, geom = "bar", fill = Category,  theme_set(theme_bw())) 

上記のコード/データがあるとします。私は1000を超える合計（スタック）した場合にのみプロット値に興味があります。これはggplotコードの単純なサブセットコマンドで可能ですか？

Answer 1

ggplotの中では可能ではないと思いますが、dplyrで行うのは比較的簡単で、プロットしたいデータだけを渡すことができます。例：

Data %>% 
    group_by(Year) %>% 
    mutate(Total = sum(Frequency)) %>% 
    filter(Total > 1000)