如何在R语言中利用lubridate包编写函数，基于月初日期自动生成当月逐小时日期与小时数据集

Hey there! Let's build that function you need—we'll use the lubridate package since it makes date/time handling in R way simpler. Here's a complete, robust implementation:

Complete Function Code #

library(lubridate)

gen_month <- function(first_datex){
  # Convert input string to a proper date object
  first_date <- ymd(first_datex)
  
  # Calculate the last day of the target month (works for any month length)
  last_date <- ceiling_date(first_date, "month") - days(1)
  
  # Create the hourly time sequence from month start to month end
  time_sequence <- seq(
    from = ymd_h(paste(first_datex, "00")),  # Start at 00:00 of the first day
    to = ymd_h(paste(last_date, "23")),      # End at 23:00 of the last day
    by = "hour"
  )
  
  # Extract date and hour components, then assemble the data frame
  datex <- date(time_sequence)
  hourx <- hour(time_sequence)
  data.frame(datex, hourx)
}

Test the Function #

Let's use your example date to verify it works:

first_datex <- "2021-09-01"
mydata <- gen_month(first_datex)

# Check the first 6 rows
head(mydata)

Expected Output #

datex hourx
1 2021-09-01     0
2 2021-09-01     1
3 2021-09-01     2
4 2021-09-01     3
5 2021-09-01     4
6 2021-09-01     5

Quick Notes #

• The ceiling_date() trick ensures we get the last day of the month regardless of how many days it has (28, 29, 30, or 31).
• If you don't want to load lubridate globally, you can replace calls like ymd() with lubridate::ymd() to use the namespace directly.
• The time sequence automatically handles all hourly increments without manual counting.

内容的提问来源于stack exchange，提问作者Faryan