如何在R中创建函数将字符型时间转换为POSIXct类型？

原函数无法运行的原因及修正 #

你的函数不能正常运行有两个核心问题：

• 用dat$variable.name引用列时，R会把variable.name当作字面列名，而不是你传入的参数值，正确的引用方式应该是dat[[variable.name]]
• 函数没有返回修改后的数据集，R中数据框默认是传值调用，内部修改不会影响外部的原数据

修正后的函数如下：

set.time <- function(dat, variable.name){
  # 替换T为空格
  dat[[variable.name]] <- gsub('T', ' ', dat[[variable.name]])
  # 转换为POSIXct类型
  dat[[variable.name]] <- as.POSIXct(dat[[variable.name]], format = "%Y-%m-%d %H:%M:%S", tz = Sys.timezone())
  # 返回修改后的数据集
  return(dat)
}

调用方式：

janviews <- set.time(janviews, "time")

更优的时间转换方法 #

你的时间格式是标准的ISO 8601格式，完全可以跳过gsub步骤，直接用更简洁的方式解析：

方法1：base R直接解析 #

不需要替换T，直接指定包含T的格式字符串，还能保留小数秒：

janviews$time <- as.POSIXct(janviews$time, format = "%Y-%m-%dT%H:%M:%OSZ", tz = Sys.timezone())

其中%OS用于解析小数秒，若需要保留UTC时区，可将tz设为"UTC"。

方法2：lubridate包快速解析 #

lubridate对ISO格式时间支持非常友好，一行代码即可完成转换：

library(lubridate)
janviews$time <- ymd_hms(janviews$time, tz = Sys.timezone())

如果需要默认使用UTC时区，直接省略tz参数即可：

janviews$time <- ymd_hms(janviews$time)

封装成复用函数的版本：

library(lubridate)
set.time <- function(dat, variable.name, tz = Sys.timezone()){
  dat[[variable.name]] <- ymd_hms(dat[[variable.name]], tz = tz)
  return(dat)
}

内容的提问来源于stack exchange，提问作者amatof