小编Dan*_*nby的帖子

如果我有一个数据框：

d = data.frame(sample=c("a2","a3"),a=c(1,5),b=c(4,5),c=c(6,4))
d
    sample a b c
1     a2 1 4 6
2     a3 5 5 4

我如何使用 dplyr 将每列的总和除以整个数据帧的总和，所以我最终得到一个如下所示的数据帧：

     a b c
1    6/25 9/25 10/25

我试着做

d <- d %>%
mutate_if(is.numeric, funs(colSums(d)/sum(d)))

但不断返回错误。

提前致谢！