¿Cómo resaltar una barra en Barplot en R?

En este artículo, discutiremos cómo resaltar una barra en un gráfico de barras en el lenguaje de programación R. 

Primero, creemos un diagrama de barras básico sin barras resaltadas usando ggplot2. 

# Create sample data
set.seed(5642)                            
sample_data <- data.frame(name = c("Geek1","Geek2",
                                   "Geek3","Geek4",
                                   "Geeek5") ,
                          value = c(31,12,15,28,45),
                         highlight= c(0,0,1,0,0) )
# Load ggplot2 package
library("ggplot2")
 
# Create bar plot
plot<-ggplot(sample_data,
             aes(name,value)) +
        geom_bar(stat = "identity")
plot

Producción:

Barra de resaltado en gráfico de barras

Para crear colores automatizados en las barras, usamos la propiedad de relleno del gráfico ggplot2. Usamos un vector con el mismo valor para todas las barras excepto la que necesita ser resaltada.

# Create sample data
set.seed(5642)                            
sample_data <- data.frame(name = c("Geek1","Geek2",
                                   "Geek3","Geek4",
                                   "Geeek5") ,
                          value = c(31,12,15,28,45),
                         highlight= c(0,0,1,0,0) )
# Load ggplot2 package
library("ggplot2")
 
# Create bar plot
plot<-ggplot(sample_data,
             aes(name, value, fill=highlight)) +
        geom_bar(stat = "identity")
plot

Producción:

Resaltar una barra específica en un diagrama de barras

Para crear color manual en las barras, usamos la propiedad de relleno del gráfico ggplot2 con la función scale_fill_manual(). Usamos un vector con el mismo valor para todas las barras excepto la que necesita ser resaltada y luego definimos un color para cada valor para que cada barra se coloree de acuerdo con el valor especificado:

# Create sample data
set.seed(5642)                            
sample_data <- data.frame(name = c("Geek1","Geek2",
                                   "Geek3","Geek4",
                                   "Geeek5") ,
                          value = c(31,12,15,28,45),
                         highlight= c("0","0","1","0","0") )
# Load ggplot2 package
library("ggplot2")
 
# Create bar plot with highlighted bar
plot<-ggplot(sample_data,
             aes(name,value,fill=highlight)) +
        geom_bar(stat = "identity")+
        scale_fill_manual( values = c( "1"="green", "0"="darkgray" ),
                          guide = FALSE )
plot

Producción: