Cargando los datos sobre los infartos

infartos <- read.csv("https://archive.ics.uci.edu//ml//machine-learning-databases//00519//heart_failure_clinical_records_dataset.csv",header=TRUE)

names(infartos)=c('Edad','Anemia','CPK','Diabetes','Fraccion de eyeccion','Presion alta','Plaquetas','Suero de Creatinina','Suero de Sodio','sexo','Fumadores','Tiempo de seguimiento','Muerte')

#— #VARIABLES CUANTITATIVAS #—

Infartos por edad

## Histograma
hist(infartos$Edad,col = 'pink',main = 'Histograma de infartos respecto a la edad',  xlab = 'Edades',ylab = 'Frecuencia',xlim = c(30,100))

#Medidas estadisticas
summary(infartos$Edad)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   40.00   51.00   60.00   60.83   70.00   95.00
#Diagrama de cajas
boxplot(infartos$Edad, main = 'Diagrama de infartos por edad', col = 'yellow',horizontal = T)

Infartos respecto al examen de CPK

## Histograma
hist(infartos$CPK,col = 'bisque1',main = 'Histograma de infartos respecto a CPK', xlab = 'Valor por examen de CPK',ylab = 'Frecuencia')

#Medidas estadisticas
summary(infartos$CPK)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    23.0   116.5   250.0   581.8   582.0  7861.0
#Diagrama de cajas
boxplot(infartos$CPK,main = 'Diagrama de infartos respecto a CPK', col = 'yellow',horizontal = T)

Infartos respecto a la fraccion de eyeccion

## Histograma
hist(infartos$`Fraccion de eyeccion`,main= 'Histograma de infartos con respecto a la fraccion de eyeccion', col = 'aquamarine1',xlab = 'Valores de Fraccion de eyeccion',ylab = 'Frecuencia')

#Medidas estadisticas
summary(infartos$`Fraccion de eyeccion`)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   14.00   30.00   38.00   38.08   45.00   80.00
#Diagrama de cajas
boxplot(infartos$`Fraccion de eyeccion`, main = 'Diagrama de infartos respecto a la fraccion de eyeccion',col = 'cyan',horizontal = T)

Infartos respecto al examen de Suero de creatinina

## Histograma
hist(infartos$`Suero de Creatinina`,main= 'Histograma de infartos respecto al examen de Suero de creatinina', col = 'magenta',xlab = 'Valores de Suero de creatinina',ylab = 'Frecuencia')

#Medidas estadisticas
summary(infartos$`Suero de Creatinina`)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   0.500   0.900   1.100   1.394   1.400   9.400
#Diagrama de cajas
boxplot(infartos$`Suero de Creatinina`, main = 'Diagrama de infartos respecto al examen de Suero de Creatinina', col = 'magenta',horizontal = T)

#— #VARIABLES CUALITATIVAS #—

Personas infartadas con anemia

library(lattice)
library(fdth)
## Warning: package 'fdth' was built under R version 4.0.2
## 
## Attaching package: 'fdth'
## The following objects are masked from 'package:stats':
## 
##     sd, var
counts<- table(infartos$Anemia)
barchart(counts, main= 'Grafico de barras de personas inafartadas con anemia', xlab= 'Tipo de casos (0=SIN ANEMIA Y 1=CON ANEMIA)', ylab= 'Frecuencia', col= c('yellow', 'pink'), horizontal = FALSE)

#Tabla de frecuencias
fr<-fdt(infartos$Anemia, breaks ="Sturges", right = F)
fr
##   Class limits   f   rf rf(%)  cf  cf(%)
##      [0,0.101) 170 0.57 56.86 170  56.86
##  [0.101,0.202)   0 0.00  0.00 170  56.86
##  [0.202,0.303)   0 0.00  0.00 170  56.86
##  [0.303,0.404)   0 0.00  0.00 170  56.86
##  [0.404,0.505)   0 0.00  0.00 170  56.86
##  [0.505,0.606)   0 0.00  0.00 170  56.86
##  [0.606,0.707)   0 0.00  0.00 170  56.86
##  [0.707,0.808)   0 0.00  0.00 170  56.86
##  [0.808,0.909)   0 0.00  0.00 170  56.86
##   [0.909,1.01) 129 0.43 43.14 299 100.00

Personas infartadas con presion alta

library(lattice)
library(fdth)

counts<- table(infartos$`Presion alta`)
barchart(counts, main= 'Grafico de barras de personas inafartadas con presiOn alta', xlab= 'Tipo de casos (0=sin presion alta, 1=con presion alta)', ylab= 'Frecuencia', col= c('pink', 'azure2'), horizontal = FALSE)

#Tabla de frecuencias
fr3<-fdt(infartos$`Presion alta`,breaks ="Sturges", right = F)
fr3
##   Class limits   f   rf rf(%)  cf  cf(%)
##      [0,0.101) 194 0.65 64.88 194  64.88
##  [0.101,0.202)   0 0.00  0.00 194  64.88
##  [0.202,0.303)   0 0.00  0.00 194  64.88
##  [0.303,0.404)   0 0.00  0.00 194  64.88
##  [0.404,0.505)   0 0.00  0.00 194  64.88
##  [0.505,0.606)   0 0.00  0.00 194  64.88
##  [0.606,0.707)   0 0.00  0.00 194  64.88
##  [0.707,0.808)   0 0.00  0.00 194  64.88
##  [0.808,0.909)   0 0.00  0.00 194  64.88
##   [0.909,1.01) 105 0.35 35.12 299 100.00

Personas infartadas respecto al sexo

library(lattice)
library(fdth)

counts<- table(infartos$sexo)
barchart(counts, main= 'GrAfico de barras de personas inafartadas segun su sexo', xlab= 'Sexo de paciente (0=Mujer, 1=Hombre)', col=c('pink','blue'),horizontal = FALSE)

#Tabla de frecuencias
fr4<-fdt(infartos$sexo,breaks ="Sturges", right = F)
fr4
##   Class limits   f   rf rf(%)  cf  cf(%)
##      [0,0.101) 105 0.35 35.12 105  35.12
##  [0.101,0.202)   0 0.00  0.00 105  35.12
##  [0.202,0.303)   0 0.00  0.00 105  35.12
##  [0.303,0.404)   0 0.00  0.00 105  35.12
##  [0.404,0.505)   0 0.00  0.00 105  35.12
##  [0.505,0.606)   0 0.00  0.00 105  35.12
##  [0.606,0.707)   0 0.00  0.00 105  35.12
##  [0.707,0.808)   0 0.00  0.00 105  35.12
##  [0.808,0.909)   0 0.00  0.00 105  35.12
##   [0.909,1.01) 194 0.65 64.88 299 100.00