add auther message

#' @param nsmall the minimum number of digits to the right of the decimal point,

#'  the default value is 2.

#' @rdname geom_annotate

#' @author Hou Yun

#' @export

geom_annotate <- function(mapping = NULL,

                          data = NULL,

\description{

A wrapper funtion to add some annotate elements on ggplot.

}

\author{

Hou Yun

}