在给定R中多个列的值输入的情况下，编写一个函数以输出最小值、平均值和最大值

calculate_stats <- function(data) {
  min_values <- apply(data, 2, min)
  avg_values <- apply(data, 2, mean)
  max_values <- apply(data, 2, max)
  
  result <- list(min = min_values, avg = avg_values, max = max_values)
  return(result)
}

data <- data.frame(col1 = c(1, 2, 3), col2 = c(4, 5, 6), col3 = c(7, 8, 9))
result <- calculate_stats(data)

min_values <- result$min
avg_values <- result$avg
max_values <- result$max

print(min_values)
print(avg_values)
print(max_values)