Clase_

librerias

library(dplyr)

## 
## Adjuntando el paquete: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(readxl)
# DATA <- read_excel("ejemp.xlsx")
# DATA

Retomando datos de wed, estadistica

url <- ('https://raw.githubusercontent.com/fhernanb/datos/master/babies.txt')

Data_de_la_wed2 <- read.table(url, header = TRUE, sep = '\t')

str(Data_de_la_wed2)

## 'data.frame':    1236 obs. of  7 variables:
##  $ bwt      : int  120 113 128 123 108 136 138 132 120 143 ...
##  $ gestation: int  284 282 279 NA 282 286 244 245 289 299 ...
##  $ parity   : chr  "First born" "First born" "First born" "First born" ...
##  $ age      : int  27 33 28 36 23 25 33 23 25 30 ...
##  $ height   : int  62 64 64 69 67 62 62 65 62 66 ...
##  $ weight   : int  100 135 115 190 125 93 178 140 125 136 ...
##  $ smoke    : chr  "Not" "Not" "Yes" "Not" ...

Data_de_la_wed2$gestation[is.na(Data_de_la_wed2$gestation)] <- mean(Data_de_la_wed2$gestation, na.rm = TRUE) #limpiar datos y rellenar valores perdidos 

mean(Data_de_la_wed2$gestation)

## [1] 279.3385

median(Data_de_la_wed2$gestation)

## [1] 280

summary(Data_de_la_wed2$gestation)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   148.0   272.0   280.0   279.3   288.0   353.0

sd(Data_de_la_wed2$gestation)

## [1] 15.94311

var(Data_de_la_wed2$gestation)

## [1] 254.1829

head(Data_de_la_wed2$age, n = 68) #las n primeras filas

##  [1] 27 33 28 36 23 25 33 23 25 30 27 32 23 36 30 38 25 33 33 43 22 27 25 30 23
## [26] 27 26 20 32 28 26 34 30 23 24 22 24 23 27 31 30 23 26 27 37 27 32 25 26 26
## [51] 26 31 28 31 30 22 26 33 28 33 24 22 23 23 28 36 37 26

Data_de_la_wed2$age[68] # el dato de la data frame, columna [n]

## [1] 26

 hist(Data_de_la_wed2$gestation,
     main = "Dias de gestacion",
     xlab = "numero de dias",
     col = "skyblue",
     border = "black")

 glimpse(Data_de_la_wed2)

## Rows: 1,236
## Columns: 7
## $ bwt       <int> 120, 113, 128, 123, 108, 136, 138, 132, 120, 143, 140, 144, …
## $ gestation <dbl> 284.0000, 282.0000, 279.0000, 279.3385, 282.0000, 286.0000, …
## $ parity    <chr> "First born", "First born", "First born", "First born", "Fir…
## $ age       <int> 27, 33, 28, 36, 23, 25, 33, 23, 25, 30, 27, 32, 23, 36, 30, …
## $ height    <int> 62, 64, 64, 69, 67, 62, 62, 65, 62, 66, 68, 64, 63, 61, 63, …
## $ weight    <int> 100, 135, 115, 190, 125, 93, 178, 140, 125, 136, 120, 124, 1…
## $ smoke     <chr> "Not", "Not", "Yes", "Not", "Yes", "Not", "Not", "Not", "Not…

# Crear datos de ejemplo
categorias <- c("A", "B", "C", "D")
frecuencia1 <- c(5, 3, 7, 2)
frecuencia2 <- c(4, 6, 1, 8)

# Configurar la cuadrícula 1 fila, 2 columnas
par(mfrow = c(1, 2))  # 1 fila, 2 columnas de gráficos

# Primer gráfico de barras
barplot(frecuencia1,
        names.arg = categorias,
        col = "skyblue",
        main = "Gráfico 1: Grupo A",
        ylab = "Frecuencia")
# Segundo gráfico de barras
barplot(frecuencia2,
        names.arg = categorias,
        col = "salmon",
        main = "Gráfico 2: Grupo B",
        ylab = "Frecuencia")

# Restaurar parámetro gráfico (opcional, si quieres seguir con un solo gráfico después)
par(mfrow = c(1, 1))