R-数据导入与导出

版权声明：本文为博主原创文章，未经博主允许不得转载。 https://blog.csdn.net/T_steve7/article/details/54314382

1.设置工作目录

> getwd() #读取当前工作目录
[1] "D:/R_edu"
> setwd("C:/Users/steve/Desktop")
>         #修改工作目录
> 

2.导入文件

（1）read.table()导入普通文本文件

read.table(file,header=FALSE,sep=",",
fileEncoding="UTF-8",stringsAsFactors=FALSE)

• 备注：
  file：文件路径
  header=FALSE：不读取文件头/变量名/第一行
  sep=”,”：以逗号分隔，遇到逗号就分列；如果是tab分隔，则“\t”
  stringsAsFactors=FALSE：默认字符串为因子，应声明为FALSE，读取字符串即可

（2）read.csv()导入.csv文件

data1 <- read.csv("1.csv", fileEncoding="UTF-8", stringsAsFactors=FALSE)

• 备注：
  csv文件以逗号分隔列，并且有列名。
  可以用在控制台输入?read.csv()来查看详细的参数设置，和read.table()类似。

（3）read.xlsx()导入Excel文件

install.packages("xlsx")
library(xlsx)
read.xlsx(file,1) #第二个参数表示sheet1，可用?read.xlsx()查看参数设置

3.write.table()导出文件

nu<- c(7, 9);
ch<- c('a', 'b');
st<- c("好", "坏");
f <- data.frame(nu, ch, st, stringsAsFactors = FALSE);
#啥都没去除
write.table(f, file='f1.csv', sep=',', fileEncoding = "UTF-8")     
#去除行号
write.table(f, file='f2.csv', sep=',', fileEncoding = "UTF-8", row.names=FALSE)
#去除行号、列名
write.table(f, file='f3.csv', sep=',', fileEncoding = "UTF-8", row.names=FALSE, col.names=FALSE)
#去除行号、列名、引号
write.table(f, file='f4.csv', sep=',', fileEncoding = "UTF-8", quote = FALSE, row.names=FALSE, col.names=FALSE)

备注：

• write.csv(f, file=’f5.csv’,, fileEncoding = “UTF-8”, quote = FALSE, row.names=FALSE)
  用法和write.table()类似，但是不可修改列名以及分隔符