R/row_number_unique.r

In vbfelix/relper: Miscellaneous Functions for Data Preparation, Cleaning, and Visualization

#' Create a rank given unique values from a variable
#'
#' @description Get the row number for unique values.
#'
#' @eval arg_vector("x","")
#'
#' @return A numeric vector with rank, given the unique values from argument 'x'.
#'
#' @export
#'
#' @examples
#'
#' row_number_unique(mtcars$gear)
#'

row_number_unique <- function(x){
  as.integer(factor(x,levels = unique(x)))
}