如何将数据框中的日期列转换为R中的日期

Question

因此，这是一列日期，我想将其转换为R中的日期。它是一个儒略日期，其中前4位数字表示年份，后三位是该年第一天的天数。 有多个0，如果没有关联的日期，系统将输出。 我为它编写的功能如下。

   julian=function(x)
      {
      if(x>0)
      {
      x=as.character(x)
      year=substr(x,1,4)
      days=as.integer(substr(x,5,7))-1
      return(as.Date(paste("01/01/",year),format="%m/%d/%Y")+days)
      }
      return(NULL)
  }

我想将此应用于整个专栏。 我尝试使用lapply，但是每次尝试将列表转换为数据框时，都会得到随机整数。 任何帮助将非常感谢！

Answer 1

sapply（或从lapply中取消列出结果）会将日期转换为数值。 如果您的列名为df$date ，则可以执行以下操作：

df$new_date <- do.call(c, lapply(df$date,julian))

希望这可以帮助！