将合并文件的列命名为源文件来自的文件夹名称答案

【问题标题】：Naming the columns of a merged file equal to the folder name the source file comes from将合并文件的列命名为源文件来自的文件夹名称
【发布时间】：2018-06-21 16:43:05
【问题描述】：

我在 R 中编写了一个脚本，它将具有一列数据的文本文件组合到一个 .csv 文件中，其中所有列彼此并排列出。不幸的是，我的分析软件总是以相同的方式标记文本文件，因此所有文本文件都称为“列表”。

因此，我能够将不同的文本文件组合成一个 .csv 文件。

fileList <- list.files(path = ".", recursive = TRUE, pattern = "DistList.txt", full.names = TRUE)

listData <- lapply(fileList, read.table)

names(listData) <- gsub("DistList.txt","",basename(fileList))

library(tidyverse)
library(reshape2)

bind_rows(listData, .id = "FileName") %>%
  group_by(FileName) %>%
  mutate(rowNum = row_number()) %>%
  dcast(rowNum~FileName, value.var = "V1") %>%
  select(-rowNum) %>%

write.csv(file="Result.csv")

现在，我想更改列名，使其与文本文件所在的文件夹的名称相同。由于我还没有太多使用 R 的经验，所以我不知道该怎么做。

非常感谢您提前提供的帮助！

【问题讨论】：

标签： r filenames directory naming

【解决方案1】：

线

names(listData) <- gsub("DistList.txt", "", basename(fileList))

应该是：

names(listData) <- gsub("DistList.txt", "", fileList)

因为通过使用 basename，我们删除了所有文件夹，留下文件名 "DistList.txt"，并且使用 gsub 将文件名替换为空字符串“”。

我们实际上可能希望在下面提取最后一个目录，在这种情况下应该给出类似c("C1.1", "C1.2", ...):

names(listData) <- basename(dirname(fileList))

【讨论】：