|
|
@@ -179,7 +179,7 @@ get.ggtext<-function(df,dfRef,var,timeVar='visitid',doseVar='dose',nVar='ntotal'
|
|
|
sf<-base::sprintf('%s_sF',var)
|
|
|
dfRef[,sf]<-base::rep('',nrow(dfRef))
|
|
|
|
|
|
- colSel<-base::c('visitid',var,sf,'dose')
|
|
|
+ colSel<-base::c(timeVar,var,sf,doseVar)
|
|
|
df1<-base::rbind(df[,colSel],dfRef[,colSel])
|
|
|
ggplot2::ggplot()+
|
|
|
ggplot2::geom_text(ggplot2::aes(x=.data[[timeVar]],y=base::as.factor(.data[[doseVar]]),
|
