From 560540cf1ae05a11bb105a7873892fa819bc8581 Mon Sep 17 00:00:00 2001 From: marcelcosta Date: Tue, 10 Oct 2023 12:35:43 +0200 Subject: [PATCH] Commit in cytometry. --- BDAccess/app.R | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/BDAccess/app.R b/BDAccess/app.R index 9218c14..5490731 100644 --- a/BDAccess/app.R +++ b/BDAccess/app.R @@ -931,10 +931,15 @@ server <- function(input, output) { g_IC<-g1 pops<-sqlFetch(dta, "POPULATIONS") - - g_pop<-pops %>% dplyr::filter(samples == input$id) %>% gather(pop,value,-samples) %>% - mutate(pop=factor(pop, levels=c("CD45pos_Alive","T_cells","CD8","CD4","DN","NK", "B_cells", - "CD45neg_LDneg","EpCAMneg_HLAIneg","EpCAMneg_HLAIpos","EpCAMpos_HLAIpos"))) %>% + + g_pop<-pops %>% + dplyr::filter(sample == input$id) %>% + gather(pop,value,-sample, -code, -fc_time) %>% + # mutate(pop=factor(pop, levels=c("CD45pos_Alive","T_cells","CD8","CD4","DN","NK", "B_cells", + # "CD45neg_LDneg","EpCAMneg_HLAIneg","EpCAMneg_HLAIpos","EpCAMpos_HLAIpos"))) %>% + # mutate(pop=factor(pop, levels=c("CD45pos_Alive","T_cells","CD8","CD4","DN","NK", "B_cells", + # "CD45neg_LDneg","EpCAMneg_HLAIneg","EpCAMneg_HLAIpos","EpCAMpos_HLAIpos"))) %>% + mutate(value=as.numeric(gsub(",",".",value))) %>% ggplot(aes(pop, value))+ geom_bar(stat="identity", color="black", fill="grey70")+ labs(title = input$id, y="% parent", x="")+