gistfile1.txt

library(gmodels)
library(vcd)
library(magrittr)

# This Works

table(factor(sample(c("Aa", "Ab"), 500, replace = T)),
      factor(sample(c("Ba", "Bb"), 500, replace = T)),
      dnn = c("A", "B")) %>%
{
  CrossTable(.)
  
  mosaic(.)
}

# This works

table(factor(sample(c("Aa", "Ab"), 500, replace = T)),
      factor(sample(c("Ba", "Bb"), 500, replace = T)),
      dnn = c("A", "B")) %T>%
  
  CrossTable() %>%
  
  mosaic()

# This doesn't work

table(factor(sample(c("Aa", "Ab"), 500, replace = T)),
      factor(sample(c("Ba", "Bb"), 500, replace = T)),
      dnn = c("A", "B")) %>%
  
  CrossTable() %T>%
  
  mosaic()