From a38e8a58bb382e3c40d012fb1c56c138cac267d1 Mon Sep 17 00:00:00 2001 From: marcelcosta Date: Fri, 13 Nov 2020 20:10:17 +0100 Subject: [PATCH] Correct expPlot cinIndiv --- invivos/app.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/invivos/app.R b/invivos/app.R index 1fbded3..dd9c975 100644 --- a/invivos/app.R +++ b/invivos/app.R @@ -471,7 +471,7 @@ server <- function(input, output) { } if (input$fig_id == "Cinética Individual"){ if (input$vacc == "Sí"){ - g<-ggplot(table, aes(as.numeric(as.character(Timepoint)), Volume, color=Group, group=Group))+ + g<-ggplot(table, aes(as.numeric(as.character(Timepoint)), Volume, color=Group, group=`ID animal`))+ scale_x_continuous(expand = expansion(mult = c(0,0.05)), limits = c(0, (round(max(as.numeric(as.character(table$Timepoint))) / 5)+1)*5))+ facet_grid(factor(`ID tumor`, labels = c("Vaccination", "Rechallenge"))~Group, scale="free_y")+ theme_bw()