From 8539caa9936c8320e3603a52cd97cedf567345ee Mon Sep 17 00:00:00 2001 From: marcelcosta Date: Fri, 19 Jan 2024 14:41:01 +0100 Subject: [PATCH] =?UTF-8?q?Al=20exportar=20gr=C3=A1fic=20cin=5Findiv=20agr?= =?UTF-8?q?upaba=20por=20Animal=20y=20no=20Animal+Side.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- invivos/app.R | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/invivos/app.R b/invivos/app.R index 5cb22f7..ea11a77 100755 --- a/invivos/app.R +++ b/invivos/app.R @@ -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))+