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