使用R将每日时间序列分解为每小时值

# 导入时间序列数据
data <- read.csv("daily_data.csv")

# 将日期列转换为时间序列对象
data$Date <- as.Date(data$Date)
ts_data <- ts(data$Value, frequency = 365)

# 进行时间序列分解
decomposed <- decompose(ts_data)

# 获取分解后的趋势、季节性和残差
trend <- decomposed$trend
seasonal <- decomposed$seasonal
residual <- decomposed$random

# 将每小时值重新组合
hourly_values <- rep(seasonal, each = 24) + trend + residual