将儒略日转换为日期格式 yyyy-dd-mm HH:MM:SS

如何解决将儒略日转换为日期格式 yyyy-dd-mm HH:MM:SS

借助以下函数（源自 R - convert POSIXct to fraction of julian day），我将观察的不同起点从日期格式转换为儒略日。

date <- as.POSIXct(c('2006-12-12 13:00:00','2008-12-12 12:00:00','2007-12-12 12:00:00'))

julian_conv <- function(x) { 
  if (is.na(x)) { 
    return(NA)
  }
  else {
    j <-julian(x,origin = as.POSIXlt(paste0(format(x,"%Y"),'-01-01')))
    temp <- unclass(j) 
    return(temp[1] + 1) 
  }
}

julian.days <- sapply(date,julian_conv)

结果：

print(julian.days)
[1] 346.5417 347.5417 346.5000

然后我取了这些起点的平均值。

mean <- mean(julian.days)
[1] 346.8611

现在我需要将平均起点转换回日期格式 (YYYY-DD-mm HH:MM:SS)，一次用于普通年份，一次用于飞跃。现在的问题是，这怎么可能？

解决方法

您可以将儒略日添加到日期对象：

2006 年是 365 天的一年：

as.Date("2006-01-01") + mean(julian.days)

2008 年是闰年：

as.Date("2008-01-01") + mean(julian.days)