Check ref.cl data.frame annotation in compare_annotate

[tebakken]

Add this to function as it is required for later steps: row.names(ref.cl.df) <- ref.cl.df$cluster_label