如何从使用lapply函数获得的几个数据帧中仅获取几列？

# 创建一个包含多个数据帧的列表
df_list <- list(df1 = data.frame(A = 1:3, B = 4:6, C = 7:9),
                df2 = data.frame(A = 10:12, B = 13:15, C = 16:18),
                df3 = data.frame(A = 19:21, B = 22:24, C = 25:27))

# 定义一个函数，用于从数据帧中仅获取指定的列
get_selected_columns <- function(df) {
  selected_cols <- c("A", "C")  # 指定需要保留的列名
  selected_df <- df[, selected_cols]  # 提取指定列
  return(selected_df)
}

# 使用lapply函数遍历数据帧列表，并调用get_selected_columns函数处理每个数据帧
selected_df_list <- lapply(df_list, get_selected_columns)

# 打印处理后的数据帧列表
print(selected_df_list)