#===============================================================================
# Name   : boxplot, fivenum e quantile
# Author : J. C. Faria
# Date   : 2026-05-05 21:14:58
# Aim    : Estudos e comparações
# Mail   : <<< joseclaudio.faria@gmail.com >>>
#===============================================================================

# Gerando um vetor com distribuição normal
v1 <- rnorm(1e3,
            m=10,
            s=2)

# Boxplot
boxplot(v1)

# Projetando no boxplot os 5 números da função 'fivenum'
f_num <- fivenum(v1)
for (i in 1:length(f_num)) {
  segments(x0=0.75,
           y0=f_num[i],
           x1=1.0,
           y1=f_num[i],
           lty=2,
           col=2)

  text(x=0.73,
       y=f_num[i],
       label=paste0('f = ',
                    round(f_num[i], 2)),
       adj=c(1, 0.5),
       cex=0.8,
       col=2)
}

# Projetando no boxplot os 5 números da função 'quantile'
q_num <- quantile(v1,
                  type=7) # 7 é o default
for (i in 1:length(q_num)) {
  segments(x0=1.0,
           y0=q_num[i],
           x1=1.25,
           y1=q_num[i],
           lty=2,
           col=4)

  text(x=1.27,
       y=q_num[i],
       label=paste0('q = ',
                    round(q_num[i], 2)),
       adj=c(0, 0.5),
       cex=0.8,
       col=4)
}