设置一个工作环境，遍历这个工作环境下所有csv格式的文件，提取这些文件的第二列，并新输出文件，用r

好的，可以使用R语言中的`tidyverse`包来完成这个任务。首先需要安装和加载这个包：

install.packages("tidyverse") # 安装tidyverse包
library(tidyverse) # 加载tidyverse包

接下来，需要设置工作目录。假设你的csv文件都在`/path/to/csv/files/`目录下，可以使用`setwd()`函数设置工作目录：

setwd("/path/to/csv/files/")

接下来，可以使用`list.files()`函数列出目录下所有csv文件的文件名：

csv_files <- list.files(pattern = "\\.csv$")

上面的代码会返回一个字符向量，包含所有以`.csv`结尾的文件名。

接下来，可以使用`read_csv()`函数读取每个csv文件，并提取第二列：

cols <- c("col1", "col2") # 列名，假设第二列的列名是col2
output <- tibble() # 新建一个空数据框

for (file in csv_files) {
  # 读取csv文件
  df <- read_csv(file, col_names = cols)
  # 提取第二列
  col2 <- df$col2
  # 添加到输出数据框
  output <- bind_rows(output, tibble(col2 = col2))
}

上面的代码会新建一个空数据框`output`，然后逐个读取每个csv文件，并提取第二列，添加到`output`数据框中。`bind_rows()`函数用于将多个数据框按行合并。

最后，可以使用`write_csv()`函数将输出数据框保存为一个新的csv文件：

write_csv(output, "output.csv")

上面的代码会将`output`数据框保存为`output.csv`文件。