r语言读取txt数据出错(r语言读取txt乱码)

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 )

}

创业项目群,学习操作 18个小项目,添加 微信:80709525  备注:小项目

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