R语言读文件

#读文本数据
scan(file="测试数据.txt",skip = 1,what = double())
#读到数据框
claimfrm<-read.table(file="车险数据.txt",header = TRUE,sep =" ")
str(claimfrm)
names(claimfrm)
head(claimfrm)
#取消转换因子并且强制转换类型
ClaimData<-read.table(file="车险数据.txt",header=TRUE,sep=" ",stringsAsFactors=FALSE,colClass=c("integer","character","character","integer","integer"))
str(ClaimData)
########################################读取SPSS数据
library(foreign)
ClaimData<-read.spss(file="车险数据.sav",use.value.labels = TRUE, to.data.frame = TRUE)
str(ClaimData)


#######################读取数据库数据
install.packages("RODBC")
library("RODBC")
MyConn<-odbcConnectAccess2007("车险数据.accdb",uid="",pwd="")
ClaimData<-sqlFetch(MyConn,"车险数据")
close(MyConn)
str(ClaimData)

##########读取Excel数据
MyConn<-odbcConnectExcel2007("车险数据.xlsx")
ClaimData<-sqlFetch(MyConn,"Sheet1")
close(MyConn)
str(ClaimData)

################抓取网页数据
install.packages("XML")
library("XML")
url<-"http://data.mofcom.gov.cn/channel/gbsj/gbsj.shtml"
TableData<-readHTMLTable(url,trim=TRUE)
str(TableData)
head(TableData[[1]])


#####################R自带数据集的使用
data()
data("AirPassengers")

data(package=.packages(all.available=TRUE))


###############保存数据到数据文件中
write.table(ClaimData,file="数据.txt",sep=" ",quote=FALSE,append=FALSE,na="NA",row.names=FALSE,col.names=TRUE)