Removing scaling of x axis from get.ggplot

R/hypoAfrica.R

@@ -148,8 +148,8 @@ get.ggplot<-function(df,dfRef,var,timeVar='visitid',doseVar='dose',nVar='total',
 	ggplot2::scale_color_manual(name = "Dose", breaks = doseBreaks, values = doseColors,labels=doseLabels)+
 	ggplot2::scale_fill_manual(name = "Dose", breaks = doseBreaks, values = doseColors,labels=doseLabels)+
 	ggplot2::theme(legend.position="bottom")+
-   ggplot2::xlab('Evaluation visit')+
-   ggplot2::scale_x_continuous(breaks=timeBreaks,limits=c(0,4),labels=timeLabels)+
+   #ggplot2::xlab('Evaluation visit')+
+   #ggplot2::scale_x_continuous(breaks=timeBreaks,limits=c(0,4),labels=timeLabels)+
    ggplot2::ylab('Portion with toxicity')