Correct expPlot cinIndiv

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()