将自定义函数应用于R中的列

# 创建一个数据框
data <- data.frame(a = c(1, 2, 3), b = c(4, 5, 6), c = c(7, 8, 9))

# 自定义函数，将每个元素乘以2
multiply_by_two <- function(x) {
  return(x * 2)
}

# 使用apply()函数将自定义函数应用于列
result <- apply(data, 2, multiply_by_two)
print(result)

library(dplyr)

# 创建一个数据框
data <- data.frame(a = c(1, 2, 3), b = c(4, 5, 6), c = c(7, 8, 9))

# 自定义函数，将每个元素乘以2
multiply_by_two <- function(x) {
  return(x * 2)
}

# 使用mutate()函数将自定义函数应用于列
result <- data %>% mutate(new_column = multiply_by_two(a))
print(result)