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)

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值