使用每个数据框中小于1的值将两个数据框合并为一个，并将其应用于数据框列表

# 创建两个数据框
df1 <- data.frame(A = c(0.5, 0.2, 0.8), B = c(0.3, 0.4, 0.1))
df2 <- data.frame(C = c(0.7, 0.9, 0.6), D = c(0.2, 0.1, 0.5))

# 将数据框放入列表中
df_list <- list(df1, df2)

# 定义合并函数
merge_less_than_one <- function(df) {
  # 将小于1的值合并为一个数据框
  merged_df <- data.frame(merged = unlist(df[df < 1]))
  return(merged_df)
}

# 应用合并函数到数据框列表
merged_df_list <- lapply(df_list, merge_less_than_one)