Objetivos de Aprendizaje:
Al finalizar con éxito esta actividad deberás ser capaz de:
El primer paso para elaborar un diagrama de barras es definir las variables necesarias. En el siguiente código, la primera línea almacena en la variable datos los valores 22, 6, 16, 46 y 10 haciendo uso de la función c( ). La segunda línea almacena en la variable categoría las iniciales de las 5 ligas deportivas. Note la correspondencia entre los valores numéricos y las ligas. Finalmente, la tercera y cuarta línea nos muestran el contenido de las variables. Copie el código, péguelo en la ventana de comandos y ejecútelo en el compilador rextester.
datos <- c(22,6,16,46,10)
categoria <- c("MLB", "MLS", "NBA", "NFL", "NHL")
datos
categoria
Nota: En la parte inferior del compilador se muestran los valores de las variables.
datos <- c(22,6,16,46,10)
categoria <- c("MLB", "MLS", "NBA", "NFL", "NHL")
barplot(datos, names.arg = categoria, ylim=c(0,50), main="Liga Deportiva Favorita", xlab="Ligas", ylab="Frecuencia Relativa (%)", col="WhiteSmoke")
El código debería generar el gráfico de arriba. Pruebe modificar algunas de las propiedades como: la escala del eje y (en el parámetro ylim=C(0,50) modifique el limite superior y vea el efecto en el gráfico). Modifique el título del gráfico (en el parámetro main=“su título” coloque entre las comillas el título que desee. Puede modificar los nombres de las etiquetas de los ejes (modifique los parámetros xlab=“su etiqueta en x” y ylab=“su etiqueta en y”). Puede modificar el color del gráfico con el parametro col=“su color” ( entre comillas coloque el color que desea o su codigo). Vea codigo de colores acá.
En los informes científicos es común encontrar digramas de barra horizontales. Ejecute el siguiente código donde se ha incluido el parámetro horiz=TRUE
barplot(datos, names.arg = categoria, xlim=c(0,50), main="Liga Deportiva Favorita ", ylab="Ligas", xlab="Frecuencia Relativa (%)", col="WhiteSmoke", horiz=TRUE,las=1)
Modifique el valor del parámetro las = 1 a 0,1,2 y 3 y vea el efecto en el gráfico.
Suponga que desea analizar la evolución de la Pauta en Internet y Prensa Gráfica para los años 2015 y 2017. En el año 2015 la pauta para Internet fue de 3.8% y de 31% para la Prensa Gráfica. En el año 2017 la pauta para internet fue de 7.8% y de 17.1% para la Prensa Gráfica. Para construir un diagramas de barras que me permita comparar ambos años procedemos de la siguiente manera:
vector <- c(3.8, 7.8, 31, 17.1)
vector2 <- matrix(vector,nrow=2,ncol=2)
A este nivel, Si visualizamos la matriz vector2 lucirá de la siguiente manera:
vector2
## [,1] [,2]
## [1,] 3.8 31.0
## [2,] 7.8 17.1
colnames(vector2) <- c("Internet","Prensa Gráfica")
rownames(vector2) <- c("2015","2017")
ahora la matriz luce de la siguiente manera:
vector2
## Internet Prensa Gráfica
## 2015 3.8 31.0
## 2017 7.8 17.1
barplot(height=vector2,beside=TRUE,las=1,legend.text = TRUE,col=c("red","orange"),ylim=c(0,35))
Es común encontrar estos gráficos comparativos con las barras apiladas. Esto se logra fijando el parámetro beside en FALSE. Modifique este parámetro y vea su efecto en el gráfico.