从不同数据结构的列表中返回函数结果。(使用lapply或sapply函数)

# 创建一个包含不同数据结构的列表
my_list <- list(
  vector = c(1, 2, 3),
  matrix = matrix(1:6, nrow = 2),
  data_frame = data.frame(a = 1:3, b = 4:6)
)

# 定义一个函数，对每个元素进行平方操作
square <- function(x) {
  return(x^2)
}

# 使用lapply函数对列表中的每个元素应用函数
result <- lapply(my_list, square)

# 打印结果
print(result)

$vector
[1] 1 4 9

$matrix
     [,1] [,2]
[1,]    1    9
[2,]    4   16

$data_frame
  a  b
1 1 16
2 4 25
3 9 36

# 使用sapply函数对列表中的每个元素应用函数
result <- sapply(my_list, square)

# 打印结果
print(result)

     vector matrix data_frame.a data_frame.b
[1,]      1      1             1             1
[2,]      4      9             4             4
[3,]      9     16             9             9