Agricultural Production Data Analysis: Minimum and Maximum Values for Plant and Harvest Seasons

library(dplyr)

# 读取数据
data <- read.csv('data.csv')

# 添加统计信息列
data <- data %>%
  mutate(statistics = ifelse(sets == 'plant', pmin(Barley, Barley.Winter, Cassava, Cotton, Groundnuts, Maize.2, Maize, Millet, Oats, Oats.Winter, Potatoes, na.rm = TRUE),
                             ifelse(sets == 'harvest', pmax(Barley, Barley.Winter, Cassava, Cotton, Groundnuts, Maize.2, Maize, Millet, Oats, Oats.Winter, Potatoes, na.rm = TRUE), NA)))

# 输出结果
print(data)

注意，上述代码中的'data.csv'应替换为实际数据文件的路径。