R代码：循环计算文件夹内作物生长季数据并提取关键指标

下面是一个实现上述功能的R代码示例：

# 导入必要的包
library(dplyr)
library(tidyr)
library(tidyverse)

# 设置文件夹路径
folder_path <- "your_folder_path"

# 获取文件夹中所有文件的文件名
file_names <- list.files(path = folder_path, pattern = "*.csv", full.names = TRUE)

# 创建一个空的数据框用于存储结果
result_df <- data.frame(year = numeric(),
                        avg_temperature = numeric(),
                        rainfall_sum = numeric(),
                        soil_moisture_diff = numeric(),
                        yield = numeric(),
                        stringsAsFactors = FALSE)

# 循环遍历每个文件
for (file_name in file_names) {
  # 读取文件
  data <- read.csv(file_name)
  
  # 计算作物生长季平均温度
  avg_temperature <- mean(data$temperature)
  
  # 计算作物生长季降雨之和
  rainfall_sum <- sum(data$rainfall)
  
  # 计算六层土壤水分的和
  soil_moisture_sum <- sum(data$soil_moisture)
  
  # 计算初始和成熟时土壤水分差值
  soil_moisture_diff <- data$soil_moisture[length(data$soil_moisture)] - data$soil_moisture[1]
  
  # 提取年份
  year <- data$year[1]
  
  # 提取成熟时的产量
  yield <- data$yield[length(data$yield)]
  
  # 将结果添加到结果数据框中
  result_df <- result_df %>%
    add_row(year = year,
            avg_temperature = avg_temperature,
            rainfall_sum = rainfall_sum,
            soil_moisture_diff = soil_moisture_diff,
            yield = yield)
}

# 将结果保存为新的csv文件
write.csv(result_df, file = "result.csv", row.names = FALSE)

请将代码中的 your_folder_path 替换为包含要处理的CSV文件的文件夹的实际路径，并将结果保存为 result.csv 文件。