写入文件、读写Excel文件、读写R文件

写入文件

?write
?read.table
#write是将数据写入文件，cat是将结果显示在屏幕上
?write.table#对象是数据库
?write.csv#写入csv
getwd()#目录必须存在，因为R不会创建新的目录
setwd("D:\\backup\\Ln\\RIA\\RData")
read.table("input.txt")
write.table (a,file="D:\\backup\\Ln\\R语言实战\\RData\\input.txt")
write.table (x,file=newfile.csv,sep="\t")
write.table (x,file=newfile.csv,sep="\t",quote=FALSE,append=FALSE,na="NA")
write.table (x,file=gzfile (newfile.csv.gz),sep="\t",
             quote=FALSE,append=FALSE,na="NA")
#直接压缩文件
#使用write函数时，会自动添加行号，row.names=F可避免添加
#write会为字符串自动添加双引号，若不需要，quote=F可避免
#append=T表示新添加的内容追加在原文件末尾，append=F则会清空原文件后写入新的内容
library(foreign)
#foreign是用于读取其他软件文件的包，如SPSS
write.arff()

读写Excel文件

read.csv("input.csv",header = T)
install.packages("XLConnect")
library(XLConnect)
#XLConnect包可用于读取Excel文件,但是需要配置Java运行环境，
#目前可使用openxlsx包来打开Excel，无需Java环境
?loadWorkbook
?openxlsx
#Two step Read Excel File
#1.使用XLConnect包
ex <- loadWorkbook ("data.xlsx")
edata <- readWorksheet(ex,1)
head(edata)
edata <- readWorksheet(ex,1,startRow=0,starCol=0,endRow=50,endCol=3)
#1代表Excel中的sheet1
#2.使用openxlsx包
ex <- loadWorkbook("data.xlsx")
edata <- readWorkbook(ex,1)
head(edata)
edata <- readWorkbook(ex,1,rows=c(0:50),cols=c(0:3))

#One step Read Excel File

#1.使用XLConnect包
readWorksheetFromFile ("data.xlsx",1,startRow=0,starCol=0,
                       endRow=50,endCol=3,header=TRUE)
#2.使用openxlsx包
readWorkbook ("data.xlsx",1,rows=c(0:50),cols=c(0:3),rowNames=T,colNames=T)
#或
read.xlsx ("data.xlsx",1,rows=c(0:50),cols=c(0:3),rowNames=T,colNames=T)

#Four step Wtire Excel File
#1.使用XLConnect包
wb <- loadWorkbook("file.xlsx",create=TRUE)
createSheet(wb,"Sheet 1")
writeWorksheet(wb,data=mtcars,sheet = "Sheet 1")
saveWorkbook()
#2.使用openxlsx包
wb <- createWorkbook()
addWorksheet(wb,"sheet1")
writeData(wb,sheet="sheet1",x=mtcars,colNames = T,rowNames = T)
saveWorkbook(wb,"data1.xlsx")

#One step Wtire Excel File
#1.使用XLConnect包
writeWorksheetToFile("file.xlsx",data = mtcars,sheet = "Sheet 1")
vignette("XLConnect")
#2.使用openxlsx包
write.xlsx("file1.xlsx",x=mtcars,sheet=‘sheet1‘)

#Packages xlsx  也需要Java环境
install.packages("xlsx")
library(xlsx)
rdata <- read.xlsx("data.xlsx",n=1,startRow = 1,endRow = 100)
write.xlsx(rdata,file = "rdata.xlsx",sheetName = "Sheet 1",append = F)
help(package="xlsx")

读写R文件

?iris
head(iris)
getwd()
dir()#列出当前工作环境中的文件
saveRDS(iris,file="iris.RDS")#saveRDS和readRDS用于创建R文件
rdsdata <- readRDS("D:/backup/Ln/RIA/RData/iris.RDS")
#Write RData file
#RDS文件类似于PS中的project文件
#如果出现重名，R会直接覆盖
load(file = "D:/backup/Ln/RIA/RData/Ch02.R")
save(iris,iris3,file = "iris.Rdata")
save.image()
#保存当前工作目录所有对象

写入文件、读写Excel文件、读写R文件

原文：https://www.cnblogs.com/kwq717/p/14643158.html