循环遍历R中的列表时计算年度性能统计信息

performance_list <- list(
  year_2018 = data.frame(
    month = c("Jan", "Feb", "Mar"),
    performance = c(100, 150, 200)
  ),
  year_2019 = data.frame(
    month = c("Jan", "Feb", "Mar"),
    performance = c(120, 180, 220)
  ),
  year_2020 = data.frame(
    month = c("Jan", "Feb", "Mar"),
    performance = c(130, 160, 190)
  )
)

yearly_stats <- list()

for (i in 1:length(performance_list)) {
  year <- names(performance_list)[i]
  data <- performance_list[[i]]
  
  yearly_stats[[year]] <- list(
    mean = mean(data$performance),
    median = median(data$performance),
    max = max(data$performance),
    min = min(data$performance)
  )
}

for (i in 1:length(yearly_stats)) {
  year <- names(yearly_stats)[i]
  stats <- yearly_stats[[i]]
  
  cat("Year:", year, "\n")
  cat("Mean Performance:", stats$mean, "\n")
  cat("Median Performance:", stats$median, "\n")
  cat("Max Performance:", stats$max, "\n")
  cat("Min Performance:", stats$min, "\n\n")
}