r中数据帧的多个.txt列表

我有一个包含44.txt文件（…/data）的文件夹。我想在一个数据帧中收集这44个文件中包含的数据。这就是我所做的：

setwd("/Users/setegonz/MEGAsync/ProjetoUFABC-master/results")
library(tidyverse)
list_of_files <- list.files(path = "/Users/setegonz/MEGAsync/ProjetoUFABC-master/data", recursive = TRUE, pattern = "\\.txt$", full.names = TRUE)

df <- list_of_files %>%
  set_names(.) %>%
  map_df(., read_table, .id = "FileName")

setwd（“/Users/setegonz/MEGAsync/projetoufac master/results”）
图书馆（tidyverse）
列出\u个文件%
map_df（，read_table，.id=“FileName”）

这是我的输出：

我想实现两件事：
1.两个单独的变量将我在第二列中分组的所有变量分成单独的列。
2.两种方法将标识名缩短为“sub_01”、“sub_2”等

我希望通过使用tidiverse方法来实现这一点

谢谢

看一看，它获取一个列表并返回一个数据帧，结果行绑定在一起。 下面是一个例子：

tibble(a = seq(1,10)) %>% write_csv("tmp.csv")
rep("tmp.csv", 3) %>% map_dfr(., read_csv)

最后一个命令返回一个包含30行（3个tmp.csv副本）的数据帧。我怀疑：

map_dfr(list_of_files, read_csv)

将完全执行您想要的操作。

看一看，它将获取一个列表并返回一个数据帧，结果行绑定在一起。 下面是一个例子：

tibble(a = seq(1,10)) %>% write_csv("tmp.csv")
rep("tmp.csv", 3) %>% map_dfr(., read_csv)

最后一个命令返回一个包含30行（3个tmp.csv副本）的数据帧。我怀疑：

map_dfr(list_of_files, read_csv)

---

将完全执行您想要的操作。

将有助于拆分您的列。我只需要使用

gsub（）

替换ID列中的所有重复文本。

df%set\u names（.）%%>%map\u dfr（，read\u table，.ID=“FileName”）%%>%separate（，c（2），“，”）

告诉我：现在我有多个列，但所有列都包含所有变量。应该有助于拆分列。我只需要使用

gsub（）

替换ID列中的所有重复文本。

df%set\u names（.）%%>%map\u dfr（，read\u table，.ID=“FileName”）%%>%separate（，c（2），“，”）

告诉我：现在我有多个列，但所有列都包含所有变量。map\u dfr给我的结果与map\u dfmap\u dfr给我的结果与map\u dfr给我的结果相同