|
|
@@ -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"))+
|
