Multiplying y by 100 to report results as percentage in get.ggplot

R/hypoAfrica.R

@@ -138,15 +138,15 @@ get.ggplot<-function(df,var,timeVar='visitid',doseVar='dose',nVar='total',
    glow<-base::sprintf("%s_low",var)
    ggplot2::ggplot()+
 	#ggplot2::geom_ribbon(ggplot2::aes(x=.data[[timeVar]],ymin=.data[[glow]],ymax=.data[[ghigh]],dfRef,fill='grey70')+
-	ggplot2::geom_ribbon(ggplot2::aes(x=.data[[timeVar]],ymin=.data[[glow]],ymax=.data[[ghigh]],fill=base::as.factor(.data[[doseVar]])),df,alpha=0.2)+
+	ggplot2::geom_ribbon(ggplot2::aes(x=.data[[timeVar]],ymin=100*.data[[glow]],ymax=100*.data[[ghigh]],fill=base::as.factor(.data[[doseVar]])),df,alpha=0.2)+
 	#ggplot2::geom_line(ggplot2::aes(x=.data[[timeVar]],y=.data[[var]]),dfRef)+
-	ggplot2::geom_line(ggplot2::aes(x=.data[[timeVar]],y=.data[[var]],color=base::as.factor(.data[[doseVar]])),df)+
+	ggplot2::geom_line(ggplot2::aes(x=.data[[timeVar]],y=100*.data[[var]],color=base::as.factor(.data[[doseVar]])),df)+
 	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::ylab('Portion with toxicity')
+   ggplot2::ylab('Portion with toxicity (%)')
    
    
 }