R读写文件

#Error: '\U' used without hex digits in character string starting ""C:\U"
#setwd("C:\Users\anddyhua\Desktop") 

##文件路径需要全路径并且转义路径，不然报错
# Error in file(file, "rt") : cannot open the connection
# In addition: Warning message:
#    In file(file, "rt") :
#       cannot open file 'data.csv': No such file or directory

setwd("C:\\Users\\anddyhua\\Desktop")
list.files("C:\\Users\\anddyhua\\Desktop")

##没有分隔符 
# HousePrice <- read.table("C:\\Users\\anddyhua\\Desktop\\data.csv", header=TRUE)
# Error in read.table("C:\\Users\\anddyhua\\Desktop\\data.csv", header = TRUE) : 
 列的数目比列的名字要多
# HousePrice <- read.table("C:\\Users\\anddyhua\\Desktop\\data.csv")
# 报错可以知道read.table 底层用的是scan
# Error in scan(file = file, what = what, sep = sep, quote = quote, dec = dec,  : 
#  line 1 did not have 5 elements

HousePrice <- read.table("C:\\Users\\anddyhua\\Desktop\\data.csv", header=TRUE,sep=",")

##或者拼接路径
a1<-list.files("C:\\Users\\anddyhua\\Desktop") 
file1 = paste("C:\\Users\\anddyhua\\Desktop\\",a1[7],sep="")
print(file1)
HousePrice <- read.table(file1, header=TRUE,sep=",")

# 函数分装下
loadfile <- function(path,file) {
  gsub("/","\\",path)
  setwd(path) 
  file1 = paste(path,file,sep="")
  print(file1)
  read.table(file1, header=TRUE,sep=",")
}
tabledata <-loadfile("C:/Users/anddyhua/Desktop/","data.csv")
head(tabledata)