Tablero 1

---
title: "Tablero 1"
author: "Alejandra Scarpetta"
date: "2025-10-23"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    social: menu
    source_code: embed
---

Información de los datos
===============================================================================

Row
-------------------------------------------------------------------------------

### Estadisticas


```{r setup}
Telc = read.table("Telco_Cusomer_Churn (1).csv", header=TRUE, sep=",",
                   dec=".", stringsAsFactors = TRUE)
summary(Telc)
```

Row
-------------------------------------------------------------------------------

### Información

Este conjunto tiene una muestra de 7037 clientes de una compañia telefonica,
presenta información sobre variables cuantitativas y cualitativas. Tiene el 
objetivo de analizar las causas de por que los clientes se van de la compañia.


### Marketing digital

![](Marketing Digital.png)


Histogramas
================================================================================

Row
--------------------------------------------------------------------------------

### Antiguedad

```{r hist1}
library(ggplot2)
ggplot(Telc, aes(x=tenure))+
  geom_histogram(fill="maroon3")+
  labs(title="Histograma antiguedad", x="antiguedad (meses)",
       y="conteo")
```


Row
--------------------------------------------------------------------------------

### Cargos Mensuales

```{r hist2}
ggplot(Telc, aes(x=MonthlyCharges))+
  geom_histogram(fill="pink")+
  labs(title="Histograma cargos mensuales",
       y="conteo", x="cargos mensuales (usd)")
```



Row
-------------------------------------------------------------------------------

### Cargos Totales

```{r hist3}
ggplot(Telc, aes(x=TotalCharges))+
  geom_histogram(fill="lightgreen")+
  labs(title="Histograma cargos totales",
       x="cargos totales (usd)", y="conteo")
```



Diagrama de cajas
===============================================================================

Row
-------------------------------------------------------------------------------

### Antiguedad

```{r caja1}
ggplot(Telc, aes(x=tenure))+
  geom_boxplot(fill="lightblue")+
  labs(title="Diagrama de caja antiguedad", x="antiguedad (meses)")
```
Row
--------------------------------------------------------------------------------

### Cargos Mensuales

```{r caja2}
ggplot(Telc, aes(x=tenure))+
  geom_boxplot(fill="deeppink3")+
  labs(title="Diagrama de caja antiguedad", x="antiguedad (meses)")
```

Row
-------------------------------------------------------------------------------

### Cargos Totales

```{r caja3}
ggplot(Telc, aes(x=TotalCharges))+
  geom_histogram(fill="deepskyblue2")+
  labs(title="Histograma cargos totales",
       x="cargos totales (usd)", y="conteo")
```


Correlación
===============================================================================

Row
-------------------------------------------------------------------------------

### matriz de correlación

```{r cor1}
library(corrplot)
nuevosDatos = data.frame(Telc$tenure, Telc$MonthlyCharges, Telc$TotalCharges)

r = cor(na.omit(nuevosDatos))
corrplot(r, method="number")

```
Row
-------------------------------------------------------------------------------

### Diagrama de dispersión

```{r dispersion}
ggplot(Telc, aes(x=tenure, y=TotalCharges))+
  geom_jitter()+
  geom_smooth(method="lm", colour="purple")+
  labs(title="Diagrama de dispersión", y="cargos totales (usd)",
       x="antiguedad (mes)")
```

### Interpretación

A mayor de antiguedad en la empresa mayor cargo total para el cliente, se observa una correlación de 0.83.