Creando una tabla de muestras aleatorias del lanzamiento de una moneda con la función sample

# Creando el vector moneda
moneda <- c("Águila", "Sol") 
# Creando 5 muestras aleatorias simples con la función sample
muestra1 <- sample(moneda, 100, T)
muestra2 <- sample(moneda, 500, T)
muestra3 <- sample(moneda, 1000, T)
muestra4 <- sample(moneda, 5000, T)
muestra5 <- sample(moneda, 10000, T)
# Creando una tabla de frecuencias para cada muestra
muestra1 <- table(muestra1)
muestra2 <- table(muestra2)
muestra3 <- table(muestra3)
muestra4 <- table(muestra4)
muestra5 <- table(muestra5)
# Creando un data frame de frecuencias para las 5 muestras
frecuencias <- data.frame(cbind(muestra1, muestra2, muestra3, muestra4, muestra5))
frecuencias
##        muestra1 muestra2 muestra3 muestra4 muestra5
## Águila       45      271      490     2507     5032
## Sol          55      229      510     2493     4968

Transformando nuestra tabla de frecuencias absolutas en una tabla de frecuencias relativas

# Creando una trabla de frecuencias relaticas con las funciones transform y prop.table
f_relativas <- transform(frecuencias, muestra1 = prop.table(muestra1),
                         muestra2 = prop.table(muestra2),
                         muestra3 = prop.table(muestra3),
                         muestra4 = prop.table(muestra4),
                         muestra5 = prop.table(muestra5))
# Transponiendo el data frame de frecuencias relativas con la función t
f_relativas <- data.frame(t(f_relativas))
f_relativas
##          Águila    Sol
## muestra1 0.4500 0.5500
## muestra2 0.5420 0.4580
## muestra3 0.4900 0.5100
## muestra4 0.5014 0.4986
## muestra5 0.5032 0.4968

Añadiendo la columna “Muestra” a nuestra tabla

# Agregando la columna Muestra a nuestro data frame de frecuencias relativas
f_relativas <- data.frame(f_relativas, Muestra = 1:5)
f_relativas
##          Águila    Sol Muestra
## muestra1 0.4500 0.5500       1
## muestra2 0.5420 0.4580       2
## muestra3 0.4900 0.5100       3
## muestra4 0.5014 0.4986       4
## muestra5 0.5032 0.4968       5

Graficando el número de la muestra y la frecuencia relativa

# Creando un gráfico con la función ggplot
ggplot() + geom_line(data = f_relativas, aes(x = Muestra, y = Águila), color = "blue") + geom_line(data = f_relativas, aes(x = Muestra, y = Sol), color = "red") + xlab("Muestra") + ylab("Porcentaje")

Generando una gráfica interactiva

# Creando un gráfico interactivo con la función ggplotly
grafica <- ggplot() + geom_line(data = f_relativas, aes(x = Muestra, y = Águila), color = "blue") + geom_line(data = f_relativas, aes(x = Muestra, y = Sol), color = "red") + xlab("Muestra") + ylab("Porcentaje")
ggplotly(grafica)

Este script fue generado mediante R en June 08, 2020 y forma parte de las actividades realizadas en las materias de Estadística y Taller IV. Facultad de Economía, Ciudad Universitaria. Contacto: y @cghv94. Esta obra está bajo una licencia de Creative Commons, Attribution 4.0 International (CC BY 4.0). Creative Commons (CC).