一幅图中具有值（分位数）的R多箱线图

Question

How to create multiple boxplot with value shown in R ?

Now I'm using this code

boxplot(Data_frame[  ,2] ~ Data_frame[  ,3], ) 

I tried to use this

boxplot(Data_frame[  ,2] ~   Data_frame[  ,3],     ) 
text(y=fivenum(Data_frame$x), labels =fivenum(Data_frame$x), x=1.25)

But only first boxplot have value. How to show value in all boxplot in one graph.

Thank you so much!

Answer 1

As far as I understand your question (it is not clear how the fivenum summary should be displayed) here is one solution. It presents the summary using the top axis.

x <- data.frame( 
    Time = c(1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3), 
    Value = c(5,10,15,20,30,50,70,80,100,5,7,9,11,15,17,19,17,19,100,200,300,400,500,700,1000,200))

boxplot(x$Value ~ x$Time) 
fivenums <- aggregate(x$Value, by=list(Time=x$Time), FUN=fivenum)
labels <- apply(fivenums[,-1], 1, function(x) paste(x[-1], collapse = ", "))
axis(3, at=fivenums[,1],labels=labels, las=1, col.axis="red")

Of course you can additionally play with the font size or rotation for this summary. Moreover you can break the line in one place, so the label will have smaller width.

Edit In order to get what have you posted in the comment below you can add

text(x = 3 + 0.5, y = fivenums[3,-1], labels=fivenums[3,-1])

and you will get

however it won't be readable for other boxplots.