Diagrama de Barras - Bar Charts

El diagrama de barras (Bar Chart) es un gráfico estadístico que nos permite representar la distribución de frecuencias de variables cualitativas y cuantitativas discretas, nuestro objetivo es pasar del lápiz y papel al uso del lenguaje de programación R version 4.1.2 (2021-11-01) y su entorno de desarrollo (IDE) RStudio en su versión 2022.2.0.443, así como el lenguaje de programación Python; compartimos con ustedes la siguiente imagen.

Data Set - mtcars

mtcars en un data set muy popular que ya viene precargado en el lenguaje de programación R, nos enfocaremos en la variable cyl (cilindro) para la creación del gráfico estadístico líneas arriba mencionado.

summary(mtcars)
##       mpg             cyl             disp             hp       
##  Min.   :10.40   Min.   :4.000   Min.   : 71.1   Min.   : 52.0  
##  1st Qu.:15.43   1st Qu.:4.000   1st Qu.:120.8   1st Qu.: 96.5  
##  Median :19.20   Median :6.000   Median :196.3   Median :123.0  
##  Mean   :20.09   Mean   :6.188   Mean   :230.7   Mean   :146.7  
##  3rd Qu.:22.80   3rd Qu.:8.000   3rd Qu.:326.0   3rd Qu.:180.0  
##  Max.   :33.90   Max.   :8.000   Max.   :472.0   Max.   :335.0  
##       drat             wt             qsec             vs        
##  Min.   :2.760   Min.   :1.513   Min.   :14.50   Min.   :0.0000  
##  1st Qu.:3.080   1st Qu.:2.581   1st Qu.:16.89   1st Qu.:0.0000  
##  Median :3.695   Median :3.325   Median :17.71   Median :0.0000  
##  Mean   :3.597   Mean   :3.217   Mean   :17.85   Mean   :0.4375  
##  3rd Qu.:3.920   3rd Qu.:3.610   3rd Qu.:18.90   3rd Qu.:1.0000  
##  Max.   :4.930   Max.   :5.424   Max.   :22.90   Max.   :1.0000  
##        am              gear            carb      
##  Min.   :0.0000   Min.   :3.000   Min.   :1.000  
##  1st Qu.:0.0000   1st Qu.:3.000   1st Qu.:2.000  
##  Median :0.0000   Median :4.000   Median :2.000  
##  Mean   :0.4062   Mean   :3.688   Mean   :2.812  
##  3rd Qu.:1.0000   3rd Qu.:4.000   3rd Qu.:4.000  
##  Max.   :1.0000   Max.   :5.000   Max.   :8.000
summary(mtcars$cyl)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   4.000   4.000   6.000   6.188   8.000   8.000
# La función summary() nos proporciona un resumen estadístico del data set y la variable

Diagrama de Barras - barplot()

La función barplot() nos permite crear diagramas de barras (Bar Charts) en el lenguaje de programación R, como se muestra a continuación.

x <- table(mtcars$cyl)

colores <- c("orange","blue","purple")

barplot(x,xlab="Cilindros",ylab="Frecuencias",main="Número de Cilindros",col=colores)

# barplot() es una función base del lenguaje de programación R

Diagrama de Barras - ggplot2

El paquete ggplot2 nos permite crear gráficos estadísticos de gran calidad en el lenguaje de programación R, haremos uso de dicha lilbrería para crear un diagrama de barras (Bar Chart) haciendo uso del data set mtcars, como se muestra a continuación.

library(ggplot2)

ggplot(mtcars,aes(cyl)) + geom_bar(fill=colores) + labs(x="Cilindros",y="Frecuencias",title="Número de Cilindros") + theme_dark()

Diagrama de Barras - lattice

Lattice es un paquete que nos permite crear gráficos estadísticos de muy buena calidad en el lenguaje de programación R, haremos uso de dicho paquete para crear un diagrama de barras (Bar Chart) en el lenguaje de programación R, a partir del data set mtcars, como se muestra a continuación.

library(lattice)

barchart(x,xlab="Cilindros",ylab="Frecuencias",main="Número de Cilindros",col=colores,horizontal = FALSE)

Diagrama de Barras - Matplotlib

Matplotlib es una librería del lenguaje de programación Python, que nos permite crear gráficos estadísticos de gran calidad, como se muestra a continuación.

import matplotlib.pyplot as plt

eje_x=[4,6,8]

eje_y=[11,7,14]

colores=['orange','blue','purple']

plt.bar(eje_x,eje_y,color=colores)
plt.title("Número de Cilindros")

plt.xlabel("Cilindros")

plt.ylabel("Frecuencias")

plt.show()

Tutorial - YouTube

Compartimos el siguiente tutorial tomado de la plataforma YouTube nos muestra como crear diagramas de barras (Bar Charts)

embed_url("https://www.youtube.com/watch?v=EkxRj02iaLk") %>% 
  use_align("center")