내가처럼 보이는 폴더가 폴더

Question

에 같은 이름을 가진 .CSV 결합이

> list.files() 
[1] "2013-09-13(1).csv" "2013-09-13.csv" "2013-09-14.csv" "2013-09-15.csv" 
[5] "2013-09-16.csv" "2013-09-17.csv" "2013-09-18.csv" "2013-09-19.csv" 
[9] "2013-09-20.csv" "2013-09-21.csv" "2013-09-22.csv" "2013-09-23.csv" 
[13] "2013-09-24.csv" "2013-09-25.csv" "2013-09-26(1).csv" "2013-09-26(2).csv" 
[17] "2013-09-26.csv" "2013-09-27.csv" "2013-09-28.csv" "2013-09-29.csv" 
[21] "2013-09-30.csv" 

볼 수

로, 같은 이름이 같은 파일이있다 "2013년 9월 13일 (1) .csv "&"2013-09-13.csv " 내가하고 싶은 것은 파일

2013-09-03 <- rbind(2013-09-13.csv, 2013-09-13(1).csv) 
write.csv(2013-09-03, file="2013-09-03.csv", row.names=FALSE) 
2013-09-26 <- rbind(2013-09-26.csv, 2013-09-26(1).csv, 2013-09-26(2).csv) 
write.csv(2013-09-26, file="2013-09-26.csv", row.names=FALSE) 

그래서 마지막에

을 이러한 문제를 감지 할 수있는 루프의 형태를 만들고 rbind, 나는이를 볼 수 있습니다

이

list.files() 
[1] "2013-09-13.csv" "2013-09-14.csv" "2013-09-15.csv" "2013-09-16.csv" 
[5] "2013-09-17.csv" "2013-09-18.csv" "2013-09-19.csv" "2013-09-20.csv" 
[9] "2013-09-21.csv" "2013-09-22.csv" "2013-09-23.csv" "2013-09-24.csv" 
[13] "2013-09-25.csv" "2013-09-26.csv" "2013-09-27.csv" "2013-09-28.csv" 
[17] "2013-09-29.csv" "2013-09-30.csv" 

사람이 알고 있나요 어떻게 내가 할 수있는 이 작업을 수행?

Answer 1

이 줄을 따라 가야한다. 직접 실행하지 마라.

library(data.table) 
patternstomatch <- gsub(list.files(), pattern = ".csv", replacement = "") 

for (i in patternstomatch) 
{ 
    filestorbind <- list.files(pattern = i) 
    if(length(filestorbind) > 1) 
    { 
    rbindeddataset <- rbindlist(lapply(filestorbind, read.csv)) 
    write.csv(rbindeddataset , file = paste(i,".csv", sep = "")) 
    } 
} 

patternstomatch이 포함될 "2013년 9월 13일 (1)", "2013년 9월 13일", "2013년 9월 14일"등의 루프가 이러한 스트링 각각 찾는다 파일 이름. 패턴과 일치하는 파일이 여러 개 발견되면 파일을 모두 읽고 rbind하여 ".csv"로 쓰십시오. ., 당신은 다음 "("이 파일을 찾을 자신의 파일 이름과 해당 파일을 삭제 file.remove를 사용할 수있는 첫 번째 줄에 GSUB의 방법을 사용