如何一次將多個字符變量轉換為日期時間？

Question

嘗試將多個字符變量轉換為日期時間。 簡化示例：

#create df/tibble with two "datetime" columns still as character 
df=tibble(date1=c("2013-11-26 00:10:12.536","2013-11-26 23:04:32.512","2014-02-19 23:34:44.459"),
          date2=c("2013-11-26 07:06:40.720","2013-11-27 07:09:50.552","2014-02-20 08:00:03.975"))

datetimeFormat="%Y-%m-%d %H:%M:%OS"

#OK: converting a single var using $
df_temp=df
df_temp$date1=as_datetime(df_temp$date1,format = datetimeFormat)

#not OK: converting a single var using indexing (presumably because df_temp[,"date1"] is still a tibble)
df_temp=df
df_temp[,"date1"]=as_datetime(df_temp[,"date1"],format = datetimeFormat)

#also not OK: converting multiple variables in one go
datetimeVars=c("date1","date2")
df_temp=df
df_temp[,datetimeVars]=as_datetime(df_temp[,datetimeVars],format = datetimeFormat)

如何一次將多個字符列轉換為日期時間，特別是使用包含變量名稱的變量（如上面的datetimeVars ）？

一些背景：

• 我的源 csv 文件不統一，並且包含一個變量 - 通常很大 - 數量的日期時間（如上例所示的自定義格式）。 我可以根據名稱確定哪些變量應該成為日期時間
• read_csv 不能始終將相關變量識別為日期時間
• read_csv 似乎不允許一次為多個變量設置變量類型，所以不能做類似的事情： df=read_csv("myFile.csv",col_types=cols(datetimeVars=col_datetime(format=datetimeFormat)))我也可以't 為每個相關變量指定/硬編碼變量類型，如cols(date1=col_datetime(),date2=col_datettime, date3=...)因為日期時間變量的數量無法提前知道

所以目前停留在導入（read_csv）和轉換（as_datetime）兩個級別。 歡迎提出建議。

Answer 1

由於導入高度依賴於文件和包含的格式，因此處理轉換部分。

使用as.POSIXct轉換為date class（請記住， date class 始終以打印格式顯示，但在 class object 中保留更多信息 - 請參閱下文閱讀）。

library(dplyr)

datetimeVars <- c("date1", "date2")

df_date <- df %>% 
  summarise(across(all_of(datetimeVars), as.POSIXct))
df_date
# A tibble: 3 × 2
  date1               date2              
  <dttm>              <dttm>             
1 2013-11-26 00:10:12 2013-11-26 07:06:40
2 2013-11-26 23:04:32 2013-11-27 07:09:50
3 2014-02-19 23:34:44 2014-02-20 08:00:03

或者列名匹配起始模式（ starts_with() ）

datetimeVars <- c("date")

df_date <- df %>% 
  summarise(across(starts_with(datetimeVars), as.POSIXct))
df_date
# A tibble: 3 × 2
  date1               date2              
  <dttm>              <dttm>             
1 2013-11-26 00:10:12 2013-11-26 07:06:40
2 2013-11-26 23:04:32 2013-11-27 07:09:50
3 2014-02-19 23:34:44 2014-02-20 08:00:03

使用strftime從date class讀取您想要的格式

df_date %>% 
  summarise(across(starts_with("date"), strftime, format="%Y-%m-%d %H:%M:%OS3"))
# A tibble: 3 × 2
  date1                   date2                  
  <chr>                   <chr>                  
1 2013-11-26 00:10:12.536 2013-11-26 07:06:40.720
2 2013-11-26 23:04:32.512 2013-11-27 07:09:50.552
3 2014-02-19 23:34:44.459 2014-02-20 08:00:03.974