嗨,我有一个宽格式的数据,是由Site
分组的。每一栏代表不同物种的丰度(共计85种)。我试图对数据进行总结,以计算个人总数,而不管我的数据中的物种是什么。
df.totals<- df %>% group_by(Site) %>% summarize (total = sum(6:91))
发布于 2019-03-22 17:52:55
我们可以将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))
https://stackoverflow.com/questions/55305239
复制相似问题