diff --git a/R/significancePlot.R b/R/significancePlot.R
index 1d1c867..5f34d70 100644
--- a/R/significancePlot.R
+++ b/R/significancePlot.R
@@ -1,165 +1,169 @@
 significanceMap <- function(object,...) UseMethod("significanceMap")
 significanceMap.default <- function(object, ...) stop("not implemented for this class")
 
 
 significanceMap.ranked=function(object,
                                 alpha=0.05,p.adjust.method="holm",
                                 order=FALSE,
                                 size.rank=.3*theme_get()$text$size,...){
   
   relensemble= object$data%>%decision.challenge(na.treat=object$call[[1]][[1]]$na.treat,
                                                 alpha=alpha,
                                                 p.adjust.method=p.adjust.method
                                                 ) %>% as.relation
   
   significanceMap(object=object$mat,
                   relation_object=relensemble,
                   order=order,
                   size.rank=size.rank,...
   )
   
 }  
 
 
 
 significanceMap.ranked.list=function(object,
                                      alpha=0.05,p.adjust.method="holm",
                                      order=FALSE,
                                      size.rank=.3*theme_get()$text$size,...){
   
   a=object$data%>%decision.challenge(na.treat=object$call[[1]][[1]]$na.treat,
                                      alpha=alpha,
                                      p.adjust.method=p.adjust.method)
   
   aa=lapply(a, as.relation.challenge.incidence)
   names(aa)=names(object$data)
   
   relensemble= do.call(relation_ensemble,args = aa)
   
   res=list()
   for (Task in names(object$data)){
     res[[Task]]=significanceMap.data.frame(object=object$matlist[[Task]],
                                            relation_object=relensemble[[Task]],
                                            order=order,
                                            size.rank=size.rank,...
                                            ) + ggtitle(Task)
     
+
+  # Remove title for single-task data set
+  if (length(res) == 1) {
+    res[[1]]$labels$title <- NULL
   }
-  
-  res  
-}  
+
+  res
+}
 
 
 
 significanceMap.data.frame=function(object,
                                     relation_object,
                                     order=FALSE,
                                     size.rank=.3*theme_get()$text$size,...){
 
   object$algorithm=rownames(object)
   inc=relation_incidence(relation_object)
   
   if (order){
     scores=apply(inc,1,
                  function(x) sum(x==0)-1)
     scores2=apply(inc,2,
                   function(x) sum(x==1))[names(scores)]#+1-nrow(inc))
     scores=data.frame(algorithm=names(scores),
                       score=scores,
                       score2=scores2,
                       stringsAsFactors =F)
     scores=right_join(scores,
                       object,
                       by="algorithm")
     
     ordering= (scores[order(scores$score,
                             scores$score2,
                             scores$rank),"algorithm"])
     scores=scores[,1:3]
   } else ordering=  names(sort(t(object[,"rank",drop=F])["rank",]))
   
   inc=inc[ordering,]
   
   incidence.mat=melt(inc)
   colnames(incidence.mat)=c("algorithm","notsigPair",     "decision")
   incidence.mat$algorithm=as.character(incidence.mat$algorithm)
   incidence.mat$notsigPair=as.character(incidence.mat$notsigPair)
   incidence.mat=right_join(incidence.mat,
                            object,
                            by="algorithm")
   if (order) incidence.mat=right_join(incidence.mat,
                                       scores,
                                       by="algorithm")
   
   incidence.mat=incidence.mat%>%mutate(algorithm=factor(.data$algorithm, 
                                                         levels=ordering),
                                        notsigPair=factor(.data$notsigPair, 
                                                          levels=ordering))
   
   incidence.mat$decision=as.factor(incidence.mat$decision)
 
   p=ggplot(incidence.mat) +
     geom_raster(aes(algorithm,
                     notsigPair,
                     fill=decision),...)+
     geom_raster(aes(algorithm,algorithm),
                 fill="white")+
     geom_abline(slope=1) +    
     coord_cartesian(clip = 'off')+
     theme(aspect.ratio=1,
           axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1),
           plot.margin=unit(c(1,1,1,1), "lines"),
           legend.position="none")+
     ylab("Algorithm")+
     xlab("Algorithm")+
     scale_fill_manual(values=cividis(2,begin=0,end=1,alpha=.7))
 
 
 
   fixy=0
   th_get=theme_get()
   # grid on top 
     lt=th_get$panel.grid$linetype
     if (is.null(lt)) lt=th_get$line$linetype
 
   #p=p+theme(panel.background = element_rect(fill = NA),panel.ontop=TRUE) #-> grid will be on top of diagonal
   #fix:
     f=ggplot_build(p)
     p= p + geom_vline(xintercept=f$layout$panel_params[[1]]$x.major_source, 
                       linetype=lt,
                       color=th_get$panel.grid$colour, 
                       size=rel(th_get$panel.grid.major$size))+
       geom_hline(yintercept=f$layout$panel_params[[1]]$y.major_source, 
                  linetype=lt,
                  color=th_get$panel.grid$colour, 
                  size=rel(th_get$panel.grid.major$size))+
       geom_abline(slope=1)+
       geom_text(aes(x=algorithm,y=fixy,label=rank),
                 nudge_y=.5, 
                 vjust = 0,
                 size=size.rank,
                 fontface="plain",family="sans"
       )
 
   
   if (order) p=  p+
       geom_text(aes(x=algorithm,y=fixy,label=score),
                 nudge_y=0, 
                 vjust = 0, size=size.rank,
                 fontface="plain",family="sans") + 
       annotate("text",
                x=0,y=fixy+.5,  
                vjust = 0, 
                size=size.rank, 
                fontface="plain",
                family="sans",
                label="original")+
       annotate("text",x=0,y=fixy,  
                vjust = 0, 
                size=size.rank,
                fontface="plain",family="sans",label="new")
   
   return(p)
 
 }