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

엑셀(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

view raw

VLOOKUP_.R

hosted with ❤ by GitHub

This work is licensed under a Creative Commons Attribution-NonCommercial 4.0 International License.

Leave a Reply

This site uses Akismet to reduce spam. Learn how your comment data is processed.