¿Cómo dibujar el diagrama de caja con un nivel significativo?

Hace algún tiempo hice una pregunta sobre cómo dibujar boxplotEnlace1.

Tengo algunos datos con 3 grupos diferentes (o etiquetas)Por favor, descargue aquí. Puedo usar los siguientes códigos R para obtener el diagrama de caja

library(reshape2)
library(ggplot2)

morphData <- read.table(".\\TestData3.csv", sep=",", header=TRUE);
morphData.reshaped <- melt(morphData, id.var = "Label")

ggplot(data = morphData.reshaped, aes(x=variable, y=value)) + 
  + geom_boxplot(aes(fill=Label))

Aquí me pregunto cómo poner el nivel significativo por encima de la gráfica de caja. Para aclararme, puse una captura de pantalla cortada de un papel aquí:

Respuestas a la pregunta(2)

Su respuesta a la pregunta