Estadistica Descriptiva Datos Ordinales

Estadistica Descriptiva Datos Ordinales

set.seed(2018)
clientes = sample(1:5, 50, replace = TRUE)
clientes

##  [1] 3 4 5 2 5 1 3 4 2 4 3 3 1 1 5 3 1 3 3 5 1 4 2 5 3 4 5 1 2 2 1 5 5 2 1 2 5 5
## [39] 2 1 2 1 3 2 1 2 3 3 1 2

set.seed(NULL)

# Datos
clientes <- c(3, 4, 5, 2, 5, 1, 3, 4, 2, 4, 3, 3, 1, 1, 5, 3, 1, 3, 3, 5, 1, 4, 2, 5, 3, 4, 5, 1, 2, 2, 1, 5, 5, 2, 1, 2, 5, 5, 2, 1, 2, 1, 3, 2, 1, 2, 3, 3, 1, 2) # vector clientes

# Frecuencia Absoluta - table(clientes) cuenta la cantidad de veces que aparece cada valor en el vector
frecuencia_absoluta <- table(clientes)
frecuencia_absoluta

## clientes
##  1  2  3  4  5 
## 12 12 11  5 10

# Frecuencia Relativa - prop.table(frecuencia_absoluta) calcula la proporción de cada valor dividiendo la frecuencia absoluta por el total de observaciones para este caso 50.
frecuencia_relativa <- prop.table(frecuencia_absoluta)
frecuencia_relativa

## clientes
##    1    2    3    4    5 
## 0.24 0.24 0.22 0.10 0.20

# Frecuencia Acumulada - cumsum(frecuencia_absoluta) calcula la suma acumulada de las frecuencias absolutas
frecuencia_acumulada <- cumsum(frecuencia_absoluta)
frecuencia_acumulada

##  1  2  3  4  5 
## 12 24 35 40 50

# Frecuencia Relativa Acumulada - cumsum(frecuencia_relativa) calcula la suma acumulada de las frecuencias relativas.
frecuencia_relativa_acumulada <- cumsum(frecuencia_relativa)
frecuencia_relativa_acumulada

##    1    2    3    4    5 
## 0.24 0.48 0.70 0.80 1.00

# Datos
clientes <- c(3, 4, 5, 2, 5, 1, 3, 4, 2, 4, 3, 3, 1, 1, 5, 3, 1, 3, 3, 5, 1, 4, 2, 5, 3, 4, 5, 1, 2, 2, 1, 5, 5, 2, 1, 2, 5, 5, 2, 1, 2, 1, 3, 2, 1, 2, 3, 3, 1, 2)

# Frecuencia Absoluta
frecuencia_absoluta <- table(clientes)
frecuencia_absoluta

## clientes
##  1  2  3  4  5 
## 12 12 11  5 10

# Barplot Frecuencia Absoluta
barplot(frecuencia_absoluta, main="Frecuencia Absoluta", xlab="Clientes", ylab="Frecuencia", col="blue")

# Frecuencia Relativa
frecuencia_relativa <- prop.table(frecuencia_absoluta)
frecuencia_relativa

## clientes
##    1    2    3    4    5 
## 0.24 0.24 0.22 0.10 0.20

# Barplot Frecuencia Relativa
barplot(frecuencia_relativa, main="Frecuencia Relativa", xlab="Clientes", ylab="Proporción", col="green")

# Frecuencia Acumulada
frecuencia_acumulada <- cumsum(frecuencia_absoluta)
frecuencia_acumulada

##  1  2  3  4  5 
## 12 24 35 40 50

# Barplot Frecuencia Acumulada
barplot(frecuencia_acumulada, main="Frecuencia Acumulada", xlab="Clientes", ylab="Frecuencia Acumulada", col="red")

# Frecuencia Relativa Acumulada
frecuencia_relativa_acumulada <- cumsum(frecuencia_relativa)
frecuencia_relativa_acumulada

##    1    2    3    4    5 
## 0.24 0.48 0.70 0.80 1.00

# Barplot Frecuencia Relativa Acumulada
barplot(frecuencia_relativa_acumulada, main="Frecuencia Relativa Acumulada", xlab="Clientes", ylab="Proporción Acumulada", col="purple")