tctcab
您好,还是之前的问题,还要请教您一下。
这是我要处理的数据
https://pan.baidu.com/s/1ebFyaft20BlqK9FwOvdyqg
我需要把1000多份这样的文件格式改为2楼您的回答中的那种格式。我运行了如下代码,但是却未能成功,能麻烦您看下是什么原因吗?(抱歉我还是不知道怎么像您那样优雅地在输入框中插入代码?)
for(j in filelist) {
data1 <- read.csv(j,header = T,sep = ",",fileEncoding = "UTF-8")
colnames(data1) <- new_names
data2 <- data1 %>%
tidyr::gather(key="site",value="value",南京-迈皋桥,南京-草场门,南京-山西路,南京-中华门,南京-瑞金路,南京-玄武湖,南京-浦口,南京-奥体中心,南京-仙林大学城,苏州-上方山,苏州-南门,苏州-彩香,苏州-轧钢厂,苏州-吴中区,苏州-苏州新区,苏州-苏州工业园区,苏州-相城区,南通-南郊,南通-虹桥,南通-城中,南通-星湖花园,南通-紫琅学院,连云港-市环境监测站,连云港-洪门派出所,连云港-墟沟核电专家村,连云港-开发区恒瑞医药公司,徐州-黄河新村,徐州-淮塔,徐州-铜山兽医院,徐州-新城区,徐州-桃园路,徐州-农科院,徐州-铜山区环保局,扬州-城东财政所,扬州-市监测站,扬州-邗江监测站,扬州-第四医院,无锡-雪浪,无锡-黄巷,无锡-曹张,无锡-漆塘,无锡-东亭,无锡-旺庄,无锡-荣巷,无锡-堰桥,常州-市监测站,常州-城建学校,常州-常工院,常州-潞城,常州-武进监测站,常州-安家,镇江-环境监测站,镇江-新区办事处,镇江-职教中心,镇江-丹徒区监测站,泰州-公园路,泰州-莲花,泰州-高港区政府,泰州-留学生创业园,淮安-钵池山,淮安-北京南路,淮安-市监测站,淮安-楚州区监测站,淮安-淮阴区监测站,盐城-盐城电厂,盐城-市监测站,盐城-文峰中学,盐城-开发区管委会,宿迁-市监测站,宿迁-宿迁学院,宿迁-宿迁中学,宿迁-宿豫区环保)
write.csv(df2,paste0('new_', j),col.names=T,row.names = F)
}