Type<-c("K5","K3","K5","K5","소나타","그랜져","I40","소나타","K3","K5")
fuel<-c("디젤","휘발유","전기","디젤","디젤","휘발유","전기","전기","휘발유","디젤")
number <- c("12가1234","225나1234","64다1234","745라1234","132마1234","162바1234","15사1234","33아1234","67자1234","36차1234")
data<-data.frame(Type,fuel,number)
#자동차 번호판에 뒤 2자리를 **로 바꾸고 싶습니다. ex(12가1234 -> 12가12**, 225나1234 -> 225나12**)
#자동차 번호판에 앞 3자리를 ***로 바꾸고 싶습니다. ex(12가1234 -> ***1234)
여러방법을 동원하여 검색해보아도 잘안돼서 이렇게 질문드립니다. 코로나 유의하시고 언제나 감사드립니다!!
Comment 2
-
cardiomoon
2020.03.18 08:14
> require(stringr)> number <- c("12가1234","225나1234","64다1234","745라1234","132마1234","162바1234","15사1234","33아1234","67자1234","36차1234")> str_replace(number,"..$","\\*\\*")[1] "12가12**" "225나12**" "64다12**" "745라12**" "132마12**" "162바12**" "15사12**" "33아12**"[9] "67자12**" "36차12**"> str_replace(number,"^...","\\*\\*\\*")[1] "***1234" "***나1234" "***1234" "***라1234" "***마1234" "***바1234" "***1234" "***1234"[9] "***1234" "***1234" -
래유니
2020.03.21 22:52
언제나 감사드립니다.! 코로나 조심하시고 편안한 주말되세요^^