使用for循环从列表中提取data.frames

# 创建一个包含多个data.frame的列表
df1 <- data.frame(x = 1:3, y = 4:6)
df2 <- data.frame(x = 7:9, y = 10:12)
df3 <- data.frame(x = 13:15, y = 16:18)

my_list <- list(df1, df2, df3)

# 使用for循环从列表中提取data.frames
for (i in 1:length(my_list)) {
  if (is.data.frame(my_list[[i]])) {
    print(my_list[[i]])
  }
}

# 创建一个空列表来存储提取的data.frames
extracted_dfs <- list()

# 使用for循环从列表中提取data.frames，并存储到新列表中
for (i in 1:length(my_list)) {
  if (is.data.frame(my_list[[i]])) {
    extracted_dfs[[i]] <- my_list[[i]]
  }
}

# 打印提取的data.frames
print(extracted_dfs)