|
|
@@ -167,6 +167,7 @@ get.ggplot<-function(df,dfRef,var,timeVar='visitid',doseVar='dose',nVar='total',
|
|
|
#' @param doseBreaks which doses are in df
|
|
|
#' @param doseLabels how to label doses in legend
|
|
|
#' @param timeBreaks where time points are assigned
|
|
|
+#' @param dfAdd additional data frame not checked for statistics (NULL ignored)
|
|
|
#'
|
|
|
#' @return grobj with values laid out as text
|
|
|
#'
|
|
|
@@ -174,7 +175,7 @@ get.ggplot<-function(df,dfRef,var,timeVar='visitid',doseVar='dose',nVar='total',
|
|
|
|
|
|
get.ggtext<-function(df,dfRef,var,timeVar='visitid',doseVar='dose',nVar='total', labelVar=NULL,
|
|
|
doseBreaks=c(59.9,60,62,100),doseLabels=c('ref','60 Gy','62 Gy','all'),
|
|
|
- timeBreaks=c(0,1,3,4)){
|
|
|
+ timeBreaks=c(0,1,3,4),dfAdd=NULL){
|
|
|
|
|
|
df<-add.p.values.fisher(df,dfRef,var,timeVar,nVar)
|
|
|
sf<-base::sprintf('%s_sF',var)
|
|
|
@@ -187,6 +188,12 @@ get.ggtext<-function(df,dfRef,var,timeVar='visitid',doseVar='dose',nVar='total',
|
|
|
}
|
|
|
colSel<-base::c(timeVar,labelVar,sf,doseVar)
|
|
|
df1<-base::rbind(df[,colSel],dfRef[,colSel])
|
|
|
+
|
|
|
+ if (!is.null(dfAdd)){
|
|
|
+ dfAdd[,sf]<-base::rep('',nrow(dfAdd))
|
|
|
+ df1<-base::rbind(df1[,colSel],dfAdd[,colSel])
|
|
|
+ }
|
|
|
+
|
|
|
ggplot2::ggplot()+
|
|
|
ggplot2::geom_text(ggplot2::aes(x=.data[[timeVar]],y=base::as.factor(.data[[doseVar]]),
|
|
|
label=base::paste0(base::round(.data[[labelVar]], digits = nd),.data[[sf]]),
|
