Removing scaling of x axis from get.ggtext

R/hypoAfrica.R

@@ -204,7 +204,7 @@ get.ggtext<-function(df,dfRef,var,timeVar='visitid',doseVar='dose',nVar='total',
 	ggplot2::geom_text(ggplot2::aes(x=.data[[timeVar]],y=base::as.factor(.data[[doseVar]]),
       label=base::paste0(.data[[labelVar]],.data[[sf]]),
       hjust=0.5, vjust=0.5),size=5,df1)+
-	ggplot2::scale_x_continuous(breaks=timeBreaks,limits=base::c(0,4))+
+	#ggplot2::scale_x_continuous(breaks=timeBreaks,limits=base::c(0,4))+
 	ggplot2::scale_y_discrete(breaks=doseBreaks,labels=doseLabels)+
 	ggplot2::theme_classic(base_size=20) +
 	ggplot2::theme(axis.line = ggplot2::element_blank(),axis.ticks  = ggplot2::element_blank(),axis.title.y  = ggplot2::element_blank(), axis.title.x  = ggplot2::element_blank(),axis.text.x = ggplot2::element_text(color="white"))+