R语言中设计一个函数，该函数接收一个数据框

在R语言中，设计一个函数来处理数据框（data frame），通常需要考虑输入验证、数据分析操作以及可能的输出。下面是一个简单的例子，创建一个名为`analyze_data_frame`的函数，它接受一个数据框作为输入，计算描述性统计并返回结果：

analyze_data_frame <- function(df) {
  # 输入验证
  if (!is.data.frame(df)) {
    stop("Input must be a data frame.")
  }
  
  # 检查数据框是否为空
  if (nrow(df) == 0) {
    return("Data frame is empty.")
  }

  # 计算描述性统计
  summary_stats <- sapply(df, function(x) list(mean = mean(x, na.rm = TRUE), median = median(x, na.rm = TRUE), 
                                             min = min(x, na.rm = TRUE), max = max(x, na.rm = TRUE)))

  # 返回结果
  return(summary_stats)
}

# 使用示例
my_df <- data.frame(col1 = c(1, 2, 3, NA), col2 = c('a', 'b', 'c', 'd'))
result <- analyze_data_frame(my_df)
print(result)
#