Browse Source

Añadir al visor de muestras el plot de poblaciones.

main
marcelcosta 2 years ago
parent
commit
a5581182c2
1 changed files with 15 additions and 0 deletions
  1. +15
    -0
      BDAccess/app.R

+ 15
- 0
BDAccess/app.R

@ -827,6 +827,21 @@ server <- function(input, output) {
})
output$visorplot<-renderPlot({
if (input$nhc == 3){
pops<-sqlFetch(dta, "POPULATIONS")
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"))) %>%
ggplot(aes(pop, value))+
geom_bar(stat="identity", color="black", fill="grey70")+
labs(title = input$id, y="% parent", x="")+
theme_bw()+
theme(axis.text.x = element_text(angle=90, hjust=1, vjust=0.5))
}
})
## Citometría ----

Loading…
Cancel
Save