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 respectivo, 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 R 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.

# Debes tener instalado el paquete lattice

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

LS0tDQp0aXRsZTogIkJhciBDaGFydHMgLSBSIg0KYXV0aG9yOiAiUmVuem8gQ8OhY2VyZXMgUm9zc2kiDQpkYXRlOiAiMjAyMi8xMC8xMCINCnN1YnRpdGxlOiAiYmFycGxvdCgpIC0gZ2dwbG90MiAtIGxhdHRpY2UiDQpvdXRwdXQ6DQogIGh0bWxfZG9jdW1lbnQ6DQogICAgdG9jOiBUUlVFDQogICAgdG9jX2Zsb2F0OiBUUlVFDQogICAgY29kZV9kb3dubG9hZDogVFJVRQ0KLS0tDQoNCjwhLS0gRG9jdW1lbnRvIFJNYXJrZG93biBwYXJ0ZSBkZWwgY3Vyc28gZGVsIERTUlAgLS0+DQoNCmBgYHtyIHNldHVwLGluY2x1ZGU9RkFMU0V9DQoNCg0KbGlicmFyeShnZ3Bsb3QyKQ0KDQpsaWJyYXJ5KGxhdHRpY2UpDQoNCg0Ka25pdHI6Om9wdHNfY2h1bmskc2V0KGVjaG89VFJVRSkNCg0KYGBgDQoNCg0KIyMgQmFyIENoYXJ0IC0gYmFycGxvdCgpDQoNCkxhIGZ1bmNpw7NuIGBiYXJwbG90KClgIG5vcyBwZXJtaXRlIGNyZWFyIGRpYWdyYW1hcyBkZSBiYXJyYXMgKCoqQmFyIENoYXJ0cyoqKSBlbiBlbCBsZW5ndWFqZSBkZSBwcm9ncmFtYWNpw7NuIFIsIHV0aWxpemFyZW1vcyBsYSB2YXJpYWJsZSBjeWwgKCoqY2lsaW5kcm9zKiopIHBhcmEgY3JlYXIgZWwgZ3LDoWZpY28gZXN0YWTDrXN0aWNvIHJlc3BlY3Rpdm8sIGNvbW8gc2UgbXVlc3RyYSBlbiBsYSBzaWd1aWVudGUgaW1hZ2VuLg0KDQpgYGB7ciBiYXJwbG90LCBmaWcuYWxpZ249J2NlbnRlcid9DQoNCnggPC0gdGFibGUobXRjYXJzJGN5bCkNCg0KY29sb3JlcyA8LSBjKCJvcmFuZ2UiLCJibHVlIiwicHVycGxlIikNCg0KYmFycGxvdCh4LHhsYWI9IkNpbGluZHJvcyIseWxhYj0iRnJlY3VlbmNpYXMiLG1haW49Ik7Dum1lcm8gZGUgQ2lsaW5kcm9zIixjb2w9Y29sb3JlcykNCg0KDQpgYGANCg0KDQojIyBCYXIgQ2hhcnQgLSBnZ3Bsb3QyDQoNCioqZ2dwbG90MioqIGVzIHVuIHBhcXVldGUgZGVsIGxlbmd1YWplIGRlIHByb2dyYW1hY2nDs24gUiBxdWUgbm9zIHBlcm1pdGUgY3JlYXIgZ3LDoWZpY29zIGVzdGFkw61zdGljb3MgZGUgZ3JhbiBjYWxpZGFkLCBoYXJlbW9zIHVzbyBkZSBsYSB2YXJpYWJsZSBjeWwgKCoqY2lsaW5kcm9zKiopIHBhcmEgbGEgY3JlYWNpw7NuIGRlbCBncsOhZmljbyBlc3RhZMOtc3RpY28gcmVzcGVjdGl2bywgY29tbyBzZSBtdWVzdHJhIGEgY29udGludWFjacOzbi4NCg0KYGBge3IgZ2dwbG90MixmaWcuYWxpZ249J2NlbnRlcid9DQoNCmdncGxvdChtdGNhcnMsYWVzKGN5bCkpICsgZ2VvbV9iYXIoZmlsbD1jb2xvcmVzKSArIGxhYnMoeD0iQ2lsbGluZHJvcyIseT0iRnJlY3VlbmNpYXMiLHRpdGxlPSJOw7ptZXJvIGRlIENpbGluZHJvcyIpICsgdGhlbWVfZGFyaygpDQoNCmBgYA0KDQoNCiMjIEJhciBDaGFydCAtIExhdHRpY2UNCg0KKipMYXR0aWNlKiogZXMgdW4gcGFxdWV0ZSBkZWwgbGVuZ3VhamUgZGUgcHJvZ3JhbWFjacOzbiBSLCBxdWUgbm9zIHBlcm1pdGUgY3JlYXIgZ3LDoWZpY29zIGVzdGFkw61zdGljb3MgZGUgbXV5IGJ1ZW5hIGNhbGlkYWQsIG5vcyBlbmZvY2FyZW1vcyBlbiBsYSB2YXJpYWJsZSBjeWwgKCoqY2lsaW5kcm9zKiopIHBhcmEgbGEgY3JlYWNpw7NuIGRlbCBncsOhZmljbyBlc3RhZMOtc3RpY28gcmVzcGVjdGl2bywgY29tbyBzZSBtdWVzdHJhIGEgY29udGludWFjacOzbi4NCg0KDQpgYGB7ciBsYXR0aWNlLGZpZy5hbGlnbj0ncmlnaHQnfQ0KDQojIERlYmVzIHRlbmVyIGluc3RhbGFkbyBlbCBwYXF1ZXRlIGxhdHRpY2UNCg0KYmFyY2hhcnQoeCx4bGFiPSJDaWxpbmRyb3MiLHlsYWI9IkZyZWN1ZW5jaWFzIixtYWluPSJOw7ptZXJvIGRlIENpbGluZHJvcyIsY29sPWNvbG9yZXMsaG9yaXpvbnRhbD1GQUxTRSkNCg0KDQpgYGANCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQo=