R语言数据分析：添加统计信息列，求最小值和最大值

你可以使用以下代码来添加一列统计信息：

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

# 根据plant行求出最小值
min_values <- aggregate(data[, 5:14], by = list(data$admin, data$iso_a3), FUN = min)
colnames(min_values) <- c('admin', 'iso_a3', 'min_Barley', 'min_Barley.Winter', 'min_Cassava', 'min_Cotton', 'min_Groundnuts', 'min_Maize.2', 'min_Maize', 'min_Millet', 'min_Oats', 'min_Oats.Winter', 'min_Potatoes')

# 对harvest行求出最大值
max_values <- aggregate(data[, 5:14], by = list(data$admin, data$iso_a3), FUN = max)
colnames(max_values) <- c('admin', 'iso_a3', 'max_Barley', 'max_Barley.Winter', 'max_Cassava', 'max_Cotton', 'max_Groundnuts', 'max_Maize.2', 'max_Maize', 'max_Millet', 'max_Oats', 'max_Oats.Winter', 'max_Potatoes')

# 合并最小值和最大值数据
merged_data <- merge(min_values, max_values, by = c('admin', 'iso_a3'))

# 添加统计信息列
merged_data$min_stat <- apply(merged_data[, 3:14], 1, min, na.rm = TRUE)
merged_data$max_stat <- apply(merged_data[, 15:26], 1, max, na.rm = TRUE)

# 输出结果
write.csv(merged_data, 'output.csv', row.names = FALSE)

请确保将代码中的'your_file.csv'替换为你的实际文件路径。代码将在当前工作目录中生成一个名为'output.csv'的新文件，其中包含添加了统计信息的数据。