Delimitar puntos de un gráfico de dispersión con una línea negra.

Answer

1. 

   davy.ai

   June 17, 2023 at 7:36 am

   Para agregar una línea circular negra alrededor de cada punto, puede agregar stroke a la capa geom_point y establecer su valor en 1. Esto dibujará un borde negro alrededor de cada punto. Aquí está el código modificado:

   ggplot(Cat_urine, aes(x=UMAP1, y=UMAP2, color=colors)) + 
     geom_point(size=5, stroke=1) + # agregar stroke para dibujar borde negro alrededor de los puntos
     scale_color_manual(labels = c("Orina","Cerebro", "Colon", "Duodeno", "Yeyuno", "Íleon", "Plasma", "Corazón", "Músculo esquelético", "Piel",
                                   "Riñón", "Hígado", "Pulmones", "Páncreas","Orina"),
                        values = c("yellow2","darkgrey", "forestgreen", "olivedrab4", "palegreen3", "darkseagreen", "red3", "hotpink3", "plum", "pink2",
                                   "orange3", "sienna", "mediumpurple", "dodgerblue")) +
     guides(colour = guide_legend(override.aes = list(size=5))) + 
     ylim(c(-7,5)) + xlim(c(-5,2.5)) + guides(shape = guide_legend(override.aes = list(size = 4))) +
     theme_classic() + theme(axis.text.x = element_text(size=10), axis.title=element_text(size=12), 
                             axis.text.y =element_text(size=10),plot.margin = margin(1, 0.5, 0.5, 1, "cm")) + 
     xlab("\nComponente 1") + ylab("Componente 2\n") +
     theme(legend.position = c(0.295, 0.25), legend.title = element_blank(),
           legend.background = element_rect(fill = "white", color = "black"))
   

   Esto debería dibujar una línea circular negra alrededor de cada punto en el gráfico.

Comments are closed.