Transformar tabla de contingencia en tabla de de frecuencias

Problema

Deseamos transformar una tabla de contingencia en una tabla de frecuencias.

# Tabla de contigencia
tabla <- table(mtcars[, c("am", "gear")])

   gear
am   3  4  5
  0 15  4  0
  1  0  8  5

Tabla de frecuencias

tabla <- table(mtcars[, c("am", "gear")])
cuenta <- as.data.frame(tabla)
cuenta

  am gear Freq
1  0    3   15
2  1    3    0
3  0    4    4
4  1    4    8
5  0    5    0
6  1    5    5

Transformar tabla de frecuencias en tabla de contingencia

ftable(xtabs(Freq ~ am + gear, data = cuenta)) 

   gear  3  4  5
am              
0       15  4  0
1        0  8  5

Es el equivalente a:

ftable(mtcars[, c("am", "gear")])

Referencias

• Tablas de contingencia en R
• Tablas de proporciones en R