Not really, that is not copy/paste friendly and it doesn't show the structure of your data, so I can't know the class of the occurred variable.
If I assume that it is of class character, you can do something like this:
Note: Please notice the way I'm posting the solution, that would be a proper reproducible example as explained in the link I gave you.
library(tidyverse)
sample_df <- data.frame(
stringsAsFactors = FALSE,
dr_no = c(1307355,11401303,70309629,
90631215,100100501,100100506,100100508,100100509,
100100510,100100511),
occurred = c("2010-02-20","2010-09-12",
"2010-08-09","2010-01-05","2010-01-02","2010-01-04",
"2010-01-07","2010-01-08","2010-01-09","2010-01-06"),
time = c(1350, 45, 1515, 150, 2100, 1650, 2005, 2100, 230, 2100),
area_name = c("Newton","Pacific","Newton",
"Hollywood","Central","Central","Central","Central",
"Central","Central")
)
sample_df %>%
separate(occurred, into = c("year", "month", "day"), "-")
#> dr_no year month day time area_name
#> 1 1307355 2010 02 20 1350 Newton
#> 2 11401303 2010 09 12 45 Pacific
#> 3 70309629 2010 08 09 1515 Newton
#> 4 90631215 2010 01 05 150 Hollywood
#> 5 100100501 2010 01 02 2100 Central
#> 6 100100506 2010 01 04 1650 Central
#> 7 100100508 2010 01 07 2005 Central
#> 8 100100509 2010 01 08 2100 Central
#> 9 100100510 2010 01 09 230 Central
#> 10 100100511 2010 01 06 2100 Central
Created on 2020-04-25 by the reprex package (v0.3.0.9001)