# your code goes here
# goal: 取出每個字串的前3個字

location <- as.factor(c("彰化縣溪州鄉高速公路南下223", "澎湖縣馬公市關帝廟前", "台北市信義路大安森林公園", "花蓮縣花蓮市府前路統冠超市"  ))


city <- grep("\\D", location, value=TRUE, perl=TRUE)
city
# 失敗 result
#[1] "彰化縣溪州鄉高速公路南下223" "澎湖縣馬公市關帝廟前"     
#[3] "台北市信義路大安森林公園"    "花蓮縣花蓮市府前路統冠超市"