seurat 单细胞数据分析中MinMax函数

 

001、函数原型

MinMax <- function(data, min, max) {                         ## 该函数限定了数据框中元素的上下限
  data2 <- data
  data2[data2 > max] <- max
  data2[data2 < min] <- min
  return(data2)
}

 

002、测试

MinMax <- function(data, min, max) {
  data2 <- data
  data2[data2 > max] <- max
  data2[data2 < min] <- min
  return(data2)
}


dat <- data.frame(a = c(3, 9, 6, 7),
                  b = c(8, 10, 3, 7),
                  c = c(1, 13, 5, 8))               ## 测试数据狂
dat
MinMax(dat, min = 4, max = 9)                       ## 将测试数据狂dat中的元素最小值限定为4， 最大值限定为9