Precio aguacate analisis

Cargar funciones

# Cargar un archivo que contiene funciones

source("https://raw.githubusercontent.com/rpizarrog/Ciencia-de-los-Datos-Descriptivo-Predictivo/refs/heads/main/scripts/probar%20funciones.R")

Cargar librerías

library(readr)
library(dplyr)

Cargar datos

datos = read.csv("https://raw.githubusercontent.com/rpizarrog/Ciencia-de-los-Datos-Descriptivo-Predictivo/refs/heads/main/datos/datos_aguacate_limpio.csv")

f_histograma(datos$precio, "Precio Aguacate")

# Promedio de Precio por Región

promedio_region <- datos %>%
  group_by(region) %>%
  summarize(promedio_precio = mean(precio, na.rm = TRUE))

promedio_region

## # A tibble: 54 × 2
##    region              promedio_precio
##    <chr>                         <dbl>
##  1 Albany                         1.56
##  2 Atlanta                        1.34
##  3 BaltimoreWashington            1.53
##  4 Boise                          1.35
##  5 Boston                         1.53
##  6 BuffaloRochester               1.52
##  7 California                     1.40
##  8 Charlotte                      1.61
##  9 Chicago                        1.56
## 10 CincinnatiDayton               1.21
## # ℹ 44 more rows