Указание пропорции во вложенной таблице в prop.table

Question

Я создаю таблицу с четырьмя путями с xtabs

library(magrittr)
xtabs( ~ vs + gear + cyl, data = mtcars) %>% 
  ftable(row.vars = "gear")

возвратами

     vs   0        1      
     cyl  4  6  8  4  6  8
gear                      
3         0  0 12  1  2  0
4         0  2  0  8  2  0
5         1  1  2  1  0  0

Теперь мне нужны пропорции в пределах уровней mtcars$vs.

Если я использую prop.table

xtabs( ~ vs + gear + cyl, data = mtcars) %>% 
  ftable(row.vars = "gear") %>% 
  prop.table(margin = 1) %>% 
  round(2)

Я получу

     vs     0              1          
     cyl    4    6    8    4    6    8
gear                                  
3        0.00 0.00 0.80 0.07 0.13 0.00
4        0.00 0.17 0.00 0.67 0.17 0.00
5        0.20 0.20 0.40 0.20 0.00 0.00

Т.е. - я хочу ввести для vs == 0, gear == 3,цил == 8, будет 1,00