R/factorlize.R

In KiayangQ/newpackages: gan ni niang

#' @Title
#'
#' @param data
#' @param vars
#'
#' @return
#' @export
#'
#' @examples
#'
factorlize<-function(data,vars){
  library(tidyverse)
  df<-sapply(data[,vars],as.factor)%>%as.data.frame()
  var1<-setdiff(names(data),names(df))
  data1<-select(data,var1)
  data<-cbind(data1,df)
  return(data)
}