How to round all the values of a prop.table in R in one line?

Question

In R 3.4.0, how can I round all the percentages generated by prop.table() to 3 decimal places in one line?

This does not work:

MyTable$MyCol %>% table() %>% prop.table()*100 %>% round(.,3)

        -7          -2          0          1          2          3         4         5 
 0.4672897  0.2336449 31.7757009  1.6355140 44.3925234 20.3271028  0.4672897  0.7009346 

expected something like:

   -7     -2    0       1      2     3       4      5 
 0.467  0.233 31.775 1.635 44.392 20.327  0.467  0.700 

Answer 1

You need to separate multiplication into a separate operation:

mtcars$cyl %>% table() %>% prop.table() %>% `*`(100) %>% round(2)