Untitled

R Markdown

library(readxl)

## Warning: package 'readxl' was built under R version 4.5.1

# Cargar la base de datos
data <- read_excel("Base de datos limpia.xlsx")

# Se crea un subconjunto con 6 variables que permiten un mejor análsis
data2 <- subset(data, select = c( "¿Qué edad tiene? (Seleccione un rango de edad)",
                                  "¿Con qué género se identifica?",
                                  "¿Has adoptado mascotas?",
                                  "De acuerdo a tus preferencias, ¿con que especie sientes más afinidad en este momento?",
                                  "¿Vives en...?",
                                  "¿Cuál es o sería tu principal motivación para adoptar una mascota?"))

Tabla 1

## Warning: package 'kableExtra' was built under R version 4.5.1

Tabla 1. Motivación para adoptar una mascota

Motivación	Frecuencia
Ayudar a un animal en situación de calle	8
Ayudar a un animal en situación de calle, Enseñanza para los niños	1
Compañía	30
Compañía, Ayudar a un animal en situación de calle	36
Compañía, Ayudar a un animal en situación de calle, Enseñanza para los niños	2
Compañía, Ayudar a un animal en situación de calle, Enseñanza para los niños, Seguridad	4
Compañía, Seguridad	2
No aplica	18

Gráfico tabla 1

Tabla 2

Tabla 2. Personas que han adoptado mascotas según género

	Femenino	Masculino	No aplica	Prefiero no decirlo
No ha adoptado	5	2	0	0
No aplica	3	1	18	0
Sí ha adoptado	43	28	0	1

Gráfico tabla 2

Medidas de tendencia central “¿Has adoptado mascotas?”

Medidas de tendencia central “¿Has comprado mascotas?”