Al exportar gráfic cin_indiv agrupaba por Animal y no Animal+Side.

2024-01-19 14:41:01 +01:00
parent 7783dc6c4b
commit 8539caa993
1 changed files with 3 additions and 1 deletions
@@ -895,8 +895,10 @@ server <- function(input, output) {
                table<-table %>% filter(!Animal %in% deadmice)
              }
            }
+            print("Table")
+            print(head(table))
            
-            g<-ggplot(table, aes(as.numeric(as.character(DayPostInoc)), Volume, color=Group, group=Animal))+
+            g<-ggplot(table, aes(as.numeric(as.character(DayPostInoc)), Volume, color=Group, group=paste0(Animal,Side)))+
              scale_x_continuous(expand = expansion(mult = c(0,0.0)),
                                 breaks=sort(unique(as.numeric(as.character(table$DayPostInoc)))),
                                 limits = c(0,max(as.numeric(as.character(table$DayPostInoc)))*1.1))+