写一段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 <- data %>% 
  group_by(Year) %>% 
  mutate(Start_Date = min(Date),
         End_Date = max(Date[Month == "June"])) %>%
  ungroup()

# 提取冬小麦生长季的数据
winter_wheat_data <- data %>%
  filter(Date >= Start_Date & Date <= End_Date)

# 计算温度平均值
avg_temperature <- mean(winter_wheat_data$Temperature)

# 计算降雨和
total_precipitation <- sum(winter_wheat_data$Precipitation)

# 提取成熟时的产量
mature_yield <- winter_wheat_data$Yield[winter_wheat_data$Date == End_Date]

# 输出结果
cat("平均温度:", avg_temperature, "\n")
cat("降雨和:", total_precipitation, "\n")
cat("成熟时的产量:", mature_yield, "\n")

请确保将代码中的"data.csv"替换为您实际的数据文件名，并且数据文件应包含以下列：Date（日期），Temperature（温度），Precipitation（降雨），Yield（产量），Month（月份）