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