Diagramas 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 de los lenguajes de programación R (R
Core Team, 2021) y Python (Python Core Team,
2019), para esto usamos como libro de cabezera El
Arte de Programar en R (Santana Sepúlveda et
al., 2014),compartimos la siguiente imagen como
referencia.

Data Set - mtcars
mtcars es un data set que ya viene precargado al
momento de instalar el lenguaje de programación R en
nuestro sistema, haremos uso de dicho data set para la creación de
distintos diagramas de barras, de las 11 variables y 32 observaciones
que lo componen nos enfocaremos en las variables cyl
(cilindro) y gear (engranajes) como se muestra a
continuación.
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
summary(mtcars$gear)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 3.000 3.000 4.000 3.688 4.000 5.000
Bar Chart - barplot()
La función barplot()
nos permite crear diagramas de
barras (Bar Charts) en el lenguaje de programación R,
utilizaremos la variable cyl (cilindros) para crear el
gráfico estadístico reespectivo, como se muestra en la siguiente
imagen.
x <- table(mtcars$cyl)
colores <- c("orange","blue","purple")
barplot(x,xlab="Cilindros",ylab="Frecuencias",main="Número de Cilindros",col=colores)

Bar Chart - ggplot2
ggplot2 (Wickham, 2016) es un
paquete del lenguaje de programación que nos permite crear gráficos
estadísticos de gran calidad, haremos uso de la variable cyl
(cilindros) para la creación del gráfico estadístico
respectivo, como se muestra a continuación.
ggplot(mtcars,aes(cyl)) + geom_bar(fill=colores) + labs(x="Cillindros",y="Frecuencias",title="Número de Cilindros") + theme_dark()

Bar Chart - Lattice
Lattice (Sarkar, 2008) es un
paquete del lenguaje de programación R, que nos permite crear gráficos
estadísticos de muy buena calidad, nos enfocaremos en la variable cyl
(cilindros) para la creación del gráfico estadístico
respectivo, como se muestra a continuación.
barchart(x,xlab="Cilindros",ylab="Frecuencias",main="Número de Cilindros",col=colores,horizontal=FALSE)

Bar Charts - Matplotlib
Matplotlib (Hunter, 2007) es
una librería del lenguaje de programación Python, que nos permite crear
gráficos estadísticos de gran calidad, RMarkdown nos
permite trabajar con otros lenguajes de programación tales como
C++, SQL, Julia, entre muchos otros; a continuación
mostramos un diagrama de barras (Bar Chart) creado con
Matplotlib.
import matplotlib.pyplot as plt
eje_x = ['Python', 'R', 'Node.js', 'PHP']
eje_y = [50,20,35,47]
plt.bar(eje_x, eje_y)
plt.ylabel('Cantidad de usuarios')
plt.xlabel('Lenguajes de programación')
plt.title('Usuarios de lenguajes de programación')
plt.show()

YouTube - Tutorial
Compartimos el siguiente tutorial tomado de la plataforma
YouTube que muestra como crear diagramas de barras
(Bar Charts) haciendo uso de la función
barplot()
y el paquete ggplot2 del
lenguaje de programación R, para añadir el vídeo utilizamos el paquete
vembedr
embed_url("https://www.youtube.com/watch?v=EkxRj02iaLk&t=6s") %>%
use_align("center")
Referencias
Hunter, J. D. (2007). Matplotlib: A 2D graphics environment.
Computing in Science & Engineering,
9(3), 90–95.
https://doi.org/10.1109/MCSE.2007.55
Python Core Team. (2019).
Python: A dynamic,
open source programming language.
Python Software
Foundation.
https://www.python.org/
R Core Team. (2021).
R: A language and environment for statistical
computing. R Foundation for Statistical Computing.
https://www.R-project.org/
Santana Sepúlveda, S., Mateos Farfán, E.others. (2014). El arte de
programar en r: Un lenguaje para la estadı́stica.
México: Instituto Mexicano de Tecnologı́a del
Agua. UNESCO. Comité Nacional ….
Sarkar, D. (2008).
Lattice: Multivariate data visualization with
r. Springer.
http://lmdvr.r-forge.r-project.org
Wickham, H. (2016).
ggplot2: Elegant graphics for data
analysis. Springer-Verlag New York.
https://ggplot2.tidyverse.org
LS0tDQp0aXRsZTogIkRpYWdyYW1hcyBkZSBCYXJyYXMiDQphdXRob3I6ICJSZW56byBDw6FjZXJlcyBSb3NzaSINCmRhdGU6ICIyMDIyLzA1LzE4Ig0Kc3VidGl0bGU6IEJhciBDaGFydHMNCnBob25lOiAnNTE5MTczMzc2ODQnDQplbWFpbDogYXJlbnpvY2FjZXJlc3Jvc3NpQGdtYWlsLmNvbQ0Kb3V0cHV0Og0KICBodG1sX2RvY3VtZW50Og0KICAgIHRvYzogVFJVRQ0KICAgIHRvY19mbG9hdDogVFJVRQ0KICAgIGNvZGVfZG93bmxvYWQ6IFRSVUUNCiAgICB0aGVtZTogdW5pdGVkDQpiaWJsaW9ncmFwaHk6IGJpYmxpb2dyYWZpYS5iaWINCmNzbDogYXBhLmNzbA0KbGluay1jaXRhdGlvbnM6IHllcw0KLS0tDQoNCjwhLS0gQcOxYWRpciBjb21lbnRhcmlvcyBhIG51ZXN0cm8gZG9jdW1lbnRvIFJNYXJrZG93biAtIEhUTUwgVGFncyAtLT4NCg0KYGBge3Igc2V0dXAsaW5jbHVkZT1GQUxTRX0NCg0KbGlicmFyeShnZ3Bsb3QyKQ0KDQpsaWJyYXJ5KGxhdHRpY2UpDQoNCmxpYnJhcnkodmVtYmVkcikNCg0Ka25pdHI6Om9wdHNfY2h1bmskc2V0KGVjaG8gPSBUUlVFKQ0KYGBgDQoNCiMjIERpYWdyYW1hcyBkZSBCYXJyYXMgLSBCYXIgQ2hhcnRzDQoNCkVsIGRpYWdyYW1hIGRlIGJhcnJhcyAoKipCYXIgQ2hhcnQqKikgZXMgdW4gZ3LDoWZpY28gZXN0YWTDrXN0aWNvIHF1ZSBub3MgcGVybWl0ZSByZXByZXNlbnRhciBsYSBkaXN0cmlidWNpw7NuIGRlIGZyZWN1ZW5jaWFzIGRlIHZhcmlhYmxlcyBjdWFsaXRhdGl2YXMgeSBjdWFudGl0YXRpdmFzIGRpc2NyZXRhczsgbnVlc3RybyBvYmpldGl2byBlcyBwYXNhciBkZWwgbMOhcGl6IHkgcGFwZWwgYWwgdXNvIGRlIGxvcyBsZW5ndWFqZXMgZGUgcHJvZ3JhbWFjacOzbiBSIFtAUnByb2dyYW1taW5nXSB5IFB5dGhvbiBbQHB5dGhvbjM4XSwgcGFyYSBlc3RvIHVzYW1vcyBjb21vIGxpYnJvIGRlIGNhYmV6ZXJhICoqRWwgQXJ0ZSBkZSBQcm9ncmFtYXIgZW4gUioqIFtAc2FudGFuYTIwMTRhcnRlXSxjb21wYXJ0aW1vcyBsYSBzaWd1aWVudGUgaW1hZ2VuIGNvbW8gcmVmZXJlbmNpYS4NCg0KPCEtLSBSTWFya2Rvd24gcGVybWl0ZSBhw7FhZGlyIEhUTUwgdGFncyBkZW50cm8gZGUgc3Ugc2ludGF4aXMgcGFyYSBlbCBmb3JtYXRlbyBkZSBudWVzdHJvIGRvY3VtZW50byAtLT4NCg0KPGNlbnRlcj4NCg0KIVtdKGRpYWdyYW1hX2JhcnJhc19hbWFuby5qcGcpe3dpZHRoPTQwMH0NCg0KPC9jZW50ZXI+DQoNCg0KIyMgRGF0YSBTZXQgLSBtdGNhcnMNCg0KKiptdGNhcnMqKiBlcyB1biBkYXRhIHNldCBxdWUgeWEgdmllbmUgcHJlY2FyZ2FkbyBhbCBtb21lbnRvIGRlIGluc3RhbGFyIGVsICoqbGVuZ3VhamUgZGUgcHJvZ3JhbWFjacOzbiBSKiogZW4gbnVlc3RybyBzaXN0ZW1hLCBoYXJlbW9zIHVzbyBkZSBkaWNobyBkYXRhIHNldCBwYXJhIGxhIGNyZWFjacOzbiBkZSBkaXN0aW50b3MgZGlhZ3JhbWFzIGRlIGJhcnJhcywgZGUgbGFzIDExIHZhcmlhYmxlcyB5IDMyIG9ic2VydmFjaW9uZXMgcXVlIGxvIGNvbXBvbmVuIG5vcyBlbmZvY2FyZW1vcyBlbiBsYXMgdmFyaWFibGVzICoqY3lsKiogKGNpbGluZHJvKSB5ICoqZ2VhcioqIChlbmdyYW5hamVzKSBjb21vIHNlIG11ZXN0cmEgYSBjb250aW51YWNpw7NuLg0KDQpgYGB7ciBtdGNhcnN9DQpzdW1tYXJ5KG10Y2FycykNCg0Kc3VtbWFyeShtdGNhcnMkY3lsKQ0KDQpzdW1tYXJ5KG10Y2FycyRnZWFyKQ0KDQpgYGANCg0KDQojIyBCYXIgQ2hhcnQgLSBiYXJwbG90KCkNCg0KTGEgZnVuY2nDs24gIGBiYXJwbG90KClgIG5vcyBwZXJtaXRlIGNyZWFyIGRpYWdyYW1hcyBkZSBiYXJyYXMgKCoqQmFyIENoYXJ0cyoqKSBlbiBlbCBsZW5ndWFqZSBkZSBwcm9ncmFtYWNpw7NuIFIsIHV0aWxpemFyZW1vcyBsYSB2YXJpYWJsZSBjeWwgKCoqY2lsaW5kcm9zKiopIHBhcmEgY3JlYXIgZWwgZ3LDoWZpY28gZXN0YWTDrXN0aWNvIHJlZXNwZWN0aXZvLCBjb21vIHNlIG11ZXN0cmEgZW4gbGEgc2lndWllbnRlIGltYWdlbi4NCg0KYGBge3IgYmFycGxvdCxmaWcuYWxpZ249J2NlbnRlcid9DQp4IDwtIHRhYmxlKG10Y2FycyRjeWwpDQoNCmNvbG9yZXMgPC0gYygib3JhbmdlIiwiYmx1ZSIsInB1cnBsZSIpDQoNCmJhcnBsb3QoeCx4bGFiPSJDaWxpbmRyb3MiLHlsYWI9IkZyZWN1ZW5jaWFzIixtYWluPSJOw7ptZXJvIGRlIENpbGluZHJvcyIsY29sPWNvbG9yZXMpDQoNCmBgYA0KDQojIyBCYXIgQ2hhcnQgLSBnZ3Bsb3QyDQoNCioqZ2dwbG90MioqIFtAZ2dwbG90Ml0gZXMgdW4gcGFxdWV0ZSBkZWwgbGVuZ3VhamUgZGUgcHJvZ3JhbWFjacOzbiBxdWUgbm9zIHBlcm1pdGUgY3JlYXIgZ3LDoWZpY29zIGVzdGFkw61zdGljb3MgZGUgZ3JhbiBjYWxpZGFkLCBoYXJlbW9zIHVzbyBkZSBsYSB2YXJpYWJsZSBjeWwgKCoqY2lsaW5kcm9zKiopIHBhcmEgbGEgY3JlYWNpw7NuIGRlbCBncsOhZmljbyBlc3RhZMOtc3RpY28gcmVzcGVjdGl2bywgY29tbyBzZSBtdWVzdHJhIGEgY29udGludWFjacOzbi4NCg0KYGBge3IgZ2dwbG90MixmaWcuYWxpZ249J2NlbnRlcid9DQpnZ3Bsb3QobXRjYXJzLGFlcyhjeWwpKSArIGdlb21fYmFyKGZpbGw9Y29sb3JlcykgKyBsYWJzKHg9IkNpbGxpbmRyb3MiLHk9IkZyZWN1ZW5jaWFzIix0aXRsZT0iTsO6bWVybyBkZSBDaWxpbmRyb3MiKSArIHRoZW1lX2RhcmsoKQ0KYGBgDQoNCg0KIyMgQmFyIENoYXJ0IC0gTGF0dGljZQ0KDQoqKkxhdHRpY2UqKiBbQGxhdHRpY2VdIGVzIHVuIHBhcXVldGUgZGVsIGxlbmd1YWplIGRlIHByb2dyYW1hY2nDs24gUiwgcXVlIG5vcyBwZXJtaXRlIGNyZWFyIGdyw6FmaWNvcyBlc3RhZMOtc3RpY29zIGRlIG11eSBidWVuYSBjYWxpZGFkLCBub3MgZW5mb2NhcmVtb3MgZW4gbGEgdmFyaWFibGUgY3lsICgqKmNpbGluZHJvcyoqKSBwYXJhIGxhIGNyZWFjacOzbiBkZWwgZ3LDoWZpY28gZXN0YWTDrXN0aWNvIHJlc3BlY3Rpdm8sIGNvbW8gc2UgbXVlc3RyYSBhIGNvbnRpbnVhY2nDs24uDQoNCmBgYHtyIGxhdHRpY2UsZmlnLmFsaWduPSdjZW50ZXInfQ0KYmFyY2hhcnQoeCx4bGFiPSJDaWxpbmRyb3MiLHlsYWI9IkZyZWN1ZW5jaWFzIixtYWluPSJOw7ptZXJvIGRlIENpbGluZHJvcyIsY29sPWNvbG9yZXMsaG9yaXpvbnRhbD1GQUxTRSkNCmBgYA0KDQojIyBCYXIgQ2hhcnRzIC0gTWF0cGxvdGxpYg0KDQoqKk1hdHBsb3RsaWIqKiBbQEh1bnRlcjoyMDA3XSBlcyB1bmEgbGlicmVyw61hIGRlbCBsZW5ndWFqZSBkZSBwcm9ncmFtYWNpw7NuIFB5dGhvbiwgcXVlIG5vcyBwZXJtaXRlIGNyZWFyIGdyw6FmaWNvcyBlc3RhZMOtc3RpY29zIGRlIGdyYW4gY2FsaWRhZCwgKipSTWFya2Rvd24qKiBub3MgcGVybWl0ZSB0cmFiYWphciBjb24gb3Ryb3MgbGVuZ3VhamVzIGRlIHByb2dyYW1hY2nDs24gdGFsZXMgY29tbyAqKkMrKywgU1FMLCBKdWxpYSoqLCBlbnRyZSBtdWNob3Mgb3Ryb3M7IGEgY29udGludWFjacOzbiBtb3N0cmFtb3MgdW4gZGlhZ3JhbWEgZGUgYmFycmFzICgqKkJhciBDaGFydCoqKSBjcmVhZG8gY29uIE1hdHBsb3RsaWIuDQoNCmBgYHtweXRob24scmVzdWx0cz0naGlkZScsY29sbGFwc2U9VFJVRSxmaWcuYWxpZ249ImNlbnRlciJ9DQppbXBvcnQgbWF0cGxvdGxpYi5weXBsb3QgYXMgcGx0DQogDQoNCmVqZV94ID0gWydQeXRob24nLCAnUicsICdOb2RlLmpzJywgJ1BIUCddDQogDQoNCmVqZV95ID0gWzUwLDIwLDM1LDQ3XQ0KIA0KDQpwbHQuYmFyKGVqZV94LCBlamVfeSkNCiANCg0KcGx0LnlsYWJlbCgnQ2FudGlkYWQgZGUgdXN1YXJpb3MnKQ0KIA0KDQpwbHQueGxhYmVsKCdMZW5ndWFqZXMgZGUgcHJvZ3JhbWFjacOzbicpDQogDQoNCnBsdC50aXRsZSgnVXN1YXJpb3MgZGUgbGVuZ3VhamVzIGRlIHByb2dyYW1hY2nDs24nKQ0KIA0KDQpwbHQuc2hvdygpDQpgYGANCg0KIyMgWW91VHViZSAtIFR1dG9yaWFsDQoNCkNvbXBhcnRpbW9zIGVsIHNpZ3VpZW50ZSB0dXRvcmlhbCB0b21hZG8gZGUgbGEgcGxhdGFmb3JtYSAqKllvdVR1YmUqKiBxdWUgbXVlc3RyYSBjb21vIGNyZWFyIGRpYWdyYW1hcyBkZSBiYXJyYXMgKCoqQmFyIENoYXJ0cyoqKSBoYWNpZW5kbyB1c28gZGUgbGEgZnVuY2nDs24gYGJhcnBsb3QoKWAgeSBlbCBwYXF1ZXRlICoqZ2dwbG90MioqIGRlbCBsZW5ndWFqZSBkZSBwcm9ncmFtYWNpw7NuIFIsIHBhcmEgYcOxYWRpciBlbCB2w61kZW8gdXRpbGl6YW1vcyBlbCBwYXF1ZXRlICoqdmVtYmVkcioqDQoNCmBgYHtyIHZpZGVvfQ0KZW1iZWRfdXJsKCJodHRwczovL3d3dy55b3V0dWJlLmNvbS93YXRjaD92PUVreFJqMDJpYUxrJnQ9NnMiKSAlPiUgDQogIHVzZV9hbGlnbigiY2VudGVyIikNCmBgYA0KDQojIyBSZWZlcmVuY2lhcw0KDQoNCg0KDQoNCg0KDQoNCg==