假设我有一个名为 tbl_dfpokemons像这样：
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))
我应该如何计算上面的链函数中传奇神奇宝贝的数量？
我们可以做的
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"))
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
