I solved the problem, i saw that there is no post about mosaicMiss, so i will post the solution in case someone is interested:
a<-mosaicMiss(dati_libri, highlight=4,plotvars=5, miss.labels = T,pop=F)
mosaicMiss(dati_libri, highlight=4,plotvars=5, miss.labels = T,pop=F)
labeling_cells(text=round(prop.table(as.matrix(a),1),2))(a)