初始化
options(stringsAsFactors=F,scipen=99)
rm(list=ls());gc()
getwd() 获得工作路径信息
setwd() 设置工作路径1
2
3
4
清空控制台
快捷键control+L1
获取目录下所有文件名
filenames=dir("/Users/yuyin/Downloads/数据/Excel数据")
##or推荐第二种
setwd("/Users/yuyin/Downloads/数据/Excel数据")
filenames=dir()1
2
3
4
读取文件输出文件
require(data.table)
library(data.table)
da
#读取gbk编码文件
u
write.table (out, file ="/Users/yuyin/Downloads/2.csv",sep =",",row.names = F,col.names=F,quote =F)1
2
3
4
5
6
读写xlsx文件
library("xlsx")
t=read.xlsx('吉林2014.xlsx',sheetIndex=1)
write.xlsx(t, file="./s.xlsx")1
2
3