мозаика()-функция пакета vcd: ошибка добавления текста в ячейки

Я создал мозаику, используя функцию mosaic в пакете vcd. Теперь я хочу добавить некоторые аннотации, используя labeling_cells. К сожалению, я получаю сообщение об ошибке. Проблема может заключаться в том, что это не стандартный пример Titanic...

library("grid"); library("vcd")
dataset <- read.table("http://bit.ly/1aJTI1C")

# prepare data for plot as a "Structured Contingency Table"
data1 <- structable(dauer ~ groesse + ort, dataset) 

# basic plot
mosaic(data1,
       # separate the two elements of the plot  
       split_vertical = c(T, T, F),

       # put the names in the right places and adds boxes 
       labeling_args = list(tl_labels = TRUE,
                            tl_varnames = FALSE,
                            boxes = TRUE),
       # grip remains open 
       pop=FALSE 
       )

# structure that matches plot, but it does not help
#match<-t(data1)

# try to add labels 
labeling_cells(text = data1, clip = FALSE)(data1)

Это приводит к:

# Error in ifelse(abbreviate_varnames, sapply(seq_along(dn), function(i) abbreviate(dn[i],  : 
#   replacement has length zero
# In addition: Warning message:
# In rep(no, length.out = length(ans)) :
#  'x' is NULL so the result will be NULL

Еще одна проблема, которая у меня есть, это то, что коробки не соответствуют этикеткам. Если у вас есть намек на это, просто дайте мне знать!

Это мой первый вопрос здесь, поэтому, пожалуйста, извините за возможные ошибки!

Большое спасибо!