将多个频率/计数列转换为百分比

Question

我有一个这样的数据框，列出了每天的计数。

**Color**  **Monday** **Tuesday** **Wednesday** 
Green   2   3   1 
Orange   3   5   5 
Blue    1   3   2 
Red    4   5   1 

我想要的是这样的。列是百分比。

**Color**  **Monday** **Tuesday** **Wednesday** 
    Green   20%  20%  10% 
    Orange   30%  30%  60% 
    Blue    10%  20%  20% 
    Red    40%  30%  10% 

任何想法如何做到这一点，而无需手动每次转换一次列？

谢谢！

Answer 1

您可以结合使用mutate_if()使用自定义功能，如：

percent_mean <- function(x){ 
     m <- round(x/sum(x),2)*100 
     return(paste0(m, sep = "%")) 
} 

library(dplyr) 
df %>% mutate_if(is.numeric, funs(percent_mean)) 
# Color Monday Tuesday Wednesday 
#1 Green 20%  19%  11% 
#2 Orange 30%  31%  56% 
#3 Blue 10%  19%  22% 
#4 Red 40%  31%  11%