如何在r中将数字转换为Julian日期？

Question

day <- c(seq(1, 10592, by = 1))

如何将1982年1月1日至2010年12月31日的'日'格式更改为朱利安日期格式。）

提前致谢。

Answer 1

尝试help.search("Julian") - 有一个函数julian。

请给出您的日期顺序（并将所有日期的length=...替换为by="1 day"）

R> seq(as.Date("1982-01-01"), as.Date("2010-12-31"), length=5)
[1] "1982-01-01" "1989-04-01" "1996-07-01" "2003-10-01" "2010-12-31"
R>

只需调用函数即可计算Julian日期：

R> julian(seq(as.Date("1982-01-01"), as.Date("2010-12-31"), length=5))
[1]  4383.00  7030.75  9678.50 12326.25 14974.00
attr(,"origin")
[1] "1970-01-01"
R>