Evaluacion

library(tidyverse)

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ ggplot2   4.0.0     ✔ tibble    3.3.0
## ✔ lubridate 1.9.4     ✔ tidyr     1.3.1
## ✔ purrr     1.1.0     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(summarytools)

## 
## Adjuntando el paquete: 'summarytools'
## 
## The following object is masked from 'package:tibble':
## 
##     view

Fruto<-c(1,2,3,4,5,6,7,8,8,10)
Grs<-c(386,521,363,416,507,438,380,497,475,131)

Tabla<- data.frame(Fruto,Grs)
Tabla

##    Fruto Grs
## 1      1 386
## 2      2 521
## 3      3 363
## 4      4 416
## 5      5 507
## 6      6 438
## 7      7 380
## 8      8 497
## 9      8 475
## 10    10 131

st_options(lang = "es")

descr(Grs)

## Estadísticas descriptivas  
## Grs  
## N: 10  
## 
##                         Grs
## ------------------ --------
##              Media   411.40
##           Dev.std.   113.46
##                Min   131.00
##                 Q1   380.00
##            Mediana   427.00
##                 Q3   497.00
##                Max   521.00
##                DAP    83.03
##                 RI   110.00
##                 CV     0.28
##          Asimetría    -1.31
##       ES-Asimetría     0.69
##           Curtosis     0.92
##         Num.Válido    10.00
##                  N    10.00
##         Pct.Válido   100.00

ggplot(Tabla, aes(y = Grs)) +
  geom_boxplot(fill = "red", color = "black") +
  labs(
    title = "PESOS DE POMELOS",
    y = "Grs"
  ) +
  theme_minimal()