Introducción

En este análisis, exploraremos los datos de una encuesta de satisfacción de clientes para una empresa de comercio electrónico. El objetivo es comprender mejor la demografía de los encuestados, su experiencia de compra y su nivel de satisfacción. Utilizaremos técnicas de visualización y estadísticas descriptivas para analizar los datos y extraer conclusiones significativas.

install.packages("ggplot2")
## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.3'
## (as 'lib' is unspecified)
library(ggplot2)

# Crear un conjunto de datos de encuestas
encuestas <- data.frame(
  ID = 1:100,
  Edad = sample(18:65, 100, replace = TRUE),
  Sexo = sample(c("Masculino", "Femenino"), 100, replace = TRUE),
  Experiencia_Compra = sample(1:5, 100, replace = TRUE),
  Satisfaccion = sample(1:5, 100, replace = TRUE))

# Visualizar las primeras filas del conjunto de datos
head(encuestas)
##   ID Edad      Sexo Experiencia_Compra Satisfaccion
## 1  1   48  Femenino                  1            3
## 2  2   59 Masculino                  5            4
## 3  3   24 Masculino                  3            2
## 4  4   38  Femenino                  2            3
## 5  5   21  Femenino                  1            1
## 6  6   55 Masculino                  1            5
# Calcular estadísticas descriptivas
summary(encuestas$Edad)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   18.00   32.00   42.00   41.48   52.25   64.00
table(encuestas$Sexo)
## 
##  Femenino Masculino 
##        53        47
summary(encuestas$Experiencia_Compra)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    1.00    2.00    3.00    2.91    4.00    5.00
summary(encuestas$Satisfaccion)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    1.00    1.75    3.00    2.95    4.00    5.00
# Crear gráficos para visualizar los datos
# Histograma de la edad
ggplot(encuestas, aes(x = Edad)) +
  geom_histogram(binwidth = 5, fill = "skyblue", color = "black") +
  labs(title = "Distribución de edad de los encuestados",
       x = "Edad",
       y = "Frecuencia")

# Gráfico de barras de la experiencia de compra
ggplot(encuestas, aes(x = factor(Experiencia_Compra))) +
  geom_bar(fill = "lightgreen", color = "black") +
  labs(title = "Experiencia de compra",
       x = "Experiencia",
       y = "Frecuencia") +
  scale_x_discrete(labels = c("Muy Mala", "Mala", "Regular", "Buena", "Muy Buena"))

# Gráfico de barras de la satisfacción
ggplot(encuestas, aes(x = factor(Satisfaccion))) +
  geom_bar(fill = "salmon", color = "black") +
  labs(title = "Nivel de satisfacción",
       x = "Satisfacción",
       y = "Frecuencia") +
  scale_x_discrete(labels = c("Muy Baja", "Baja", "Regular", "Alta", "Muy Alta"))