返回新的dataframe，其中包含在R中的函数中创建的列，并使用用户指定的名称

# 定义函数
add_new_column <- function(df, new_column_name, new_column_values) {
  # 检查df是否为DataFrame
  if (!is.data.frame(df)) {
    stop("提供的第一个参数必须是一个DataFrame")
  }
  
  # 检查new_column_name是否为字符型
  if (!is.character(new_column_name)) {
    stop("列名必须是字符型")
  }
  
  # 检查new_column_values的长度是否与df的行数相同
  if (length(new_column_values) != nrow(df)) {
    stop("新列的值数量必须与DataFrame的行数相同")
  }
  
  # 添加新列
  df[[new_column_name]] <- new_column_values
  
  # 返回修改后的DataFrame
  return(df)
}

# 示例使用
# 创建一个示例DataFrame
example_df <- data.frame(
  A = 1:5,
  B = letters[1:5]
)

# 调用函数添加新列
result_df <- add_new_column(example_df, "C", c(TRUE, FALSE, TRUE, FALSE, TRUE))

# 打印结果
print(result_df)