>df=data.frame(num=c(81.16469 ,11.59219 ,29.7309 ,86.03547 ,16.42667 ,33.52099 ,26.07814 ,30.91522 ,39.49079 ,31.634 ,37.8732 ,20.50268 ,16.9127 ,20.1115 ,23.74309 ,22.30444 ,24.21399 ,27.30867 ,39.07071 ,14.81049 ,21.42116 ,23.30437 ,17.94871 ,17.50281 ,58.82008 ,20.18478 ,10.65572 ,37.97092 ,25.16336 ,35.69668))
quantile(df$num)
      0%      25%      50%      75%     100%
10.65572 20.12982 24.68867 35.15276 86.03547
> boxplot(df$num)
> IQR(df$num)*1.5+quantile(df$num)[4]
     75%
57.68716
> ggplot(df,aes("x",num))+geom_boxplot()
> boxplot(df$num)

> boxplot.stats(df$num)$stats
[1] 10.65572 20.11150 24.68867 35.69668 58.82008