Estadística_primera_sesión

##Tabla

# Leer archivo de excel/texto.
library(readxl)
TAD <- read_excel("TAD.xlsx")

Resúmen

Este es un resúmen de la tabla usada:

summary(TAD)

##       Edad        Colesterol    Indice de masa corporal
##  Min.   :42.0   Min.   :175.0   Min.   :19.10          
##  1st Qu.:48.0   1st Qu.:214.5   1st Qu.:22.70          
##  Median :56.0   Median :231.0   Median :25.61          
##  Mean   :55.4   Mean   :239.2   Mean   :26.16          
##  3rd Qu.:63.0   3rd Qu.:268.0   3rd Qu.:30.80          
##  Max.   :68.0   Max.   :315.0   Max.   :34.44          
##  Tensión arterial diastólica    Género                ES       
##  Min.   : 65.00              Length:203         Min.   :1.000  
##  1st Qu.: 75.00              Class :character   1st Qu.:3.000  
##  Median : 80.00              Mode  :character   Median :4.000  
##  Mean   : 83.03                                 Mean   :3.744  
##  3rd Qu.: 92.50                                 3rd Qu.:5.000  
##  Max.   :105.00                                 Max.   :6.000

Gráfico de barras

Gráfico de barras de la variable Género (GEN):

table(TAD$Género)

## 
##   f   m 
## 115  88

barplot(table(TAD$Género),col="purple",main="Género",angle=270,ylab="Conteo")

head(TAD)

## # A tibble: 6 × 6
##    Edad Colesterol `Indice de masa corporal` Tensión arterial dia…¹ Género    ES
##   <dbl>      <dbl>                     <dbl>                  <dbl> <chr>  <dbl>
## 1    42        292                      31.6                     97 f          1
## 2    64        235                      30.8                     90 f          3
## 3    47        200                      25.6                     80 f          4
## 4    56        200                      26.2                     75 m          5
## 5    54        300                      32.0                    100 m          6
## 6    48        215                      23.2                     67 m          5
## # ℹ abbreviated name: ¹​`Tensión arterial diastólica`