dplyrまたはbase Rを使用して連鎖関数のT/F観測数を数える方法は？

Question

私はこのようなpokemonsをtbl_dfを求めているとします

 X.     Name Type.1 Type.2 Total HP Attack Defense Sp..Atk Sp..Def Speed Generation Legendary 
    (int)    (fctr) (fctr) (fctr) (int) (int) (int) (int) (int) (int) (int)  (int) (fctr) 
1  1    Bulbasaur Grass Poison 318 45  49  49  65  65 45   1  False 
2  2    Ivysaur Grass Poison 405 60  62  63  80  80 60   1  False 
3  3    Venusaur Grass Poison 525 80  82  83  100  100 80   1  False 
4  3 VenusaurMega Venusaur Grass Poison 625 80 100  123  122  120 80   1  False 
5  4   Charmander Fire   309 39  52  43  60  50 65   1  False 
6  5   Charmeleon Fire   405 58  64  58  80  65 80   1  False 

私は以下のように、データセットの重要な統計情報を要約する（パッケージdplyrを使用して）チェーン機能を書いています：

byType1 <- group_by(pokemons, Type.1) 
summaryStats_byType1 <- summarise(byType1, 
       count = n(), 
       averageTotal = mean(Total, na.rm = T), 
       medianGeneration = median(Generation, na.rm = T)) 

上記の連鎖機能で伝説のポケモンの数を数える方法は？

Answer 1

我々は

summaryStats_byType1 <- pokemons %>% 
          group_by(Type.1) %>% 
          summarise(count = n(), 
           averageTotal = mean(Total, na.rm = T), 
           medianGeneration = median(Generation, na.rm = T), 
           CountLegendary = sum(as.character(Legendary)=="True"))