안녕하세요 탁자킴입니다.
오늘은 엑셀 데이터 중 특정 조건에 해당하는 행을 추출하는 방법에 대해 안내드리겠습니다.
예시데이터 :
예시 데이터에는 26개의 학과명, 학년도, A, B로 열이 총 다섯 개로 분류되어 있습니다.
학과별로 데이터를 뽑아서 사용해야 하는 경우, 엑셀에서 수작업으로 하면 시간이 많이 들겠죠?
setwd("본인의/워크/디렉토리/설정")
# 라이브러리 인스톨
install.packages("readxl")
library("readxl")
install.packages("dplyr")
library("dplyr")
install.packages("xlsx")
library(xlsx)
install.packages("rJava")
library(rJava)
# 라이브러리 인스톨 및 불러오기 끝
# 데이터 불러오기
data <- read_excel("data.xlsx") #(해당 엑셀 이름)
# 학과명 추출하기
title <- unique(data$학과명)
# 반복문 실행
for(i in title){
filtering <- data[data$학과명==i,]
filtering <- filtering[,c(2:5)]
naming <- paste0(c(i),".xlsx")
write.xlsx(filtering,naming)
}
R
복사
만약, rJava와 xlsx 라이브러리가 실행되지 않는 경우 JDK 가 설치되지 않은경우입니다.
아래 링크에서 받아 설치하신 후 실행하시면 됩니다.
그러면 자신이 설정한 워크디렉토리에 위 캡쳐와 같이 엑셀 파일이 저장됩니다.