如何在r中为单独的函数生成给定数量的列？

# 定义一个函数
my_function <- function(x) {
  return(x^2)
}

# 定义生成列的数量
num_columns <- 5

# 创建一个空的数据框
result <- data.frame()

# 使用循环生成列
for (i in 1:num_columns) {
  column_name <- paste0("column", i)
  result[column_name] <- my_function(i)
}

# 打印结果
print(result)

# 定义一个函数
my_function <- function(x) {
  return(x^2)
}

# 定义生成列的数量
num_columns <- 5

# 使用apply函数生成列
result <- as.data.frame(t(apply(matrix(1:num_columns, nrow = 1), 2, my_function)))

# 为列命名
colnames(result) <- paste0("column", 1:num_columns)

# 打印结果
print(result)