R 生成每个月的第一个和最后一个朱利安日

我想为非闰年（365天）创建每个月的开始和结束日的向量 在朱利安时代

差不多

start.month <- c(1, 32, 60, .....)
end.month <- c(31, 59, 90, .....)

---

但是我怎样才能找到每年的第一个和最后一个朱利安节呢？

把每个月的第一个日期序列称为

开始日期。然后定义
结束=开始-1
。然后儒略日是
格式（c（开始，结束），“%j”）
。对序列使用2002，以便前一年不是闰年

    starts = seq(as.Date("2002/1/1"), by = "month", length.out = 12)
    ends = starts - 1
    x = as.numeric(format(c(starts, ends), "%j"))
    sort(x)
    #  [1]   1  31  32  59  60  90  91 120 121 151 152 181 182 212 213 243 244 273 274 304 305
    # [22] 334 335 365

调用每个月的第一个日期序列
开始
。然后定义
结束=开始-1
。然后儒略日是
格式（c（开始，结束），“%j”）
。对序列使用2002，以便前一年不是闰年

    starts = seq(as.Date("2002/1/1"), by = "month", length.out = 12)
    ends = starts - 1
    x = as.numeric(format(c(starts, ends), "%j"))
    sort(x)
    #  [1]   1  31  32  59  60  90  91 120 121 151 152 181 182 212 213 243 244 273 274 304 305
    # [22] 334 335 365

我会用润滑油

library(lubridate)
dates <- seq(as.Date("2001/1/1"), by = "month", length.out = 12)
end_dates <- dates
day(end_dates) <- days_in_month(end_dates)

start_month <- yday(dates)
end_month <- yday(end_dates)

start_month
[1]   1  32  60  91 121 152 182 213 244 274 305 335
end_month
[1]  31  59  90 120 151 181 212 243 273 304 334 365

库（lubridate）
日期我会使用lubridate

library(lubridate)
dates <- seq(as.Date("2001/1/1"), by = "month", length.out = 12)
end_dates <- dates
day(end_dates) <- days_in_month(end_dates)

start_month <- yday(dates)
end_month <- yday(end_dates)

start_month
[1]   1  32  60  91 121 152 182 213 244 274 305 335
end_month
[1]  31  59  90 120 151 181 212 243 273 304 334 365

库（lubridate）
日期调用每个月的第一个日期序列
开始
。然后定义
结束=开始-1
。然后儒略日是
格式（c（开始，结束），“%j”）
。使用2002作为序列，以便上一年不是闰年。调用每个月第一个的日期序列
开始
。然后定义
结束=开始-1
。然后儒略日是
格式（c（开始，结束），“%j”）
。对序列使用2002，以便前一年不是闰年。