dapengde
我写的如下这个代码,但是run后仍然只有“1151A”和“迈皋桥”完成了替换,剩下的都没有替换,“1151A”和“迈皋桥”等分别都是目标csv文件的原列标题和希望替换之后的列标题,希望得到您的帮助!
for(j in filelist) {
data1 <- read.csv(j,header = F,sep=",",fileEncoding = "UTF-8")
y <- function(data1){
return(gsub('1151A','迈皋桥',data1))
return(gsub('1152A','草场门',data1))
return(gsub('1153A','山西路',data1))
return(gsub('1154A','中华门',data1))
}
newfile <- apply(data1,2,y)
write.csv(newfile,paste0('new_', j),row.names=F)
}