Codify

سلام. کدی که می خوام براتون به اشتراک بذارم برای زبان برنامه نویسی R هستش که میتونید در محیط RStudio ازش استفاده کنید. کافیه کد رو ک‍پی و در RStudio پیست کنید. کاربرد این کد برای زمانی هست که شما تعداد زیادی داده گسسته و غیر عددی دارید که میخواهید اون هارو کد گذاری کنید. برای مثال کد گذاری متغیر های مثل اسامی شهر ها یا اسامی داروها. خوبی این کد وابسته نبودن به زبان استفاده شده هست. یعنی هر زبانی که داده هاتون نوشته شده باشی (فارسی/انگلیسی) این کد براتون به راحتی اون هارو کد گذاری میکنه.

 

# **codify is a function that takes a character vector and makes a vector of each unique elements of the given vector..
#.. then codify2 checks the elements of the original vector(z) and assigns the position number of that element in the..
#.. names_set (y) list and adds that number to a numeric vector as a code. this way we can asssign a code to each..
#.. element in the original vector

codify <- function (x){
  "%notin%" <- Negate("%in%")
  a1 <- rep(0, length(x))
  counter <- 1
  names_set <- list()
  for (ii in x) {
    while (ii %notin% names_set) {
      names_set[counter] <- ii
      counter <- counter + 1
    }
  }
  names_set <- names_set[!is.na(names_set)]
  return(names_set)
}

codify2 <- function (z, y){
  codes <- numeric()
  for (ii in z) {
    counter2 <- 1
    while (y[[counter2]] != ii && !is.na(ii)) {
        counter2 <- counter2 + 1
    }
    if (is.na(ii)){
      codes <- c(codes, NA)
    }
    if (!is.na(ii)){
      codes <- c(codes, counter2)
    }
  }
  return(codes)
}