R/plotbox.R

In osoramirez/resumeRdesc: resumeRdesc: The Most Complete Summary Statistic Ever

#'@title plotbox
#'
#'@description get a boxplot, showing the mean in plot
#'@author Oscar Ramirez Alan (\email{osoramirez@@gmail.com}).
#'@param x is a numeric value, could be a  a vector or data.frame
#'@export plotbox
#'@keywords plotbox
#'@return a plotbox
#'@import "graphics","stats"
#'
#'@aliases plotbox
#'@name plotbox
#'@examples
#'plotbox(rnorm(14))
NULL

plotbox <- function(x) {
  ylab <- deparse(substitute(x))  # get the expression passed as y
  boxplot(x,main=paste("Boxplot of", ylab, NULL), xlab=NULL,
          ylab=ylab, cex=.9, boxwex = .55,col = "#EBEBEB")
  Mean<-round(mean(x, na.rm = TRUE), 3)
  Median <- round(median(x, na.rm = TRUE), 3)
  Max <- round(max(x, na.rm = TRUE), 3)
  Min <- round(min(x, na.rm = TRUE), 3)
  Q1<-round(quantile(x, 0.25, na.rm = TRUE), 3)
  Q3<-round(quantile(x, 0.75, na.rm = TRUE), 3)
  points(mean(x), pch=20, cex = 1.8, col="black")
  text((Mean), "Mean", col="#918686", font=8, cex = .7, adj=-5)
  text((Median), "Median", col="#918686", font=8, cex = .7, adj=-3.7)
  text((Min), "Min", col="#918686", font=8, cex = .7, adj=-3.7)
  text((Max), "Max", col="#918686", font=8, cex = .7, adj=-3.7)
  text((Q1), "Q1", col="#918686", font=7, cex = .5, adj=-10)
  text((Q3), "Q3", col="#918686", font=7, cex = .5, adj=-10)
  summary(x)
}