R语言-数据整形之导入导出

R语言数据导入和导出

前言

  福尔·摩斯曾说过：“数据，数据，没有数据的推理是罪恶！”不过比起有意思的统计分析，数据的导入与导出显得十分的无趣，但是不得不说统计分析的数据导入与导出是个让人沮丧的任务，而且耗时巨大。今天分享的是R中数据的输出与一些特定格式的数据读入。

目录

 1. 载入特定的数据集

 2. 载入某个包中的数据集

 3. 文件目录操作

 4. 自定义路径和名称

 5. 剪切板方式数据导入

 6. 常用的读取指令read

 7. 通过setwd定义路径

 8. 读入R格式的文件

 9. 逐行读取数据

 10. 数据导出

 11. 输入输出函数小结

1. 载入特定的数据集

	# 查看数据集列表
	data()  
	
	# 载入CO2数据集（来自datasets）
	data(CO2)  

2. 载入某个包中的数据集

	# 载入package MASS
	library(MASS)   
	
	# 查看MASS中数据集
	data(package="MASS")   
	
	# 载入MASS中的SP500数据集，也可简化为data(SP500)
	data(SP500,package="MASS")  

3. 文件目录操作

	# 返回当前工作目录(一般为默认情况)
	getwd()            
	
	# 也可以写成setwd("d:\\rdata")
	setwd("d:/rdata")  
	
	getwd()

4. 自定义路径和名称

	# -------------------------
	oPath <- "C:/Users/abdata/Desktop/"
	oName <- "data.txt"  ### data.csv
	oPathFile <- paste(oPath,oName,sep="",collapse="")
	# -------------------------
	oPath <- "C:/Users/abdata/Desktop/"
	oName <- "csjwdfw"  ### data.csv
	oType <- "csv"
	oPathFile <- paste(oPath,oName,'.',oType,sep="",collapse="")
	# -------------------------

5. 剪切板方式数据导入

	# 先将数据复制到剪切板，然后将数据读入到R中
	# clipboard即剪切板
	data <- read.delim("clipboard") 
	# 或
	data <- read.table("clipboard", header=T)

6. 常用的读取指令read

	# 常用的读取指令read
	data <- read.table(oPathFile, header=T) 
	data
	data <- read.csv(oPathFile, header=T)
	data

7. 通过setwd定义路径

	# 通过setwd定义路径
	setwd("d:/rdata")
	data <- read.table("salary.txt",header=T)
	data
	data <- read.csv("salary.csv",header=T)
	data
	# 由于不存在header参数，skip=1说明读取时跳过表示名称的第一行
	data <- scan("salary.txt",skip=1,what=list(City="",Work=0,Price=0,Salary=0))  
	data

8. 读入R格式的文件

	# R的数据或更一般的对象（如向量、矩阵、数据框、列表甚至函数等）可以通过save()保存为R专有的文件格式，以Rdata为后缀。要读取这类文件，需要用到函数load()来加载！！！
	# load("d:/rdata/salary.Rdata")
	setwd("d:/rdata")
	load("salary.Rdata")
	head(data,5)

9. 逐行读取数据

	# 逐行读取数据
	con <- file(oPathFile,"r")  
	f1 = readLines(con, n=1, encoding='UTF-8')   # 读文件一行
	while(length(f1)!=0){
	  f1=readLines(con, n=1, encoding='UTF-8')   # 读一行
	}
	close(con)

10. 数据导出

  前面介绍数据的导入，这对数据分析固然十分重要，但分析的一些中间过程或结果会产生新的数据集，我们也需要保存起来。根据需要，R中的数据也可以保存为不同格式的文件。

• 使用函数cat()

    # 在屏幕上输出
    cat(c("AB", "C"), c("E", "F"), "n", sep="")  
    i <- 1:5
    # 以逗号为分隔符
    cat("i = ", i, "n",sep=",")  
  

• 向指定文件写入数据

    #--------------------
    cat(c("AB", "C"), c("E", "F"),file="d:/data/cat.txt",sep=".")  
    #--------------------
    i = 1:5
    # cat(i,file="d:/data/cat.txt",append=TRUE)
    cat(i,file=oPathFile,append=TRUE)
    #--------------------
    # 分隔符sep="\n"表示换行
    # a=file("d:/data/cat.txt")
    a = file(oPathFile)
    cat("1 2 3 4 ","2 3 5 7","11 13 15 17", file=a, sep="\n")  
    read.table(a)
    #--------------------
  

• 保存为文本文件（write.table）

    # write.csv(data,file="d:/data/salary1.csv",row.names=F,quote=F)
    write.csv(data,file=oPathFile,row.names=F,quote=F)
    write.table(data,file=oPathFile,row.names=F,quote=F)
  

• 保存R格式文件

    save(data,file="d:/data/salary1.Rdata")  
    load("d:/data/salary.Rdata")
  

• 保存为其他类型文件

    # 保存为sav文件格式
    library(foreign)
    write.foreign(data,datafile="d:/data/salary.sav",codefile="d:/data/code.txt",package="SPSS")  
  

11. 输入输出函数小结

方法名称	解释
library	加载包
data	加载制定数据集
load	加载save或者save.image保存的数据
read.table	读取表格
read.fwf	以fixed_width_formatted形式读取数据至表格
save	二进制保存指定对象
save.image	二进制保存当前线程内所有对象
write.table	将数据以表格形式写入文本
write.csv	将数据以CSV表格形式写入文本
cat	强制转化为字符后输出
sink	输出转向到指定文件
print	输出屏幕
format	格式化
read.delim	读取以tab分割个表格
read.csv	读取以逗号分割的表格