|
|
@ -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="")+ |
|
|
|