R代码：计算冬小麦生长季温度、降雨量和成熟产量

以下是一段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'四列数据。运行代码后，将会输出每个冬小麦生长季期间温度的平均值和降雨的和，并提取成熟时的产量。