marcelcosta/invivos
1
0
Fork 0
Code Issues 3 Pull Requests Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
marcelcosta
2024-01-19 14:41:01 +01:00
parent 7783dc6c4b
commit 8539caa993
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+3 -1
View File
@@ -895,8 +895,10 @@ server <- function(input, output) {
table<-table %>% filter(!Animal %in% deadmice) 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)), scale_x_continuous(expand = expansion(mult = c(0,0.0)),
breaks=sort(unique(as.numeric(as.character(table$DayPostInoc)))), breaks=sort(unique(as.numeric(as.character(table$DayPostInoc)))),
limits = c(0,max(as.numeric(as.character(table$DayPostInoc)))*1.1))+ limits = c(0,max(as.numeric(as.character(table$DayPostInoc)))*1.1))+