您应该首先将其转换为具有正确格式的日期时间，然后您可以使用具有所需格式的strftime，如下所示：

datetimes <- as.POSIXct(df$time_date, format = "%H:%M:%S %m/%d/%Y")
df$time_date <- strftime(datetimes, format = "%m/%d/%Y %H:%M:%S")
df
#> # A tibble: 2 × 2
#>   activity time_date          
#>   <chr>    <chr>              
#> 1 run      03/08/2016 15:06:17
#> 2 skip     03/08/2016 09:01:00

创建于2023年1月4日，使用reprex v2.0.2

dplyr和lubridate在 * 字符 * 类数据上。

library(dplyr)
library(lubridate)

df %>% 
  rowwise() %>% 
  mutate(dd = strsplit(time_date, " "), 
         date_time = mdy_hms(paste(unlist(dd)[2], unlist(dd)[1])), 
         dd = NULL) %>%
  ungroup()
# A tibble: 2 × 3
  activity time_date           date_time          
  <chr>    <chr>               <dttm>             
1 run      15:06:17 03/08/2016 2016-03-08 15:06:17
2 skip     09:01:00 03/08/2016 2016-03-08 09:01:00

或者使用str_extract

df %>% 
  mutate(date_time = mdy_hms(paste(str_extract(time_date, " \\d+/.+"), 
                                   str_extract(time_date, "\\d+:.+ "))))
# A tibble: 2 × 3
  activity time_date           date_time          
  <chr>    <chr>               <dttm>             
1 run      15:06:17 03/08/2016 2016-03-08 15:06:17
2 skip     09:01:00 03/08/2016 2016-03-08 09:01:00

可以使用lubridate::parse_date_time()并将顺序指定为"HMS mdy"：

library(dplyr)
library(lubridate)

df %>%
  mutate(date_time = parse_date_time(time_date, "HMS mdy"))

# A tibble: 2 × 3
  activity time_date           date_time          
  <chr>    <chr>               <dttm>             
1 run      15:06:17 03/08/2016 2016-03-08 15:06:17
2 skip     09:01:00 03/08/2016 2016-03-08 09:01:00