如何从R中列表中排列的多个数组中相同位置的单个向量输入连续的不同值？

# 创建一个包含多个数组的列表
my_list <- list(a = c(1, 2, 3), b = c(4, 5, 6), c = c(7, 8, 9))

# 创建一个空的向量用于存储结果
result <- c()

# 循环遍历列表中的每个数组
for (i in 1:length(my_list)) {
  # 获取当前数组
  current_array <- my_list[[i]]
  
  # 将当前数组中的值添加到结果向量中
  result <- c(result, current_array)
}

# 输出结果向量
print(result)

# 创建一个包含多个数组的列表
my_list <- list(a = c(1, 2, 3), b = c(4, 5, 6), c = c(7, 8, 9))

# 使用unlist函数将列表转换为矩阵
my_matrix <- matrix(unlist(my_list), nrow = length(my_list[[1]]), byrow = TRUE)

# 使用apply函数按行遍历矩阵，并将每行的值合并为一个向量
result <- apply(my_matrix, 1, function(x) x)

# 输出结果向量
print(result)