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

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

每一个TXT里的内容如图，第一列是年份，第二列是数值，请问怎么求每年对应的数值的最大值？每年对应的行数都不同。
这是同一个文件夹下的待处理TXT文件，每个TXT的行数都不同。请问大神，如何批量读入求每个TXT每年的最大值后再批量输出这么多个TXT呢？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：文本文件 txt 最大值 文件夹 文本文件

大概思路就是这样的，根据你的text文件格式进行调整就可以了

1. dir_dta <- "E:/R_Work/Projects/SML/labor2007data"
   
2. file_list <- list.files(path=dir_dta,full.names=T)
   
3. varSave_func <- function(x){
   
4.                                  table_x <- read.table(file=x,sep=" ",convert.factors=F)
   
5.                                  tablename <- sub("(.*\\/)([^.]+)(\\.[[:alnum:]]+$)", "\\2",x)
   
6.                                  writedata <- data.frame(list(max="max",data=max(table_x$V2)))
   
7.                                  write.table(writedata,file=x,append=TRUE)
   
8. }
   
9. invisible(lapply(file_list,FUN=varSave_func))

复制代码

论坛贴代码不好用了，贴好几次了

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

灰常感谢，弱弱的问句，我运行这个代码出错了，该肿么改呢？
错误提示：Error in read.table(file = x, sep = " ", convert.factors = F) :                   unused argument (convert.factors = F)

hpxj 发表于 2015-2-17 09:56
灰常感谢，弱弱的问句，我运行这个代码出错了，该肿么改呢？
错误提示：Error in read.table(file = x,  ...

把convert.factors = F删了吧，最初用来读dta文件的，这个参数控制读value而不是lable。

nuomin 发表于 2015-2-17 10:57
把convert.factors = F删了吧，最初用来读dta文件的，这个参数控制读value而不是lable。

1. > dir_dta<-"e:/WWB/result/md1"
   
2. > file_list<-list.files(path=dir_dta,full.names=T)
   
3. > varSave_func <- function(x){
   
4. +                         table_x <- read.table(file=x,sep=" ")
   
5. +                         talename <- sub("(.*\\/)([^.]+)(\\.[[:alnum:]]+$)","\\2",x)
   
6. +                         writedata <- data.frame(list(max="max",data=max(table_x$V2)))
   
7. +                         write.table(writedata,file=x,append=TRUE)
   
8. + }
   
9. > invisible(lapply(file_list,FUN=varSave_func))
   
10. Error in scan(file, what, nmax, sep, dec, quote, skip, nlines, na.strings,  :
    
11.   line 6 did not have 20 elements

复制代码

nuomin 发表于 2015-2-17 10:57
把convert.factors = F删了吧，最初用来读dta文件的，这个参数控制读value而不是lable。

好像出错了，错误提示在楼上，该咋改呢~~~~(>_<)~~~~

hpxj 发表于 2015-2-17 11:21
好像出错了，错误提示在楼上，该咋改呢~~~~(>_

贴两个txt文件做例子，我看看

这是我的txt文件压缩包@nuomin

hpxj 发表于 2015-2-23 21:09
这是我的txt文件压缩包@nuomin

1. dir_dta <- "E:/R_Work/Projects/myworkprogram/md1"
   
2. file_list <- list.files(path=dir_dta,full.names=T)
   
3. varSave_func <- function(xx){
   
4.                                  table_xx1 <- scan(file=xx)
   
5.                                  len <- length(table_xx1)
   
6.                                  table_xx2 <- data.frame(list(x1=table_xx1[seq(1,len,2)],
   
7.                                                               x2=table_xx1[seq(2,len,2)]))
   
8.                                  writetext <- paste("        max          ",data=max(table_xx2$x2),collapse="")
   
9.                                  write(x=writetext,file=xx,append=TRUE)
   
10. }
    
11. invisible(lapply(file_list,FUN=varSave_func))

复制代码

md1.1.rar (452.59 KB)

2015-2-24 10:58:30 上传

处理完成的文件