如何更改可以将多个日期转换为儒略日的功能

问题描述

以下函数，来自 R - convert POSIXct to fraction of julian day 的原始函数是我想要更改的函数。

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) 
}
}

该函数将日期转换为儒略日。 示例：

date <- as.POSIXct('2006-12-12 12:00:00')
julian_conv(date)
#[1] 345.5

是否可以更改一次可以更改多个日期的功能？例如以下日期：

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

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）