엑셀(Excel)의 VLOOKUP 함수 기능을 R에서도 구현해보자!

Jae-Hwan

엑셀(Excel)의 VLOOKUP 함수는 멋진 기능을 하는 함수 입니다. 엑셀(Excel) VLOOKUP함수, HLOOKUP함수 사용법 :: 빌노트의 노트을 보시면, 어떤 기능을 하는 것인지 알 수 있습니다. R에서 할 수 있지 않을까 하는 생각이 들어서 한번 구현해 봤습니다.

R에서는 크게 두 가지 방법이 있는데 여기서는 merge이라는 함수를 사용해봤습니다. 그래서 최종 결과물의 순서가 위 링크에 있는 순서가 다르게 되었습니다.

> a <-c(100,200,300,400,500)
> a
[1] 100 200 300 400 500
> b <- c("컴퓨터","DSLR","냉장고","TV","에어컨")
> b
[1] "컴퓨터" "DSLR"   "냉장고" "TV"     "에어컨"
> c <- c(700000,450000,2300000,4100000,1400000)
> c
[1]  700000  450000 2300000 4100000 1400000
> items <- data.frame(번호=a, 상품명=b, 단가=c)
> items
  번호 상품명    단가
1  100 컴퓨터  700000
2  200   DSLR  450000
3  300 냉장고 2300000
4  400     TV 4100000
5  500 에어컨 1400000
> orderNumbers <- data.frame(번호=c(200,100,500))
> orderNumbers
  번호
1  200
2  100
3  500
> Order <- merge(items, orderNumbers, by.x="번호", by.y="번호")
> Order
  번호 상품명    단가
1  100 컴퓨터  700000
2  200   DSLR  450000
3  500 에어컨 1400000
> Order$수량 <-c(1,3,1)
> Order$금액 <- (Order$단가 * Order$수량)
> Order
  번호 상품명    단가 수량    금액
1  100 컴퓨터  700000    1  700000
2  200   DSLR  450000    3 1350000
3  500 에어컨 1400000    1 1400000
> sum(Order$금액)
[1] 3450000