宽格式摘要

Question

嗨，我有一个宽格式的数据，是由Site分组的。每一栏代表不同物种的丰度(共计85种)。我试图对数据进行总结，以计算个人总数，而不管我的数据中的物种是什么。

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

Answer 1

我们可以将gather格式改为“long”格式，然后执行sum

library(tidyverse)
df %>% 
   select(Site, 6:91) %>%
   rownames_to_column("rn") %>% 
   gather(key, val, - Site, -rn) %>% 
   group_by(Site, rn) %>% 
   summarise(total  = sum(val))

或者不使用gather的另一种选择是

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

用mtcars使用一个可重复的示例

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