[R좀 R려줘!] 하나의 엑셀(Excel)에 담긴 정보를 특정 기준으로 여러 엑셀 파일로 나누고 합치기!

안녕하세요 :-)!!

 

오늘은 하나의 엑셀에 담긴 정보를 여러 엑셀 파일로 쪼개는 방법에 대해 알아보겠습니다!

사용할 예제 파일은 링크를 통해 확인해주세요. ㅎㅎ

 

---

elec = read.csv("elec_load.csv",
                stringsAsFactors = FALSE)
head(elec, 2)
# Q. 연월 정보가 담긴 변수 YYYYMM을 생성하시오.
#    2008-01 또는 2008-1
elec[, "YYYYMM"] = paste(elec$YEAR, elec$MONTH, sep = "-")
head(elec)

sprintf(fmt = "%02d", 1:20)
sprintf(fmt = "%04d", 1:20)

dir.create("elec_ym") #새로운 폴더 생성
write.csv(elec, "elec_ym/elec_test.csv") #csv 파일 생기는지 확인

paste0("abc/", "aaa", ".csv")
# Q. elec 객체를 YYYYMM 변수 기준으로 쪼개어
#    elec_ym 폴더에 각각의 파일로 저장하시오.
# (단, 파일명은 elec_load_2008-1.csv 양식으로 한다.)

for(ym in unique(elec$YYYYMM)){
    elec_sub = elec[elec$YYYYMM == ym, ]
    write.csv(elec_sub, paste0("elec_ym/elec_load_",
                               ym, ".csv"),
              row.names = FALSE)
}

---

하나의 엑셀(Excel or csv) 파일에 있는 값을 특정 기준으로 쪼개어 서로 다른 파일을 만들때는 위와 같은 로직을 이용해주시면 됩니다.

반응형

 

그럼 결과적으로~

 

 

위와 같이 생성되는 것을 확인할 수 있어요!

 

그렇다면 쪼개봤다면, 다시 합쳐도 봐야겠죠? ㅎㅎ

 

---

# Q. 반복문을 활용하여
#   elec_ym에 있는 파일 중,
#   elec_load_2008-01.csv와 같은 형식을 가진
#   파일을 순차적으로 불러와서 합쳐보시오
#   단, 저장되는 객체명은 elec_bind로 한다.
# list.files()
# rbind()

list_files = list.files("elec_ym/")
files_len = length(list_files)

tmp1 = NULL
elec_bind = NULL
a = NULL
b = NULL

tmp = read.csv("elec_ym/elec_load_2008-1.csv", stringsAsFactors = FALSE)
elec_bind = tmp

tmp1 = c(tmp1, colnames(tmp))
tmp1

for( i in (1: files_len)){
    a = read.csv(paste0('elec_ym/',list_files[i]), stringsAsFactors = FALSE)
    
    if(list_files[i] != "elec_load_2008-1.csv"){
        b = c(b, colnames(a))
        
        if(tmp1 == b){
            elec_bind = rbind(elec_bind, a)
        }
    }
    
    a = NULL
    b = NULL
}

head(elec_bind)

---

 

저는 하나의 특정 파일을 읽어들인 후 내부 로직을 먼저 입력을 해주었어요. (for문 위)

 

그리고 나서 for문에 각 'csv'파일 별로 도는데 먼저 사용한 csv파일을 제외하고,

전체 열(Column)명을 비교해서 합쳐주는 작업을 하였습니다!

 

그럼 결론적으로~!

 

 

최초의 데이터와 동일하다는 것을 확인할 수 있습니다. ㅎㅎ

 

궁금하신 점은 댓글로 남겨주세요~!

 

2020.02.27 - [개발] - [R좀 R려줘!] R 을 이용한 네이버 뉴스 크롤링 하기!

[R좀 R려줘!] R 을 이용한 네이버 뉴스 크롤링 하기!

2020.02.27 - [개발] - [R좀 R려줘!] R gsub() 함수를 이용한 패턴 치환하기!

[R좀 R려줘!] R gsub() 함수를 이용한 패턴 치환하기!

2020.02.27 - [일상] - 멀티캠퍼스 R좀 R려줘! R 데이터 분석 with Cloud 후기!!

멀티캠퍼스 R좀 R려줘! R 데이터 분석 with Cloud 후기!!

2020.02.28 - [개발] - [R좀 R려줘!] R rbind(), colnames()를 활용한 하나의 data.frame() 만들기!

[R좀 R려줘!] R rbind(), colnames()를 활용한 하나의 data.frame() 만들기!

2020.02.28 - [개발] - [R좀 R려줘!] R unique(), nrow()를 활용한 언론사 별 트렌드 파악하기!

[R좀 R려줘!] R unique(), nrow()를 활용한 언론사 별 트렌드 파악하기!

2020.02.28 - [개발] - [R좀 R려줘!] aggregate(), ggplot() 함수를 이용한 언론사별 뉴스기사 그래프 그리기!

[R좀 R려줘!] aggregate(), ggplot() 함수를 이용한 언론사별 뉴스기사 그래프 그리기!

2020.02.28 - [개발] - [R좀 R려줘!] R에서 자연어(NLP)처리를 해보자!

[R좀 R려줘!] R에서 자연어(NLP)처리를 해보자!

2020.02.28 - [개발] - [R좀 R려줘!] wordcloud2 패키지를 이용해 최다빈도 단어 추출하기!

[R좀 R려줘!] wordcloud2 패키지를 이용해 최다빈도 단어 추출하기!

2020.02.28 - [개발] - [R좀 R려줘!] 데이터 분석할때 반복문 진행 현황 확인하기!

[R좀 R려줘!] 데이터 분석할때 반복문 진행 현황 확인하기!

 

2020.02.28 - [개발] - [R좀 R려줘!] R을 이용하여 네이버 실시간 검색어, 인스타그램 검색 결과 크롤링 하기!!

[R좀 R려줘!] R을 이용하여 네이버 실시간 검색어, 인스타그램 검색 결과 크롤링 하기!!