---

library(readxl)
library(tidyverse)
library(lubridate)
library(hms)

---

taxi <- read_excel("taxi_im9.xlsx")
taxi <- taxi[ , -1]
str(taxi)

taxi$민원발생시간범주 <- as.factor(taxi$민원발생시간범주)
taxi$민원발생요일 <- as.factor(taxi$민원발생요일)
taxi$민원유형 <- as.factor(taxi$민원유형)
taxi$업체명 <- as.factor(taxi$업체명)
taxi$처리기관 <- as.factor(taxi$처리기관)
taxi$민원발생일시 <- ymd(taxi$민원발생일시)

head(strftime(taxi$민원발생시간, format="%H:%M:%S"))  #head(as.hms(taxi$민원발생시간))
 #strptime("20/2/06 11:16:16.683", "%d/%m/%y %H:%M:%OS")

taxi %>%
  mutate(time = format(taxi$민원발생시간, format = "%H시 %M분"))

taxi <- taxi[ , -2]
str(taxi)

---

#x <- 1:1862
#time <- function(x) {
#  str_extract(taxi$민원발생시간내용[x], "\\d+:\\d+")
#}

#y <- time(1:1862)

#a <- str_detect(taxi$민원발생시간내용, ":")
#sum(a==1)

shopping_list <- c("23:45")
str_extract(shopping_list, "\\d")
str_extract(shopping_list, "[a-z]+")
str_extract(shopping_list, "{1,4}")
str_extract(shopping_list, "\\b[a-z]{1,4}\\b")

---