请问怎么用R批量读入文本文件后求最值，然后再批量输出

nuomin 发表于 2015-2-24 10:59

谢谢亲哈，但我想求的不是整个第二列的最大值，而是每年（第一列）对应的最大值，如上面两个图，左图是原数据，右图是最终要得的数据，请问这可以用R实现么？

hpxj 发表于 2015-2-24 16:18
谢谢亲哈，但我想求的不是整个第二列的最大值，而是每年（第一列）对应的最大值，如上面两个图，左图是原 ...

1. dir_in <- "E:/R_Work/Projects/myworkprogram/md1"
   
2. file_list <- list.files(path=dir_in,full.names=T)
   
3. dir_out <- "E:/R_Work/Projects/myworkprogram/md1.2"
   
4. if (!(file.exists(dir_out))) dir.create(dir_out)
   
5. 
   
6. yearMax_func <- function(xx){
   
7.     table_xx1 <- scan(file=xx)
   
8.     len <- length(table_xx1)
   
9.     x1 <- factor(table_xx1[seq(1,len,2)])
   
10.     x2 <- table_xx1[seq(2,len,2)]
    
11.     writeArray <- tapply(X=x2,INDEX=x1,FUN=function(x) max(x))
    
12. 
    
13.     filename <- sub("(.*\\/)([^.]+)(\\.[[:alnum:]]+$)", "\\2\\3",xx)
    
14.     outfile <- paste(dir_out,filename,sep="/");cat(outfile)
    
15.     write.table(x=writeArray,file=outfile,quote=FALSE,col.names=F)
    
16. }
    
17. invisible(lapply(file_list,FUN=yearMax_func))

复制代码

md1.2.rar (132.21 KB)

2015-2-24 19:11:41 上传

处理完文件

nuomin 发表于 2015-2-24 19:12

太谢谢亲啦，正是我想要的结果，太腻害了

nuomin 发表于 2015-2-24 19:12

大神，话说我能不能再问你个算法，表拍我~~~~(>_<)~~~~

nuomin 发表于 2015-2-24 19:12

大神，再请问下 如果我想把各个txt里每年对应的超过10 的值挑出来，按照第一列（年份）、第二列（数值）的格式批量存放，该怎么改程序呢？谢谢哈

nuomin 发表于 2015-2-16 21:52
大概思路就是这样的，根据你的text文件格式进行调整就可以了

大牛！