library(ggplot2)
library(lattice)
library(vembedr)
## Warning: package 'vembedr' was built under R version 4.1.3
knitr::opts_chunk$set(echo=TRUE)

Diagrama de Barras - Bar Charts

El diagrama de barras (Bar Charts) 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 y Python, compartimos la siguiente imagen como referencia.

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 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="Cilindros",y="Frecuencias",title="Número de cilindros") + theme_dark()

Bar Chart - Lattice

Lattice 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)

LS0tDQp0aXRsZTogIkJhciBDaGFydHMgLSBSIg0KYXV0aG9yOiAiQ2FybG9zIEFndWlycmUgQ292ZcOxYXMiDQpkYXRlOiAnMjAyMicNCnN1YnRpdGxlOiBTaW50YXhpcyBCw6FzaWNhIGRlIFJNYXJrZG93bg0KaW5zdGl0dXRlOiBEU1JQDQpwaG9uZTogJzEyMzQ1NicNCmVtYWlsOiBlc3RlZXN1bmNvcnJlb3JlYWxAaW5zdGEuY29tDQpvdXRwdXQ6IA0KICBodG1sX2RvY3VtZW50OiANCiAgICBjb2RlX2Rvd25sb2FkOiBUUlVFDQotLS0NCg0KPCEtLSBBw7FhZGlyIGNvbWVudGFyaW9zIGEgbnVlc3RybyBkb2N1bWVudG8gUk1hcmtkb3duIC0tPg0KDQpgYGB7ciBzZXR1cC5pbmNsdWRlPUZBTFNFfQ0KDQpsaWJyYXJ5KGdncGxvdDIpDQpsaWJyYXJ5KGxhdHRpY2UpDQpsaWJyYXJ5KHZlbWJlZHIpDQoNCmtuaXRyOjpvcHRzX2NodW5rJHNldChlY2hvPVRSVUUpDQpgYGANCg0KDQojIyBEaWFncmFtYSBkZSBCYXJyYXMgLSBCYXIgQ2hhcnRzDQoNCkVsIGRpYWdyYW1hIGRlIGJhcnJhcyAoKipCYXIgQ2hhcnRzKiopIGVzIHVuIGdyw6FmaWNvIGVzdGFkw61zdGljbyBxdWUgbm9zIHBlcm1pdGUgcmVwcmVzZW50YXIgbGEgZGlzdHJpYnVjacOzbiBkZSBmcmVjdWVuY2lhcyBkZSB2YXJpYWJsZXMgY3VhbGl0YXRpdmFzIHkgY3VhbnRpdGF0aXZhcyBkaXNjcmV0YXM6IG51ZXN0cm8gb2JqZXRpdm8gZXMgcGFzYXIgZGVsIGzDoXBpeiB5IHBhcGVsIGFsIHVzbyBkZSBsb3MgbGVuZ3VhamVzIGRlIHByb2dyYW1hY2nDs24gUiB5IFB5dGhvbiwgY29tcGFydGltb3MgbGEgc2lndWllbnRlIGltYWdlbiBjb21vIHJlZmVyZW5jaWEuDQoNCmBgYHtyIGJhcnBsb3QsIGZpZy5hbGlnbj0nY2VudGVyJ30NCnggPC0gdGFibGUobXRjYXJzJGN5bCkNCg0KY29sb3JlcyA8LSBjKCJvcmFuZ2UiLCJibHVlIiwicHVycGxlIikNCg0KYmFycGxvdCh4LHhsYWI9ImNpbGluZHJvcyIseWxhYj0iRnJlY3VlbmNpYXMiLG1haW49Ik7Dum1lcm8gZGUgY2lsaW5kcm9zIixjb2w9Y29sb3JlcykNCg0KYGBgDQoNCiMjIEJhciBDaGFydCAtIGdncGxvdDINCg0KKipnZ3Bsb3QyKiogZXMgdW4gcGFxdWV0ZSBkZWwgbGVuZ3VhamUgZGUgcHJvZ3JhbWFjacOzbiBxdWUgbm9zIHBlcm1pdGUgY3JlYXIgZ3LDoWZpY29zIGVzdGFkw61zdGljb3MgZGUgZ3JhbiBjYWxpZGFkLCBoYXJlbW9zIHVzbyBkZSBsYSB2YXJpYWJsZSBjeWwgKCoqY2lsaW5kcm9zKiopIHBhcmEgbGEgY3JlYWNpw7NuIGRlbCBncsOhZmljbyBlc3RhZMOtc3RpY28gcmVzcGVjdGl2bywgY29tbyBzZSBtdWVzdHJhIGEgY29udGludWFjacOzbi4NCg0KYGBge3IgZ2dwbG90MixmaWcuYWxpZ249J3JpZ2h0J30NCmdncGxvdChtdGNhcnMsYWVzKGN5bCkpICsgZ2VvbV9iYXIoZmlsbD1jb2xvcmVzKSArIGxhYnMoeD0iQ2lsaW5kcm9zIix5PSJGcmVjdWVuY2lhcyIsdGl0bGU9Ik7Dum1lcm8gZGUgY2lsaW5kcm9zIikgKyB0aGVtZV9kYXJrKCkNCmBgYA0KDQojIyBCYXIgQ2hhcnQgLSBMYXR0aWNlDQoNCioqTGF0dGljZSoqIGVzIHVuIHBhcXVldGUgZGVsIGxlbmd1YWplIGRlIHByb2dyYW1hY2nDs24gUiwgcXVlIG5vcyBwZXJtaXRlIGNyZWFyIGdyw6FmaWNvcyBlc3RhZMOtc3RpY29zIGRlIG11eSBidWVuYSBjYWxpZGFkLCBub3MgZW5mb2NhcmVtb3MgZW4gbGEgdmFyaWFibGUgY3lsICgqKmNpbGluZHJvcyoqKSBwYXJhIGxhIGNyZWFjacOzbiBkZWwgZ3LDoWZpY28gZXN0YWTDrXN0aWNvIHJlc3BlY3Rpdm8sIGNvbW8gc2UgbXVlc3RyYSBhIGNvbnRpbnVhY2nDs24uDQoNCmBgYHtyIGxhdHRpY2UsZmlnLmFsaWduPSdsZWZ0J30NCmJhcmNoYXJ0KHgseGxhYj0iY2lsaW5kcm9zIix5bGFiPSJGcmVjdWVuY2lhcyIsbWFpbj0iTsO6bWVybyBkZSBDaWxpbmRyb3MiLGNvbD1jb2xvcmVzLGhvcml6b250YWw9RkFMU0UpDQoNCmBgYA0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0K