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 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 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 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.

 

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.

embed_url("https://www.youtube.com/watch?v=EkxRj02iaLk&t=6s") %>% 
  use_align("center")
LS0tDQp0aXRsZTogIlNpbnRheGlzIELDoXNpY2EgUk1hcmtkb3duIg0KYXV0aG9yOiAiUmVuem8gQ8OhY2VyZXMgUm9zc2kiDQpkYXRlOiAiMjAyMi8wMi8yMSINCnN1YnRpdGxlOiBSTWFya2Rvd24gLSBNYXJrZG93bg0Kb3V0cHV0Og0KICBodG1sX2RvY3VtZW50Og0KICAgIGNvZGVfZG93bmxvYWQ6IFRSVUUNCiAgICB0b2M6IFRSVUUNCiAgICB0b2NfZmxvYXQ6IFRSVUUNCi0tLQ0KDQpgYGB7ciBzZXR1cCxpbmNsdWRlPUZBTFNFfQ0KDQpsaWJyYXJ5KGdncGxvdDIpDQoNCmxpYnJhcnkobGF0dGljZSkNCg0KbGlicmFyeSh2ZW1iZWRyKQ0KDQoNCmtuaXRyOjpvcHRzX2NodW5rJHNldChlY2hvID0gVFJVRSkNCmBgYA0KDQoNCmBgYHtweXRob24saW5jbHVkZT1GQUxTRX0NCg0KaW1wb3J0IG1hdHBsb3RsaWIucHlwbG90IGFzIHBsdA0KDQppbXBvcnQgc2VhYm9ybiBhcyBzbnMNCg0KDQpgYGANCg0KDQojIyBCYXIgQ2hhcnQgLSBiYXJwbG90KCkNCg0KTGEgZnVuY2nDs24gIGBiYXJwbG90KClgIG5vcyBwZXJtaXRlIGNyZWFyIGRpYWdyYW1hcyBkZSBiYXJyYXMgKCoqQmFyIENoYXJ0cyoqKSBlbiBlbCBsZW5ndWFqZSBkZSBwcm9ncmFtYWNpw7NuIFIsIHV0aWxpemFyZW1vcyBsYSB2YXJpYWJsZSBjeWwgKCoqY2lsaW5kcm9zKiopIHBhcmEgY3JlYXIgZWwgZ3LDoWZpY28gZXN0YWTDrXN0aWNvIHJlZXNwZWN0aXZvLCBjb21vIHNlIG11ZXN0cmEgZW4gbGEgc2lndWllbnRlIGltYWdlbi4NCg0KYGBge3IgYmFycGxvdCxmaWcuYWxpZ249J2NlbnRlcid9DQp4IDwtIHRhYmxlKG10Y2FycyRjeWwpDQoNCmNvbG9yZXMgPC0gYygib3JhbmdlIiwiYmx1ZSIsInB1cnBsZSIpDQoNCmJhcnBsb3QoeCx4bGFiPSJDaWxpbmRyb3MiLHlsYWI9IkZyZWN1ZW5jaWFzIixtYWluPSJOw7ptZXJvIGRlIENpbGluZHJvcyIsY29sPWNvbG9yZXMpDQoNCmBgYA0KDQoNCiMjIEJhciBDaGFydCAtIGdncGxvdDINCg0KKipnZ3Bsb3QyKiogZXMgdW4gcGFxdWV0ZSBkZWwgbGVuZ3VhamUgZGUgcHJvZ3JhbWFjacOzbiBxdWUgbm9zIHBlcm1pdGUgY3JlYXIgZ3LDoWZpY29zIGVzdGFkw61zdGljb3MgZGUgZ3JhbiBjYWxpZGFkLCBoYXJlbW9zIHVzbyBkZSBsYSB2YXJpYWJsZSBjeWwgKCoqY2lsaW5kcm9zKiopIHBhcmEgbGEgY3JlYWNpw7NuIGRlbCBncsOhZmljbyBlc3RhZMOtc3RpY28gcmVzcGVjdGl2bywgY29tbyBzZSBtdWVzdHJhIGEgY29udGludWFjacOzbi4NCg0KYGBge3IgZ2dwbG90LGZpZy5hbGlnbj0nY2VudGVyJ30NCmdncGxvdChtdGNhcnMsYWVzKGN5bCkpICsgZ2VvbV9iYXIoZmlsbD1jb2xvcmVzKSArIGxhYnMoeD0iQ2lsbGluZHJvcyIseT0iRnJlY3VlbmNpYXMiLHRpdGxlPSJOw7ptZXJvIGRlIENpbGluZHJvcyIpICsgdGhlbWVfZGFyaygpDQoNCmBgYA0KDQoNCiMjIEJhciBDaGFydCAtIExhdHRpY2UNCg0KKipMYXR0aWNlKiogZXMgdW4gcGFxdWV0ZSBkZWwgbGVuZ3VhamUgZGUgcHJvZ3JhbWFjacOzbiBSLCBxdWUgbm9zIHBlcm1pdGUgY3JlYXIgZ3LDoWZpY29zIGVzdGFkw61zdGljb3MgZGUgbXV5IGJ1ZW5hIGNhbGlkYWQsIG5vcyBlbmZvY2FyZW1vcyBlbiBsYSB2YXJpYWJsZSBjeWwgKCoqY2lsaW5kcm9zKiopIHBhcmEgbGEgY3JlYWNpw7NuIGRlbCBncsOhZmljbyBlc3RhZMOtc3RpY28gcmVzcGVjdGl2bywgY29tbyBzZSBtdWVzdHJhIGEgY29udGludWFjacOzbi4NCg0KYGBge3IgbGF0dGljZSxmaWcuYWxpZ249J2NlbnRlcid9DQpiYXJjaGFydCh4LHhsYWI9IkNpbGluZHJvcyIseWxhYj0iRnJlY3VlbmNpYXMiLG1haW49Ik7Dum1lcm8gZGUgQ2lsaW5kcm9zIixjb2w9Y29sb3Jlcyxob3Jpem9udGFsPUZBTFNFKQ0KDQpgYGANCg0KDQojIyBCYXIgQ2hhcnRzIC0gTWF0cGxvdGxpYg0KDQoqKk1hdHBsb3RsaWIqKiBlcyB1bmEgbGlicmVyw61hIGRlbCBsZW5ndWFqZSBkZSBwcm9ncmFtYWNpw7NuIFB5dGhvbiwgcXVlIG5vcyBwZXJtaXRlIGNyZWFyIGdyw6FmaWNvcyBlc3RhZMOtc3RpY29zIGRlIGdyYW4gY2FsaWRhZCwgKipSTWFya2Rvd24qKiBub3MgcGVybWl0ZSB0cmFiYWphciBjb24gb3Ryb3MgbGVuZ3VhamVzIGRlIHByb2dyYW1hY2nDs24gdGFsZXMgY29tbyAqKkMrKywgU1FMLCBKdWxpYSoqLCBlbnRyZSBtdWNob3Mgb3Ryb3M7IGEgY29udGludWFjacOzbiBtb3N0cmFtb3MgdW4gZGlhZ3JhbWEgZGUgYmFycmFzICgqKkJhciBDaGFydCoqKSBjcmVhZG8gY29uIE1hdHBsb3RsaWIuDQoNCg0KYGBge3B5dGhvbixmaWcuYWxpZ249J2NlbnRlcicscmVzdWx0cz0naGlkZScsY29sbGFwc2U9VFJVRX0NCiANCg0KZWplX3ggPSBbJ1B5dGhvbicsICdSJywgJ05vZGUuanMnLCAnUEhQJ10NCiANCg0KZWplX3kgPSBbNTAsMjAsMzUsNDddDQogDQoNCnBsdC5iYXIoZWplX3gsIGVqZV95KQ0KIA0KDQpwbHQueWxhYmVsKCdDYW50aWRhZCBkZSB1c3VhcmlvcycpDQogDQoNCnBsdC54bGFiZWwoJ0xlbmd1YWplcyBkZSBwcm9ncmFtYWNpw7NuJykNCiANCg0KcGx0LnRpdGxlKCdVc3VhcmlvcyBkZSBsZW5ndWFqZXMgZGUgcHJvZ3JhbWFjacOzbicpDQogDQoNCnBsdC5zaG93KCkNCg0KYGBgDQoNCiMjIFlvdVR1YmUgLSBUdXRvcmlhbA0KDQpDb21wYXJ0aW1vcyBlbCBzaWd1aWVudGUgdHV0b3JpYWwgdG9tYWRvIGRlIGxhIHBsYXRhZm9ybWEgKipZb3VUdWJlKiogcXVlIG11ZXN0cmEgY29tbyBjcmVhciBkaWFncmFtYXMgZGUgYmFycmFzICgqKkJhciBDaGFydHMqKikgaGFjaWVuZG8gdXNvIGRlIGxhIGZ1bmNpw7NuIGBiYXJwbG90KClgIHkgZWwgcGFxdWV0ZSAqKmdncGxvdDIqKiBkZWwgbGVuZ3VhamUgZGUgcHJvZ3JhbWFjacOzbiBSLg0KDQpgYGB7cn0NCmVtYmVkX3VybCgiaHR0cHM6Ly93d3cueW91dHViZS5jb20vd2F0Y2g/dj1Fa3hSajAyaWFMayZ0PTZzIikgJT4lIA0KICB1c2VfYWxpZ24oImNlbnRlciIpDQpgYGANCg0KDQoNCg0KDQoNCg0KDQoNCg0K