r语言笔记 jn

get_range <- function(data_name , row_name){

library(stringr)

load(data_name)

data_str <- str_replace(a,".Rdata" ,"")

data <- eval(parse(text = data_str))

data_set <- as.numeric(data[[row_name]])

max_num <- max(data_set)

min_num <- min(data_set)

range_num <- data.frame(data = data_str , max = max_num , min = min_num)

return(range_num)

}

test1 <- get_range(a, 2)

print(test1)

注意此段代码函数内有对象a，此时需传入对象也为a才可以运行，即可以传入外部数据

#判断字符串中是否包含子串

##if 条件 取非 为！ 不是not

if(! sapply(".Rdata", grepl,a)){

print(1)

}

print(0)

> a <- c('a','b','c','d')
> b <- 'balabala'
> sapply(a, grepl,b)
    a     b     c     d 
TRUE  TRUE FALSE FALSE

脚本中调用脚本

最简单的方法就是每次引用时把写好的函数复制一下，到R console 中，然后写其他的。然后，编好的函数写成.r 文件，下次直接使用命令 source（function.r）就能导入使用了。

#step <- select(data10 , a = abs(min(data10$entropy))/100 ) select 不能指定列名 所以对列做操作时还是使用summarize

##step <- summarize(data10 , a = abs(min(data10$entropy))/100) 注意比较二者差别