# 挑選重要欄位、更改欄位名稱
data = data %>%
  select(name,formatted_address,place_id) %>%
  rename(region = formatted_address)

# 將地址轉換為區別
temp = c("中正區","大同區","中山區","松山區","大安區","萬華區","信義區","士林區","北投區","內湖區","南港區","文山區")

data$region = sapply(data$region, stri_extract_all, fixed = temp) %>%
  apply(., 2, function(x) {temp[which(!is.na(x))]})

data$region[sapply(data$region,length) != 0]