• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

R语言︱文件读入、读出一些方法罗列(批量xlsx文件、数据库、文本txt、文件夹) ...

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

笔者寄语:小规模的读取数据的方法较为简单并且多样,但是,批量读取目前看到有以下几种方法:xlsx包、RODBC包、批量转化成csv后读入。

R语言中还有一些其他较为普遍的读入,比如代码包,R文件,工作空间等。

source  #读取R代码
dget    #读取R文件
load    #读取工作空间

 

————————————————————————————————

 

读取其他软件的格式foreign
install.packages("foreign")
#读取SPSS stata sas
spss<-read.spss("hsb2.sav",to.data.frame=T)
stata<-read.dta("hsb2.dta")

————————————————————————————————

 

一、小规模数据——简单读入方式

read.table、write.table 、read.csv 、write.csv、readLine(字符型格式常用)。

常见格式:

 

[plain] view plain copy
 
 print?
  1. read.table(file, header = FALSE, sep = "", quote = "\"'",  
  2. dec = ".", skip = 0,  
  3. strip.white = FALSE, blank.lines.skip = TRUE,  
  4. comment.char = "#")  
其中:
file表示要读取的文件,其中有一种神级读入法(file.choose())
[plain] view plain copy
 
 print?
  1. read.table(file.choose())  
header来确定数据文件中第一行是不是标题;
sep指定分隔符,默认是空格;
quote是引号,默认就是双引号;
dec是小数点的表示,默认就是一个点;
skip是确定是否跳过某些行;
strip.white确定是否消除空白字符;
blank.lines.skip确定是否跳过空白行;
comment.char指定用于表示注释的引导符号。
 

 

在使用read.table、read.csv读取字符数据时,会发生很多问题:

1、问题一:Warning message:EOF within quoted string;     需要设置quote,read.csv("/..csv",quote = "");

2、问题二:出现所有的数据被加入了双引号,比如“你好”,“睡觉”;                               

     解决方案:先as.character(x[1:5]),可以发现比如”\”你好\”“,这样的格式,就可以用sep = "\""来解决。

 

其中非结构化数据,在读入的时候会出现很多分隔符的问题

可以见博客:【R】数据导入读取read.table函数详解,如何读取不规则的数据(fill=T)

 

——————————————————————————————————————————————————————————————————

 

二、数据库读入——RODBC包

RODBC包中能够基本应付数据库读入。一般数据数据库读入过程中主要有:

连接数据库(odbcConnect)、读入某张表(sqlFetch)、读某表某指标(sqlQuery)、关闭连接(close)

还有一些功能:

把R数据读入数据库(sqlSave)、删除数据库某表(sqlDrop)

 

[plain] view plain copy
 
 print?
  1. #安装RODBC包  
  2. install.packages("RODBC")   
  3. library(RODBC)  
  4. mycon<-odbcConnect("mydsn",u)  
  5. #通过一个数据源名称(mydsn)和用户名(user)以及密码(rply,如果没有设置,可以直接忽略)打开了一个ODBC数据库连接  
  6.   
  7. data(USArrests)  
  8. #将R自带的“USArrests”表写进数据库里  
  9. sqlSave(mycon,USArrests,rownames="state",addPK=TRUE)  
  10. #将数据流保存,这时打开SQL Server就可以看到新建的USArrests表了  
  11. rm(USArrests)  
  12. #清除USArrests变量  
  13.   
  14. sqlFetch(mycon, "USArrests" ,rownames="state")  
  15. #输出USArrests表中的内容  
  16. sqlQuery(mycon,"select * from USArrests")  
  17. #对USArrests表执行了SQL语句select,并将结果输出  
  18.   
  19. sqlDrop(channel,"USArrests")  
  20. #删除USArrests表  
  21. close(mycon)  
  22. #关闭连接  


——————————————————————————————————————————————————————————————————

 

三、批量读取——xlsx包

 

首先尝试用R包解决。即xlsx包。

xlsx包在加载时容易遇到问题。基本都是由于Java环境未配置好,或者环境变量引用失败。因此要首先配置java环境,加载rJava包。

 

百度了一下,网上已有很多解决方案。我主要是参考这个帖子,操作步骤为:

 

1、 安装最新版本的java。如果你用的R是64位的,请下载64位java。
下载地址: http://www.java.com/en/download/manual.jsp 


要安装在 C:\Program Files\Java 下面,win8的尤其小心不要安装为C:\Program Files(x86)。可能是R在读取路径时,对x86这样的文件夹不大好识别吧,我第一次装在x86里,读取是失败的。

 

2、在R中加载环境,即一行代码,路径要依据你的java版本做出更改。

Sys.setenv(JAVA_HOME='C:\\Program Files\\Java\\jre1.8.0_45\\') 

之后再加载rjava包或者xlsx包就成功了。

 

xlsx包加载成功后,用read.xlsx就可以直接读取xlsx文件,还可以指定读取的行和段,以及第几个表,以及可以保存为xlsx文件,这个包还是很强大的。

 

但是这个方法存在两个问题:

 

1、不是所有的公司电脑都能自由的配置java环境。很多人的权限是受限的。而且有些公司内部应用是在java环境下配置的。就算你找了IT去安装java,但是一些内部应用可能会因为版本号兼容问题而出错,得小失大。

2、用xlsx包读取数据,在数据量比较小的时候速度还是比较快的。但是如果xlsx本身比较大,包含数据多,read.xlsx效率会很低,不如data.table包的fread读取快捷以及省内存。但fread函数不支持xlsx的读入。。。

(参见这篇帖子,里面对千万行数据,fread也只用了10秒左右,比常规的read.table或者read.csv至少省时一倍)

 

综上,由于java环境的复杂性与兼容度,还有xlsx包本身读取速度的限制,用xlsx包读取xlsx包的方法,更适合于: 


1、个人电脑,自己想怎么玩都无所谓,或者高大上的Linux, mac环境 


2、数据量不会特别大,而且excel文件很干净,需要细节的操作

 

实际操作案例:

批量写入

 

[plain] view plain copy
 
 print?
  1. #1、读取xlsx中所有的sheet表格  
  2. #如果像vector一样定义List??——list()函数来主动定义,用data.list[[i]]来赋值  
  3. data.list<-list()  
  4. for (i in 1:2){  
  5.   data.list[[i]]=read.xlsx("C1.xlsx",i)  
  6. }  

批量写出

[plain] view plain copy
 
 print?
  1. #3、利用List批量读出操作  
  2. #难点:如果构造输出表格的名称——paste来构造名称  
  3. flie=list()  
  4. xlsxflie=paste(1:2,".xlsx",sep="")  
  5.   
  6. for(i in 1:2){  
  7. flie[[i]]=paste("C:/Users/long/Desktop/",xlsxflie[i],sep="")  
  8. write.xlsx(data.list2[[i]],file)  
  9. }  

 

其中出现了一个小错误:Error in file[[i]] : object of type 'closure' is not subsettable

这一错误是因为我写错函数名字了... file->flie(详情见:http://bbs.pinggu.org/thread-3142627-1-1.html)

 

主要运用了list函数,详情可见:R语言︱list用法、批量读取、写出数据时的用法

 

 

——————————————————————————————————————————————————————————————————

四、批量读入XLSX文件——先转换为CSV后读入

 

CSV读入的速度较快,笔者这边整理的是一种EXCEL VBA把xlsx先转换为csv,然后利用read.csv导入的办法。

WPS中调用VBA需要额外下砸一个插件,

之后应用list.files以List方式读入。

 

[plain] view plain copy
 
 print?
  1. #lapply读取法  
  2. filenames <- list.files("C:/Users/a.csv", pattern = ".csv",full.names = TRUE)  #变成list格式  
  3. #没有full.names = TRUE,都会出现cannot open file: No such file or directory  
  4.   
  5. name=function(x) {  
  6.   read.csv(x,header=T)  
  7.   }  
  8. datalist <- lapply(filenames,name)  #filenames执行name函数  


——————————————————————————————————————————————————————————————————

 

 

五、批量读入文件夹中的指定文件(如*.xlsx)

代码思路:先遍历文件夹(list.files),然后通过循环依次读写(read.xlsx)。

 

为什么lsit.files不能直接把完整数据读入文件?——需要read.xlsx这一步骤

 

 

[plain] view plain copy
 
 print?
  1. ##批量读入文件夹中的xlsx文件  
  2. #如何批量读取一个文件夹中的各种txt文件  
  3. micepath <- "C:/Users/long/Desktop"  
  4. micefiles <- list.files(micepath, pattern = "*.xlsx$", full.names = TRUE)  
  5.   
  6. ##文件信息放入list中  
  7. files=list()  
  8. for (i in 1:2){  
  9.   files[i]=read.xlsx(micefiles[[i]],header = F,1)  
  10. }  



 

——————————————————————————————————————————————————————————————————

 

 

五、批量读入文件夹中的文本文件(*.txt),并生成名称、文档数据框

——用在情感分析中情感词的打分数

 

 

代码思路:先遍历文件夹中所有txt(list.files)、构造文本读入函数(read.txt)、找文本名字(list.files)、然后生成数据框(as.data.frame)

 

[plain] view plain copy
 
 print?
  1. ##批量读入txt文件,并将文本放入同一个数据框  
  2. reviewpath <- "F:/R语言/R语言与文本挖掘/情感分析/数据/rawdata/review_sentiment/train2"  
  3. completepath <- list.files(reviewpath, pattern = "*.txt$", full.names = TRUE)  
  4.   
  5. ######批量读入文本  
  6. read.txt <- function(x) {  
  7.   des <- readLines(x)                   #每行读取  
  8.   return(paste(des, collapse = ""))     #没有return则返回最后一个函数对象  
  9. }  
  10. review <- lapply(completepath, read.txt)  
  11. #如果程序警告,这里可能是部分文件最后一行没有换行导致,不用担心。  
  12.   
  13. ######list转数据框  
  14. docname <- list.files(reviewpath, pattern = "*.txt$")  
  15. reviewdf <- as.data.frame(cbind(docname, unlist(review)),   
  16.                           stringsAsFactors = F)   

 

其中,list.files()中,full.names=T代表读入文件+信息,full.names=F代表读入文件名字。

本代码来源于书《数据挖掘之道》情感分析章节。

 

 

——————————————————————————————————————————————————————————————————

 

六、excel的xlsx格式读取——openxlsx包

 

跟xlsx包可以一拼,为什么没有特别好的excel包,因为微软的软件不开源,而且内嵌设置时长变化,所以么有一款统一的好函数包,来进行读取。

 

[html] view plain copy
 
 print?
  1. library(openxlsx)  
  2. data=read.xlsx("hsb2.xlsx",sheet=1)  



 

——————————————————————————————————————————————————————————————————

 

七、write.table读出txt文本

 

[html] view plain copy
 
 print?
  1. write.table(data,"names",  
  2.             quote = F,row.names = FALSE, col.names = FALSE)  

输出的结果可能是像excel列表一样:

 

 

[html] view plain copy
 
 print?
  1. id   names  
  2. 1      “您好”  
  3. 2      “格式”  
  4. 3      “读取”  

所以需要去掉行、列名,同时去掉双引号。

 

如果我想得到,这样格式的呢:

 

[html] view plain copy
 
 print?
  1. 您好 格式 读取  


需要调整ecol,默认的ecol="\n",就是回车,所以会造成换行,所以需要换成“\r”,同时中间需要有空格分开,所以最终ecol="\r\ "用【\+空格】来表达空格

 

 

——————————————————————————————————————————————————————————————————————

八 文件夹读入

文件夹读入的方式也挺多的。

第一步:获取文件夹内全文件内容

两种函数:dir()以及list.files()

 

[html] view plain copy
 
 print?
  1. dir('C:\\Users\\long\\Desktop\\',pattern = "txt$")  
  2. ist.files('C:\\Users\\long\\Desktop\\',pattern = "txt$")  

同时,可以通过pattren来选择规定格式的文件内容。

 

第二步:生成系统路径

 

[html] view plain copy
 
 print?
  1. > paste("C:\\Users\\long\\Desktop\\","txt")  
  2. [1] "C:\\Users\\long\\Desktop\\ txt"  
  3. > file.path("C:\\Users\\long\\Desktop","txt")  
  4. [1] "C:\\Users\\long\\Desktop/txt"  


对比两者,一般用paste来生成系统路径的时候,在最终结果,结合的地方会多一个空格,当然也可以用去空格的方式排除,但是不够好。

 

所以可以用file.path的方式直接生成,比较方便,而且绝对正确。

 

————————————————————————————————

应用一:R语言中大样本读出并生成txt文件

 

笔者进过分词处理之后的文本词量有3亿+个词,一下子导出成txt马上电脑就死机,报错内存不足的问题。

于是在找各种办法解决如何生成一整个TXT文件。于是就有以下比较简单的办法,可以直接实现。

步骤一:先把分词内容拆分成几个部分,输出成多个txt文件;

步骤二:用windows自带的CMD里面的指令,来生成特定的TXT文件。

详情可见(参考与百度知道):

 

1、使用组合键“Win + R”打开运行窗口,输入“cmd”命令,进入命令行窗口。

2、在命令行窗口,进入需要合并的Txt文件的目录,如下图所示已进行“F:\stock”目录。

3、确认目录正确后,输入“type *.txt >>f:\111.txt”,该命令将把当前目录下的所有txt文件的内容输出到f:\111.txt。

4、到此,打开合并后的f:\111.txt,即可看到多个Txt文件都已按顺序合并到F盘的111.txt文件中。

 

————————————————————————————————————————————

     应用二:R语言中,用write.csv时候,用office打开,多出了很多行?

 

 

      如果文本字符长度很大,那么就会出现内容串到下面一行的情况,譬如10行的内容,可能变成了15行。好像office默认单个单元格的字符一般不超过2500字符,超过就会给到下一行。

      所以笔者在导入5W条数据时候,多出了很多行,于是只能手动删除。

      如果用txt格式导出,用Notepad++打开是好的,但是用excel打开又多出来不少行,所以用excel打开是用代价的。

      但是由于excel是最好的导入SQL的格式,于是不得不手工删除,同时牺牲一部分的内容。

 

————————————————————————————————————————————

 

应用三:R语言中,用tcltk读入时候,报错?

 

[html] view plain copy
 
 print?
  1. Error: OutOfMemoryError (Java): Java heap space  

因为从错误信息来看,是因为你使用的报表占用太多内存(不够或者没有释放),而导致堆内存溢出。
解决方案从两个方面着手,1、加大内存如-Xmx1024m;2、检查优化代码及时释放内存


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
R语言聚类分析(系统聚类、K-均值聚类)发布时间:2022-07-18
下一篇:
《R语言》学习笔记(第6篇)发布时间:2022-07-18
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap