Gráficas sobre estadísticas descriptivas para datos sin agrupar

Diagrama de tallos y hojas

Se crea el vector pesos

pesos<-c(45,52,53,56,57,58,60,65,65,66,75,53,55,55,58,64,65,66,67,68,68,69,74,74,74,75,75,78,79,79,82,107)
stem(pesos, scale = 1, width = 80, atom = 1e-08)

Box plot

Se crea el vector de datos Notas

Notas<-c(15, 45, 47,53, 58, 58, 60, 62, 67, 74, 75, 78, 80, 80, 81, 85, 85, 85, 90, 92)

Box plot para el vector Notas

boxplot(Notas, main="Diagrama de cajas de dispersión",ylab="Notas de Estadística General", col="lightpink")
points(mean(Notas),pch=15,col="green4")

Otro ejemplo Box plot

Se carga el objeto que contiene la tabla de datos llamada PlantGrowth

data(PlantGrowth)

Es necesario cargar en la memoria las variables del archivo PlantGrowth, para acceder directamente a cada una de las variables. Esto se logra mediante el uso del comando “attach”

attach(PlantGrowth)
boxplot(weight~group)
title("Boxplot para el rendimiento de plantas según el tratamiento",col=c("orange","yellow","blue"),xlab = "Tratamiento", ylab = "peso seco de plantas")

Gráfica de barras

Opinión de los brasileños sobre marcas de cervezas

Se crea el vector de variables categóricas respuestas

respuestas<-c("Itaipava","Skol","Bohemia","Antártica")

Se crea el vector de datos frecuencia

frecuencia<-c(12,63,130,45)

Se crea un data.frame con los vectores respuestas y frecuencia

datos<-data.frame(respuestas, ni=frecuencia);datos
n<-sum(frecuencia)
datos$fi<-datos$ni/n

Gráfica de barras

barplot(datos[,"ni"], legend =datos[,"respuestas"],
ylab="Frecuencias absolutas",ylim=c(0,140), col = c("blue", "red", "yellow", "green"))

Gráfico de pastel o pizza

pie(datos$ni, col=c("blue", "red", "yellow", "green"), labels=c("Itaipava(4.8%)","Skol(25.2%)","Bohemia(52%)","Antártica(18%)"))

Otro ejemplo

Se crea un vector de datos que contiene el número de faltas presentadas por 30 empleados en una empresa agroindustrial en el primer semestre 2017

faltas<-c(1,3,1,1,0,1,0,1,1,0,2,2,0,0,0,1,2,1,2,0,0,1,6,4,3,3,1,2,4,0)

Tamaño del vector

n<-length(faltas)

Se crea una tabla de conteo aux, con el vector de datos faltas

aux<-table(faltas);aux

Se crea un data.frame con la tabla de conteo aux de frecuencia absoluta

datos1<-data.frame(aux)

Se crea un data.frame con la tabla de conteo aux de frecuencia relativa en porcentaje

datos2<-data.frame(aux/n)

Se crea un data.frame con la tabla de conteo aux de frecuencia absoluta y relativa en porcentaje

final<-data.frame(faltas=datos1[,1], ni=datos1[,2], fi=round(datos2[,2],3))

Se crea un data.frame con la tabla de conteo aux de frecuencias

final1<-data.frame(xi=final$faltas, frec=final$ni, fr=final$fi, Fai=cumsum(final$ni), Fri=cumsum(final$fi))

Gráfica de barras con el número de faltas presentadas por 30 empleados

barplot(final[,2],xlab="Número de faltas",ylab="Frecuencia absoluta", legend=final[,"faltas"], col=c("blue","red","yellow","green","gray","pink"))

Regresar a la página principal de Scripts