diff --git a/BDAccess/app.R b/BDAccess/app.R
index e9a575d..a6f38ee 100644
--- a/BDAccess/app.R
+++ b/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 ----