일괄 처리 및 r에서 병합

Question

.csv 파일 목록이 있으며 그 중 처음 세 줄을 모두 삭제해야합니다. 한 번에 모든 것을 할 수있는 방법이 있습니까?

'테스트'라는 이름의 파일에 대해 개별적으로 수행하는 코드는 다음과 같습니다 테스트 < -test [-c (1 : 3)]

내가 파일 목록에 대해 위의 줄을 실행하려면 I 파일명 : 파일명 : < - list.files (경로 = getwd())

위의 파일을 처리 한 후 cbind를 사용하여 하나의 파일을 만들고 싶습니다. 귀하의 도움을 크게 주시면 감사하겠습니다.

Answer 1

csvlist <- lapply(csvnames, function(nam) read.csv(file=nam)) 
do.call(cbind, lapply(csvlist, "[", -c(1:3))) 

성공적인 입력 전략이 있었지만 지금은 오류를보고 했으므로 파일을 더 잘 설명해야합니다. 그것은 힘 일 더 나은 처음 세 행을 제외합니다 :

csvlist <- lapply(csvnames, function(nam) read.csv(file=nam, header=FALSE, skip=3)) 
do.call(cbind, csvlist) # no longer need to remove since skip=3 did that. 

당신이 rbind 대신 cbind 싶지 않아 확신합니까?

Answer 2

다음과 같이 시도해 볼 수 있습니다.

result <- do.call(cbind, lapply(list.files(path = getwd()), function(n) read.csv(file=n , skip = 3)))