Type<-c("K5","K3","K5","K5","소나타","그랜져","I40","소나타","K3","K5")
fuel<-c("디젤","휘발유","전기","디젤","디젤","휘발유","전기","전기","휘발유","디젤")
number<-c("12가3456","12나3456","12다3456","12라3456","12마3456","12바3456","12사3456","12아3456","12자3456","12차3456")
data<-data.frame(Type,fuel,number) #첫번째 데이터
data<-data%>%mutate(ID=NA) #ID 부분을 temp, temp2, temp3 통해 매치시키기
ID<-c("홍길동","차승원","이기태","한영권","안정민","이기세","원상호","한기태","정지훈","안시훈","이홍철","강원래","고현식","김도영")
number1<-c("12가3456","12나34**","12다34**","12라34**","**마3456","12바3456","12사3456","12아3456","12자3456","12차3456","12카3456","12하3456","12호3456","12허3456")
temp<-data.frame(ID,number1) #첫번째 임시 데이터
data$ID<-temp$ID[match(data$number,temp$number1)] #60% 찾음
ID1<-c("홍길동","차승원","이기태","한영권","안정민","이기세","원상호","한기태","정지훈","안시훈","이홍철","강원래","고현식","김도영")
number2<-c("12가3456","12나3456","12다3456","12라3456","**마3456","12바34**","12사34**","12아34**","12자3456","12차3456","12카3456","12하3456","12호3456","12허3456")
temp2<-data.frame(ID1,number2) #두번째 데이터
data$ID<-temp2$ID1[match(data$number,temp2$number2)] #40% 찾음
#<첫번째 질문>
#data 에 있는 ID변수를 첫번째 임시 데이터에서 60% 정도 찾았습니다.
#못 찾은 데이터는 두번째 임시 데이터에서 40% 찾았습니다.
#문제는 두번째 임시 데이터에서 찾을때, 첫번째 임시 데이터에서 찾아진 데이터는 덮어쓰기로인해 NA가 됩니다.
#기존에 입력된 ID를 유지하면서 NA로된 데이터를 찾는 방법이 궁금합니다.
ID1<-c("홍길동","차승원","이기태","한영권","안정민","이기세","원상호","한기태","정지훈","안시훈","이홍철","강원래","고현식","김도영")
number2<-c("12가3456","12나3456","12다3456","12라3456","**마3456","12바34**","12사34**","12아34**","12자3456","12차3456","12카3456","12하3456","12호3456","12허3456")
Type1<-c("K5","K3","K5","K5","소나타","그랜져","I40","소나타","K3","K5","K3","소나타","I40","그랜져")
temp3<-data.frame(ID1,number2,Type1)
data$ID<-temp3$ID1[match(data$Type,data$number,data3$number2,data3$Type1)]
# <두번째 질문>
# 만약 차량번호가 가려져있다면 가려지지않은 차량번호의 일부와 차종으로 차주를 찾고 싶습니다.
# match함수 후 괄호열고 어떤식으로 값을 입력해야 제가 원하는 방법대로 출력이될까요?
# 엑셀은 vlookup함수로 범위를 선택하여 원하는 값을 찾을 수 있던데..
# 여러방법 중 merge함수로 해봐도 안되고 더 서치해본 결과 match 함수가 가장 제 요구치에 근접한 함수란 걸 깨달았습니다.
# 언제나 감사드리고 또 궁금한거 여쭙니다!
Comment 0
No. | Subject | Author | Date |
---|---|---|---|
694 | 교수님 질문있습니다. [2] | 보라도리 | 2019.09.13 |
693 | rstudio 사이트에 연결할 수 없음 문제 [1] | 지원 | 2019.09.10 |
692 | 정회원 서버가 안열립니다. [1] | khnephro | 2019.09.03 |
691 | SOS | UnuDIo | 2019.09.02 |
690 | shapefile에서 dataframe으로 변환할 때, 법정동 코드를 남기는 방법이 궁금합니다. | 건이두 | 2019.09.02 |
» | 안녕하세요! 질문드립니다^ㅡ^ | 래유니 | 2019.09.01 |
688 | 정회원 서버 접속이 안됩니다. [1] | DLL5252 | 2019.08.31 |
687 | 문의드립니다.! [2] | 래유니 | 2019.08.29 |
686 | [정회원 서버 접속 불가] [1] | R_man | 2019.08.27 |
685 | 메타분석-출판편향 [1] | 날아라 | 2019.08.26 |
684 | R markdown + ztable [4] | UnuDIo | 2019.08.23 |
683 | 데이터 전처리 문의 드립니다. | 아리송 | 2019.08.22 |
682 | 꺽은선 그래프 아래의 면적 [1] | 김밥친구 | 2019.08.20 |
681 | 안녕하세요 질문있습니다. [1] | gracehn | 2019.08.19 |
680 | 안녕하세요! 또 문의드립니다.! [1] | 래유니 | 2019.08.18 |
679 | 안녕하세요! 조건문에 대해 문의드립니다. [2] | 래유니 | 2019.08.15 |
678 | ztable에서 column 순서 변경, text 수정과 관련하여 문의드립니다. [2] | IlKwon | 2019.08.10 |
677 | Web-R 생존분석 오류 상의드립니다. | linus214 | 2019.08.02 |
676 | 교수님 데이터 편집 질문드립니다. [1] | 백지백지 | 2019.08.02 |
675 | ztable package 사용과 관련하여 도움을 부탁드립니다. [1] | IlKwon | 2019.07.29 |