a3_Miranda_Rubén

Enfermedades del corazón

Se presentan resultados que indican una mayoría de hombres con respecto a las mujeres, además de una mayoría de personas con más de 50 años, lo que parece no tener una correlación importante con el indicador “Trestbps”.

library(readxl)
library(ggplot2)

## Warning: package 'ggplot2' was built under R version 4.5.2

a4_heart_disease_uci <- read_excel("C:/Users/randr/Dropbox/RAMR/FES ZARAGOZA/CURSO R/a4_heart_disease_uci.xlsx")
View(a4_heart_disease_uci)
data <- data.frame(a4_heart_disease_uci)
summary(data)

##        id             age            sex              dataset         
##  Min.   :  1.0   Min.   :28.00   Length:920         Length:920        
##  1st Qu.:230.8   1st Qu.:47.00   Class :character   Class :character  
##  Median :460.5   Median :54.00   Mode  :character   Mode  :character  
##  Mean   :460.5   Mean   :53.51                                        
##  3rd Qu.:690.2   3rd Qu.:60.00                                        
##  Max.   :920.0   Max.   :77.00                                        
##                                                                       
##       cp               trestbps          chol          fbs         
##  Length:920         Min.   :  0.0   Min.   :  0.0   Mode :logical  
##  Class :character   1st Qu.:120.0   1st Qu.:175.0   FALSE:692      
##  Mode  :character   Median :130.0   Median :223.0   TRUE :138      
##                     Mean   :132.1   Mean   :199.1   NA's :90       
##                     3rd Qu.:140.0   3rd Qu.:268.0                  
##                     Max.   :200.0   Max.   :603.0                  
##                     NA's   :59      NA's   :30                     
##    restecg              thalch        exang            oldpeak       
##  Length:920         Min.   : 60.0   Mode :logical   Min.   :-2.6000  
##  Class :character   1st Qu.:120.0   FALSE:528       1st Qu.: 0.0000  
##  Mode  :character   Median :140.0   TRUE :337       Median : 0.5000  
##                     Mean   :137.5   NA's :55        Mean   : 0.8788  
##                     3rd Qu.:157.0                   3rd Qu.: 1.5000  
##                     Max.   :202.0                   Max.   : 6.2000  
##                     NA's   :55                      NA's   :62       
##     slope                 ca             thal                num        
##  Length:920         Min.   :0.0000   Length:920         Min.   :0.0000  
##  Class :character   1st Qu.:0.0000   Class :character   1st Qu.:0.0000  
##  Mode  :character   Median :0.0000   Mode  :character   Median :1.0000  
##                     Mean   :0.6764                      Mean   :0.9957  
##                     3rd Qu.:1.0000                      3rd Qu.:2.0000  
##                     Max.   :3.0000                      Max.   :4.0000  
##                     NA's   :611

install.packages("ggplot2")

## Warning: package 'ggplot2' is in use and will not be installed

ggplot(data, aes(x=sex)) +
  geom_bar(fill="blue", color = "black", alpha=0.7) +
  labs(title = "Gráfica de Sexo", x = "Sexo", y = "Frecuencia")

ggplot(data, aes(x=age)) +
  geom_histogram(binwidth = 5, fill="blue" ,
                 color = "black", alpha=0.7) +
  labs(title = "Histograma de Edad", x = "Edad", y = "Frecuencia")

ggplot(data, aes(x=age, y=trestbps)) +
  geom_point(fill="blue", color = "black", alpha=0.7) +
  labs(title = "Relación Edad x Trestbps", x = "Edad", y = "Trestbps")

## Warning: Removed 59 rows containing missing values or values outside the scale range
## (`geom_point()`).

```