Foro de debate

Poner etiquetas a outliers en boxplot

Poner etiquetas a outliers en boxplot

by Esther Navarro -
Number of replies: 0

Hola, necesitaria ayuda para ponerle etiquetas a mis boxplot, ya que no lo consigi y no se como hacerlo. Aqui esta mi codigo

install.packages("dplyr")
install.packages("devtools")
if(!require(devtools)) install.packages("devtools")
devtools::install_github("kassambara/ggpubr")
library("dplyr")
library("ggpubr")
library("ggplot2")
library("magrittr")
getmode<-function(v) {
  uniqv<-unique(v)
  uniqv[which.max(tabulate(match(v,uniqv)))]
}
my_data <-read_excel("Codeml_dNdS_original.xlsx", sheet = 1)

mean_dNdS<-mean(dNdS)
median_dNdS<-median(dNdS)
mode_dNdS<-getmode(dNdS)

mean_dNdS_Symbio<-mean(dNdS_symbiotics)
median_dNdS_Symbio<-median(dNdS_symbiotics)
mode_dNdS_Symbio<-getmode(dNdS_symbiotics)

mean_dNdS_NSymbio<-mean(dNdS_Nsymbiotics)
median_dNdS_NSymbio<-median(dNdS_Nsymbiotics)
mode_dNdS_NSymbio<-getmode(dNdS_Nsymbiotics)

shapiro.test(dNdS)
shapiro.test(dNdS_Nsymbiotics)
shapiro.test(dNdS_symbiotics)

boxplot(dNdS, dNdS_symbiotics, dNdS_Nsymbiotics,
        main= "Boxplot outliers",
        names = c("dNdS","dNdS_Sym","dNdS_NSym"),
        las= 1,
        col = c("grey","light blue", "pink"),
        border = "black",
        horizontal = FALSE,
        notch = FALSE
        )