我的模型与属性模型有关系。每个属性都有其自己的值。 我执行这样的查询，但是非常慢。
library(stringr)
df %>%
mutate(datetime = ymd_hms(case_when(date %in%
as.Date(c("2020-01-04", "2020-02-04")) ~
str_replace(datetime, '-(\\d{2})-(\\d{2})', '-\\2-\\1'), TRUE ~ as.character(datetime))))
# id datetime date
#1 1 2020-03-01 00:02:15 2020-03-01
#2 2 2020-03-25 01:03:33 2020-03-25
#3 3 2020-03-14 03:45:55 2020-03-14
#4 4 2020-04-01 05:37:27 2020-01-04
#5 5 2020-04-01 06:23:38 2020-01-04
#6 6 2020-04-12 09:09:43 2020-04-12
#7 7 2020-04-21 12:44:47 2020-04-21
#8 8 2020-04-02 17:38:52 2020-02-04
#9 9 2020-04-24 19:44:21 2020-04-24
#10 10 2020-04-28 21:49:34 2020-04-28
有什么方法可以优化吗？