r R唯一的值集

Posted 2021-05-23

r_set <- function(x) {
  out <- vector(mode = mode(x))
  for (i in x) {
    if(!i %in% out) {
      out <- c(out, i)
    }
  }
  out
}

r_vector <- c(1, 2, 3, 1, 2, 3)

r_set(r_vector)
#> [1] 1 2 3