CASO BANK

Enunciado

La siguiente información corresponde a una campaña de telemercadeo (llamadas telefónicas) realizada por un banco con el fin de ofrecer un producto financiero (depósito a término). La base fue recogida con la finalidad de caracterizar a los clientes contactados y permitir un análisis descriptivo de las 4.521 llamadas registradas.

Inicialmente el director de mercadeo desea apoyo en una primera etapa del análisis que consiste en resumir la información suministrada en tablas e indicadores que le permitan validar algunas de sus hipótesis sobre el perfil de los clientes contactados.

La base compartida contiene información de 4.521 clientes contactados telefónicamente. Las variables recogidas corresponden a:

Variables del cliente

• age: edad del cliente (años),
• job: tipo de ocupación (admin., blue-collar, entrepreneur, housemaid, management, retired, self-employed, services, student, technician, unemployed, unknown),
• marital: estado civil (married, single, divorced),
• education: nivel educativo (primary, secondary, tertiary, unknown),
• default: si tiene crédito en mora (yes/no),
• balance: saldo promedio anual en la cuenta (euros),
• housing: si tiene crédito hipotecario (yes/no),
• loan: si tiene préstamo personal (yes/no),

Variables de la campaña actual

• contact: tipo de comunicación de contacto (cellular, telephone, unknown),
• day: último día del mes en que fue contactado,
• month: último mes en que fue contactado,
• duration: duración de la última llamada en segundos,
• campaign: número de contactos realizados durante esta campaña para este cliente,

Variables de campañas anteriores

• pdays: días transcurridos desde el último contacto de una campaña anterior (-1 = nunca fue contactado antes),
• previous: número de contactos realizados antes de esta campaña,
• poutcome: resultado de la campaña de mercadeo anterior (failure, other, success, unknown),

Variable respuesta

• y: si el cliente aceptó el producto (depósito a término) — (yes/no).

Su trabajo consiste en escribir un primer informe basado en una evaluación descriptiva, que contenga las tablas que resumen la información para cada variable de la base de datos y el resumen de sus indicadores estadísticos.

Finalmente adjunte un análisis de los resultados obtenidos.

Cargar datos

library(readr)
bank <- read_csv("C:/Users/USUARIO/Downloads/bank.csv")

Rows: 4521 Columns: 1
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr (1): age;job;marital;education;default;balance;housing;loan;contact;day;...

ℹ 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.

bank <- read_delim("bank.csv", delim = ";")

Rows: 4521 Columns: 17
── Column specification ────────────────────────────────────────────────────────
Delimiter: ";"
chr (10): job, marital, education, default, housing, loan, contact, month, p...
dbl  (7): age, balance, day, duration, campaign, pdays, previous

ℹ 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(bank)

Resumen estadístico

Ocupación (job)

Ocupación	Frecuencia Absoluta
management	969
blue-collar	946
technician	768
admin.	478
services	417
retired	230
self-employed	183
entrepreneur	168
unemployed	128
housemaid	112
student	84
unknown	38

Estado civil (marital)

Estado civil	Frecuencia Absoluta
divorced	528
married	2,797
single	1,196

Nivel educativo (education)

Nivel educativo	Frecuencia Absoluta
primary	678
secondary	2,306
tertiary	1,350
unknown	187

Crédito en mora, hipoteca y préstamo personal (default, housing, loan)

Variable	Clientes con 'yes' (N y %)
Mora (default)	76 (1.7%)
Hipoteca (housing)	2559 (56.6%)
Préstamo (loan)	691 (15.3%)

Tipo de contacto (contact)

Tipo de contacto	Frecuencia Absoluta
cellular	2,896
telephone	301
unknown	1,324

Resultado de campaña anterior (poutcome)

Resultado campaña anterior	Frecuencia Absoluta
failure	490
other	197
success	129
unknown	3,705

Variable respuesta: aceptación del producto (y)

Aceptó el producto	Frecuencia Absoluta
no	4,000
yes	521

Edad, saldo, duración de llamada, número de contactos

summarytools::descr(bank %>% select(age, balance, duration, campaign, pdays, previous))

Descriptive Statistics  
bank  
N: 4521  

                        age    balance   campaign   duration     pdays   previous
----------------- --------- ---------- ---------- ---------- --------- ----------
             Mean     41.17    1422.66       2.79     263.96     39.77       0.54
          Std.Dev     10.58    3009.64       3.11     259.86    100.12       1.69
              Min     19.00   -3313.00       1.00       4.00     -1.00       0.00
               Q1     33.00      69.00       1.00     104.00     -1.00       0.00
           Median     39.00     444.00       2.00     185.00     -1.00       0.00
               Q3     49.00    1480.00       3.00     329.00     -1.00       0.00
              Max     87.00   71188.00      50.00    3025.00    871.00      25.00
              MAD     10.38     658.27       1.48     143.81      0.00       0.00
              IQR     16.00    1411.00       2.00     225.00      0.00       0.00
               CV      0.26       2.12       1.11       0.98      2.52       3.12
         Skewness      0.70       6.59       4.74       2.77      2.72       5.87
      SE.Skewness      0.04       0.04       0.04       0.04      0.04       0.04
         Kurtosis      0.35      88.25      37.11      12.51      7.94      51.91
          N.Valid   4521.00    4521.00    4521.00    4521.00   4521.00    4521.00
                N   4521.00    4521.00    4521.00    4521.00   4521.00    4521.00
        Pct.Valid    100.00     100.00     100.00     100.00    100.00     100.00