我想提取R中列表中每个元素的列

my_list <- list(data.frame(a = 1:3, b = 4:6), data.frame(c = 7:9, d = 10:12))

# 使用$符号提取列
for (i in 1:length(my_list)) {
  column <- my_list[[i]]$a
  print(column)
}

# 使用[[ ]]运算符提取列
for (i in 1:length(my_list)) {
  column <- my_list[[i]][["a"]]
  print(column)
}

my_list <- list(data.frame(a = 1:3, b = 4:6), data.frame(c = 7:9, d = 10:12))

# 使用lapply函数提取列
columns <- lapply(my_list, function(x) x$a)
print(columns)