tidyverse中的宽格式摘要

嗨，我有一个按站点分组的宽格式数据帧。每列代表不同物种的丰度85总数。我试图对数据框进行汇总，以计算数据中的所有物种的个体总数

df.totals<- df %>% group_by(Site) %>% summarize (total = sum(6:91))

我们可以收集到“长”格式，然后进行求和

或者另一个不聚集的选择是

df %>% 
   select(Site, 6:91) %>% 
   transmute(vs, Sum = reduce(.[2:ncol(.)], `+`)) %>%
   group_by(Site) %>% 
   summarise(Sum = sum(Sum))

使用mtcars的可复制示例

---

是按行求和还是站点中所有列的求和如果您不介意避免任何混淆，那么一个小的示例数据/预期输出将非常有用

df %>% 
   select(Site, 6:91) %>% 
   transmute(vs, Sum = reduce(.[2:ncol(.)], `+`)) %>%
   group_by(Site) %>% 
   summarise(Sum = sum(Sum))

mtcars %>% 
   select(vs, 4:6) %>% 
   transmute(vs, Sum = reduce(.[2:ncol(.)], `+`)) %>% 
   group_by(vs) %>% 
   summarise(Sum = sum(Sum))