如何创建一个将函数应用于数据集中多个列的R函数？

# 创建一个将函数应用于数据集中多个列的函数
apply_function_to_columns <- function(data, columns, func) {
  result <- apply(data[, columns], 2, func)
  return(result)
}

# 示例数据集
data <- data.frame(
  col1 = c(1, 2, 3),
  col2 = c(4, 5, 6),
  col3 = c(7, 8, 9)
)

# 定义一个函数，将每列的平均值计算出来
mean_func <- function(x) {
  return(mean(x))
}

# 调用函数，将mean_func应用于col1和col2列
result <- apply_function_to_columns(data, c("col1", "col2"), mean_func)
print(result)

col1 col2 
  2.0   5.0 

# 创建一个将函数应用于数据集中多个列的函数
apply_function_to_columns <- function(data, columns, func) {
  result <- vector("numeric", length(columns))
  for (i in 1:length(columns)) {
    result[i] <- func(data[[columns[i]]])
  }
  names(result) <- columns
  return(result)
}

# 示例数据集
data <- data.frame(
  col1 = c(1, 2, 3),
  col2 = c(4, 5, 6),
  col3 = c(7, 8, 9)
)

# 定义一个函数，将每列的平均值计算出来
mean_func <- function(x) {
  return(mean(x))
}

# 调用函数，将mean_func应用于col1和col2列
result <- apply_function_to_columns(data, c("col1", "col2"), mean_func)
print(result)

col1 col2 
  2.0   5.0