Das war auch schön, aber ergibt dann grafisch auch keinen Sinn:
Predicted.data <-data.frame(probability.of.Ereignis_nein=logr_vm$fitted.values, condition=data_disagg$condition)
predicted.data <-predicted.data[order(predicted.data$probability.of.Ereignis_nein, decreasing=FALSE),]
predicted.data$rank ...