dplyr-柱的比率

如果这是一个重复的问题，请道歉。有人能告诉我如何使用dplyr计算每列中的比例吗？我在下面列出了输入和输出数据

输入数据

>sample_data
am     n
<dbl> <int>
 0    19
 1    13

>样本数据
阿姆
0    19
1    13

期望输出

>sample_data
am     n
<dbl> <int>
 0    0.59375
 1    0.40625

>样本数据
阿姆
0    0.59375
1    0.40625

您可以从下面的代码生成输入数据

sample_data <- mtcars %>% group_by(am) %>% tally()  

sample_data%group_by（am）%%>%tally（）

---

提前谢谢

我们可以得到如下结果：

   sample_data %>% 
 mutate(Prop=n/sum(n)) %>% 
   select(-n)
# A tibble: 2 x 2
     am  Prop
  <dbl> <dbl>
1     0 0.594
2     1 0.406

样本数据%>%
变异（Prop=n/和（n））%>%
选择（-n）
#一个tibble:2x2
am道具
1     0 0.594
2     1 0.406

样本数据%>%变异（Prop=n/sum（n））

谢谢！我使用了summary，得到的答案是1。这几个小时以来一直困扰着我