写一段R代码用来计算数据文件中每个冬小麦生长季期间温度的平均值降雨的和并提取成熟时的产量冬小麦生长季定义为第一年播种到次年成熟时以一年到次年为一个Group提取

以下是一段R代码，用于计算数据文件中每个冬小麦生长季期间温度的平均值，降雨的和，并提取成熟时的产量：

# 读取数据文件
data <- read.csv("data.csv")

# 将日期列转换为日期格式
data$Date <- as.Date(data$Date, format = "%Y-%m-%d")

# 提取年份信息
data$Year <- format(data$Date, "%Y")

# 计算冬小麦生长季的起始和结束日期
data$start_date <- as.Date(paste0(data$Year, "-01-01"))
data$end_date <- as.Date(paste0(as.numeric(data$Year) + 1, "-12-31"))

# 按Group计算冬小麦生长季期间的温度平均值和降雨和
result <- aggregate(cbind(Temperature, Rainfall) ~ Year, data, 
                    FUN = function(x) c(mean = mean(x), sum = sum(x)),
                    subset = (Date >= start_date & Date <= end_date))

# 提取成熟时的产量
harvest_yield <- data[data$Date == data$end_date, "Yield"]

# 输出结果
print(result)
print(harvest_yield)

请将代码中的"data.csv"替换为您实际的数据文件名，并确保数据文件中包含"Date"、"Temperature"、"Rainfall"和"Yield"四列数据。运行代码后，将会输出每个冬小麦生长季期间温度的平均值和降雨的和，并提取成熟时的产量