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
)