dplyrでグループのパーセンテージを計算する

Question

データフレーム内の各文字列のパーセントを計算したいが、パーセンテージが良くない。

マイコード：

for(i in names(which((sapply(creditDF,class) == "character")))){ 
    distribution <- creditDF %>% 
    group_by_at(.vars = i) %>% 
    summarise(value = n(), 
      percent = value/sum(value)) %>% 
    select(label = i, value, percent) 
} 

結果：割合は468分の415 * 100である最初の行のための通常

label value percent 
<chr> <int> <dbl> 
1 chéquier autorisé 415  1 
2 chéquier interdit 53  1 

。

問題を解決するにはどうすればよいですか？

ありがとうございました。ここで

Answer 1

は、我々は

--      %>% 
    group_by_at(.vars = i) %>% 
    summarise(value = n() %>% 
    ungroup() %>% 
    mutate(percent = value/sum(value)) %>% 
    select(label = i, value, percent) 
}