错误指定的索引不是x列(按时间)

我正在尝试使用 as_tbl_time 但是我收到了标题中的错误。

library(tidyverse)
library(lubridate)

dates <- c("01/01/18 1:01:10 PM" ,"01/01/18 1:10:10 PM")
vals <- c(100, 200)

df <- data.frame(dates, vals)

df$dates <- dmy_hms(df$dates)

df <- as_tbl_time(df, index = df$dates)