Taller 2
Angelica Vence - Ivan Guerra
2025-03-12
Eres el analista de negocios de una cadena de tiendas minoristas que tiene tres sucursales: Tienda A, Tienda B y Tienda C. La empresa quiere estimar el monto de ventas mensual promedio de la tienda C. Para ello, se selecciona una muestra aleatoria de 35 tiendas y registra sus montos de venta.
1. Análisis exploratorio de la base
library(readr)
datos_negocios_var_5_ventas <- read_csv("~/Angie/datos_negocios_var_5_ventas.csv")## Rows: 100 Columns: 4
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (1): Tienda
## dbl (3): Monto_Ventas, Clientes_Frecuentes, Productos_Vendidos
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.View(datos_negocios_var_5_ventas)datos <- read.csv("~/Angie/datos_negocios_var_5_ventas.csv")
head(datos)## Tienda Monto_Ventas Clientes_Frecuentes Productos_Vendidos
## 1 Tienda A 10880.85 0 346
## 2 Tienda B 48635.34 1 159
## 3 Tienda C 33066.81 0 102
## 4 Tienda A 41198.95 0 299
## 5 Tienda A 47513.59 0 311
## 6 Tienda A 26147.79 0 327Resumen estadístico de las variables numéricas
summary(datos)## Tienda Monto_Ventas Clientes_Frecuentes Productos_Vendidos
## Length:100 Min. :10294 Min. :0.00 Min. : 61.0
## Class :character 1st Qu.:19853 1st Qu.:0.00 1st Qu.:140.5
## Mode :character Median :30921 Median :0.00 Median :239.0
## Mean :31160 Mean :0.45 Mean :254.4
## 3rd Qu.:42604 3rd Qu.:1.00 3rd Qu.:353.5
## Max. :49187 Max. :1.00 Max. :486.0Mediana: 30921
Media: 31160
La media y mediana estan muy cerca lo que significa que la distribucion del Monto de ventas es simetrica. Esto significa que los valores están distribuidos de manera uniforme alrededor del promedio.
Diagrama de caja y bigotes
library(ggplot2)
ggplot(datos, aes(x = Tienda, y = Monto_Ventas, fill = Tienda)) +
geom_boxplot() +
labs(title = "Distribución del monto de ventas por tienda",
x = "Tienda",
y = "Monto de ventas") +
theme_minimal()
Conclusiones
la Tienda B tiene una distribución bastante simétrica, mientras que la tienda A y C tienen una ligera asimetría.
La Tienda B se destaca por tener los montos de venta más altos y una menor variabilidad. La Tienda A muestra la mayor variabilidad, mientras que la Tienda C se sitúa en un punto intermedio.
library(dplyr)##
## Adjuntando el paquete: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, uniondatos <- read.csv("~/Angie/datos_negocios_var_5_ventas.csv")
Clientes_Frecuentes_Tienda <- datos %>%
group_by(Tienda) %>%
summarise(Clientes_Frecuentes_Porcentaje = mean(Clientes_Frecuentes) * 100)
print(Clientes_Frecuentes_Tienda)## # A tibble: 3 × 2
## Tienda Clientes_Frecuentes_Porcentaje
## <chr> <dbl>
## 1 Tienda A 35.3
## 2 Tienda B 41.9
## 3 Tienda C 57.1Tienda A: el 35% de los clientes son clientes frecuentes.
Tienda B: en la tienda B el 41% de sus clientes van con frecuencia.
Tienda C: en la tienda C el 57% de los clientes van con frecuencia.
Clonclusion general:Entre la tienda A, B y C la tienda C es la tienda que tiene mas clientes que van con frecuencia a comprar esto se puede dar debido a que la tienda tendra mas variedad de productos y por ende tiene clientes mas fieles a diferencia de las otras tiendas.
Diagrama de barras: numero de clientes que van con frecuencia a cada tienda
ggplot(datos, aes(x = Tienda, fill = as.factor(Clientes_Frecuentes))) +
geom_bar(position = "dodge") +
labs(title = "Número de Clientes frecuentes por tienda",
x = "Tienda",
y = "Clientes Frecuentes",
fill = "Frecuentes") +
scale_fill_manual(values = c("lightblue", "lightgreen"), labels = c("No", "Sí")) +
theme_minimal()
Conclusion: Nos percatamos que la tienda C tiene más clientes frecuentes (20) a comparación con las otras, y tiene 15 clientes no frecuentes lo que suma 35.
En el caso de las demás tienen más clientes no frecuentes, y la proporción de clientes frecuentes no hace que iguale a la tienda C.
Diagrama caja y bigotes:Distribución del monto de ventas según la frecuencia del Cliente
ggplot(datos, aes(x = (Clientes_Frecuentes), y = Monto_Ventas, fill = as.factor(Clientes_Frecuentes))) +
geom_boxplot() +
labs(title = "Distribución del monto de ventas según la frecuencia del Cliente",
x = "Frecuencia del Cliente",
y = "Monto de ventas") +
scale_x_discrete(labels = c("0" = "No es frecuente", "1" = "si es frecuente")) +
scale_fill_manual(values = c("lightblue", "lightgreen")) +
theme_minimal()
Conclusion: El grupo de clientes no frecuentes (0) muestra una distribución más simétrica, mientras que el grupo de clientes frecuentes (1) presenta una ligera asimetría hacia la izquierda.
Los clientes no frecuentes tienden a generar montos de venta más altos y más uniformes, mientras que los clientes frecuentes muestran una mayor variabilidad en sus compras, con una tendencia a montos de venta más bajos pero con algunos valores atípicos más altos.
Diagrama de barras:cantidad de productos vendidos por tienda:
library(ggplot2)
datos <- read.csv("~/Angie/datos_negocios_var_5_ventas.csv")
productos_por_tienda <- aggregate(Productos_Vendidos ~ Tienda, data = datos, sum)
ggplot(productos_por_tienda, aes(x = Tienda, y = Productos_Vendidos, fill = Tienda)) +
geom_bar(stat = "identity") +
labs(title = "Productos Vendidos por Tienda",
x = "Tienda",
y = "Total de Productos Vendidos") +
theme_minimal() +
scale_fill_brewer(palette = "Set3")
Conclusion: Vemos cómo la tienda C al tener más clientes frecuentes tienen más ventas, es un índice. Todo esto depende de la forma en que las tiendas manejan la relación, promoción, y fidelización de los clientes.
Histograma
library(ggplot2)
datos <- read.csv("~/Angie/datos_negocios_var_5_ventas.csv")
ggplot(datos, aes(x = Monto_Ventas)) +
geom_histogram(binwidth = 1000, fill = "salmon", color = "black") +
labs(title = "Distribución del Monto de Ventas", x = "Monto de Ventas", y = "Frecuencia")
Conclusion: Luego de evaluar la distribución del monto de ventas, encontramos que la frecuencia más alta la tiene el rango entre 40000 a 50000 con una frecuencia de 30 mientras q la segunda con más frecuencia es de 10000 a 20000 con 26 de frecuencia.
2. Intervalo de confianza para la media
Calcular un intervalo de confianza al 95% para la media poblacional del monto de venta mensual en la tienda C.
Muestra: n = 35 tiendas
Media muestral \(\bar{X}\): Calculada con la muestra
Desviación estándar muestral \(s\): Calculada con la muestra
Nivel de confianza: \(95\%\)
library(dplyr)
datos <- read.csv("~/Angie/datos_negocios_var_5_ventas.csv")
datos_tienda_C <- datos %>%
filter(Tienda == "Tienda C")
print(datos_tienda_C)## Tienda Monto_Ventas Clientes_Frecuentes Productos_Vendidos
## 1 Tienda C 33066.81 0 102
## 2 Tienda C 38066.25 0 131
## 3 Tienda C 12612.52 0 210
## 4 Tienda C 39172.95 1 404
## 5 Tienda C 25834.14 0 175
## 6 Tienda C 28791.12 1 258
## 7 Tienda C 25390.91 1 180
## 8 Tienda C 17883.83 1 83
## 9 Tienda C 39084.89 0 470
## 10 Tienda C 15081.87 0 256
## 11 Tienda C 14854.47 0 114
## 12 Tienda C 28195.20 0 157
## 13 Tienda C 17271.63 0 248
## 14 Tienda C 31041.73 1 250
## 15 Tienda C 38670.10 1 434
## 16 Tienda C 35948.84 1 93
## 17 Tienda C 41911.09 1 138
## 18 Tienda C 45355.02 0 367
## 19 Tienda C 27026.45 1 441
## 20 Tienda C 13249.43 0 361
## 21 Tienda C 48642.58 1 134
## 22 Tienda C 36517.82 1 258
## 23 Tienda C 14097.74 1 133
## 24 Tienda C 31066.10 1 395
## 25 Tienda C 25110.59 1 482
## 26 Tienda C 17448.10 1 112
## 27 Tienda C 30260.26 1 292
## 28 Tienda C 34826.09 0 287
## 29 Tienda C 39679.78 0 323
## 30 Tienda C 43398.42 1 125
## 31 Tienda C 33554.81 1 355
## 32 Tienda C 22615.52 1 168
## 33 Tienda C 16489.87 1 348
## 34 Tienda C 48906.81 0 237
## 35 Tienda C 37647.29 0 311datos <- read.csv("~/Angie/datos_negocios_var_5_ventas.csv")
datos_tienda_c <- datos[datos$Tienda == "Tienda C", ]
media <- mean(datos_tienda_c$Monto_Ventas)
desviacion <- sd(datos_tienda_c$Monto_Ventas)
n <- nrow(datos_tienda_c)
z <- 1.96
margen_error <- z * (desviacion / sqrt(n))
intervalo_confianza <- c(media - margen_error, media + margen_error)
cat("Media del monto de ventas en Tienda C:", round(media, 2), "\n")## Media del monto de ventas en Tienda C: 29964.89cat("Intervalo de Confianza 95%: [", round(intervalo_confianza[1], 2),
"y ", round(intervalo_confianza[2], 2), "]\n")## Intervalo de Confianza 95%: [ 26410.3 y 33519.47 ]Conclusion: Con un nivel de confianza del 95% podemos estimar que el numero de clientes frecuentes de la tienda C estan entre 26410.3 y 33519.47
Intervalo de confianza para la proporción
La empresa también desea estimar el porcentaje de clientes frecuentes en las tiendas C. Se selecciona una muestra aleatoria de 35 tiendas y se evalúa si los clientes van con frecuencia a la tienda (1 = frecuente, 0 = No frecuente).
Muestra: n = 35 tiendas
Proporcion muestral: Calculada con la muestra
Nivel de confianza: \(95\%\)
library(dplyr)
datos <- read.csv("~/Angie/datos_negocios_var_5_ventas.csv")
clientes_frecuentes_tienda_c <- datos %>%
filter(Tienda == "Tienda C") %>%
summarise(Total_Clientes = n(),Clientes_Frecuentes = sum(Clientes_Frecuentes), Clientes_No_Frecuentes = Total_Clientes - Clientes_Frecuentes)
cat("Tamaño de la muestra:", clientes_frecuentes_tienda_c$Total_Clientes, "\n")## Tamaño de la muestra: 35cat("Clientes frecuentes en la tienda C (1):", clientes_frecuentes_tienda_c$Clientes_Frecuentes, "\n")## Clientes frecuentes en la tienda C (1): 20clientes_frecuentes <- 20
total_clientes <- 35
p_hat <- clientes_frecuentes / total_clientes
z <- 1.96
margen_error <- z * sqrt(p_hat * (1 - p_hat) / total_clientes)
IC_inferior <- p_hat - margen_error
IC_superior <- p_hat + margen_error
cat("Muestra utilizada:", total_clientes, "clientes\n")## Muestra utilizada: 35 clientescat("Proporción muestral:", round(p_hat, 2), "\n")## Proporción muestral: 0.57cat("Intervalo de Confianza 95% de la de la población de clientes frecuentes:", round(IC_inferior, 4),"y ", round(IC_superior, 4), "\n")## Intervalo de Confianza 95% de la de la población de clientes frecuentes: 0.4075 y 0.7354Conclusion: Con un nivel de confianza del 95% se estima que el numero de clientes frecuentes esta entre 0.4075 y 0.7354.
Intervalo de confianza para la diferencia de proporciones
Un analista de negocios de una cadena de tiendas minoristasr está evaluando el numero de clientes que van con frecuencia a la tienda A y tienda C. El analista desea determinar si hay una diferencia significativa entre las dos tiendas.
Calcular un intervalo de confianza al 95% para la diferencia de proporciones poblacionales de clientes frecuentes entre tienda A y tienda C.
Muestra en Ciudad A: \(n_A\)= 34
Muestra en Ciudad B: \(n_C\)= 35
Proporción muestral en Ciudad A: \(\hat{p_A}\)
Proporción muestral en Ciudad C: \(\hat{p_C}\)
Nivel de confianza: 95%
library(dplyr)
datos <- read.csv("~/Angie/datos_negocios_var_5_ventas.csv")
datos_A <- filter(datos, Tienda == "Tienda A")
datos_C <- filter(datos, Tienda == "Tienda C")
frecuentes_A <- sum(datos_A$Clientes_Frecuentes)
frecuentes_C <- sum(datos_C$Clientes_Frecuentes)
p_A <- frecuentes_A / nrow(datos_A)
p_C <- frecuentes_C / nrow(datos_C)
diff_proporciones <- p_A - p_C
error_diff_p <- sqrt((p_A * (1 - p_A) / nrow(datos_A)) + (p_C * (1 - p_C) / nrow(datos_C)))
z_critico <- qnorm(0.975)
IC_diff_proporciones <- c(diff_proporciones - z_critico * error_diff_p,
diff_proporciones + z_critico * error_diff_p)
cat("Proporción de clientes Frecuentes en la tienda A:", round(p_A, 2), "\n")## Proporción de clientes Frecuentes en la tienda A: 0.35cat("Proporción de clientes Frecuentes en la tienda C:", round(p_C, 2), "\n")## Proporción de clientes Frecuentes en la tienda C: 0.57cat("Diferencia de proporciones:", round(diff_proporciones, 4), "\n")## Diferencia de proporciones: -0.2185cat("Intervalo de confianza (95%):", round(IC_diff_proporciones[1], 4), "a", round(IC_diff_proporciones[2], 4), "\n")## Intervalo de confianza (95%): -0.448 a 0.011Conclusion: Con un nivel de confianza del 95% se concluye que no se puede hacer una estimacion debido a que el intervalo de confianza esta entre -0.448 a 0.011
Conclusion de las proporciones: la tienda C tiene una mayor proporción de clientes frecuentes (0.5714) que la tienda A (0.3529), con una diferencia de -0.2185.