r语言读取txt数据出错（r语言读取txt乱码）

投稿用户 • • IT资讯 • 阅读 1312

getwd()

setwd("F:/原始2013-2020/2013-2020气象要素/china_isd_lite_2020")

path <- "F:/原始2013-2020/2013-2020气象要素/china_isd_lite_2020" ##文件目录

fileNames <- dir(path) ##读取该路径下的文件名

filePath <- sapply(fileNames,function(x){

paste(path,x,sep='/') ##生成读取文件路径

})

data <-lapply(filePath, function(x){

read.csv(x,sep = "",quote ="/" ,header = F) ##读取数据，结果为list

})

outPath <- "F:/原始2013-2020/2013-2020气象要素/sc" ##输出路径

out_fileName <- sapply(names(data),function(x){

paste(x, ".txt", sep='')}) ##csv格式

out_filePath <- sapply(out_fileName, function(x){

paste(outPath ,x,sep='/')}) ##输出路径名

##输出文件

for(i in 1:length(data)){

write.csv(data[[i]], file=out_filePath[i],row.names =F )

}

本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 sumchina520@foxmail.com 举报，一经查实，本站将立刻删除。
如若转载，请注明出处：https://www.gooyie.com/17105.html
赞 (0)
投稿用户
0
上一篇 2022年7月4日 pm11:15
下一篇 2022年7月5日 am12:25

相关推荐