我需要一个方法/函数来有效地将每周数据转换为具有小数周的R中的每月数据

library(lubridate)

convert_weekly_to_monthly <- function(weekly_data) {
  # 将日期数据转换为日期对象
  weekly_data <- ymd(weekly_data)
  
  # 提取每周数据的年份和月份
  year <- year(weekly_data)
  month <- month(weekly_data)
  
  # 计算每周数据所在月份的总天数
  days_in_month <- days_in_month(ymd(paste(year, month, "01", sep = "-")))
  
  # 计算每周数据所在月份的小数周
  decimal_week <- week(weekly_data) + (day(weekly_data) - 1) / 7
  
  # 构建每月数据的数据框
  monthly_data <- data.frame(year, month, decimal_week)
  
  return(monthly_data)
}

# 假设有一个包含每周数据的数据框 weekly_data
weekly_data <- data.frame(date = c("2022-01-01", "2022-01-08", "2022-01-15", "2022-01-22", "2022-01-29"),
                          value = c(10, 15, 12, 18, 20))

# 调用方法/函数将每周数据转换为每月数据
monthly_data <- convert_weekly_to_monthly(weekly_data$date)

# 打印转换后的每月数据
print(monthly_data)