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	读取以逗号分割的表格

转载于:https://www.cnblogs.com/cloudtj/articles/5609982.html