R语言 把文件夹里所有txt文件中的最后一行提取出来并合并成一个新表格

可以使用以下的R代码来实现：

# 设置工作目录
setwd("your_directory_path")

# 获取文件夹中所有txt文件的文件名
file_names <- list.files(pattern = "\\.txt$")

# 定义一个函数，用于提取文件中的最后一行
extract_last_line <- function(file_path) {
  con <- file(file_path, "r")
  readLines(con, skip = max(0, length(readLines(con))-1))
}

# 提取每个文件中的最后一行并合并成一个数据框
last_lines <- sapply(file_names, extract_last_line)
last_lines_df <- data.frame(last_lines, stringsAsFactors = FALSE)

# 将结果保存为一个新的txt文件
write.table(last_lines_df, "output.txt", sep = "\t", row.names = FALSE, quote = FALSE)

这段代码会将最后一行提取出来，然后将所有最后一行组成一个新的数据框，并将其保存为output.txt文件。你需要将"your_directory_path"替换成你的文件夹路径。

相关问题

R语言 把文件夹里所有txt文件中的最后一lie提取出来并合并成一个新表格

可以使用以下代码来实现：

# 设置工作目录
setwd("your_directory_path")

# 获取所有txt文件名
file_names <- list.files(pattern = "\\.txt$")

# 创建一个空数据框用于存储最后一列
last_column_df <- data.frame()

# 循环读取每个txt文件并提取最后一列
for (i in 1:length(file_names)) {
  # 读取文件
  file_data <- read.table(file_names[i], header = TRUE, sep = "\t")
  # 提取最后一列
  last_column <- tail(file_data, 1)
  # 将最后一列添加到数据框中
  last_column_df <- rbind(last_column_df, last_column)
}

# 将所有最后一列合并成一个数据框
final_df <- as.data.frame(t(last_column_df))

# 将数据框写入新的txt文件
write.table(final_df, "merged_last_columns.txt", sep = "\t", row.names = FALSE)

这段代码首先设置工作目录，然后获取所有txt文件的文件名。然后，它创建一个空数据框来存储最后一列，循环读取每个txt文件并提取最后一列，将其添加到数据框中。最后，将所有最后一列合并成一个数据框，并将其写入一个新的txt文件中。请注意，这段代码假设所有txt文件都具有相同的列数和列名，并且它们以制表符分隔。如果不是这种情况，你需要根据你的实际情况进行修改。

R语言 对文件夹所有的txt文件中的某一列提取出来形成新的数据框导出

你可以使用以下步骤来实现：

1. 使用 R 的 `list.files()` 函数获取文件夹中所有的 TXT 文件的文件名。

file_names <- list.files("path/to/folder", pattern = "\\.txt$", full.names = TRUE)

这里，`path/to/folder` 是你的文件夹路径，`pattern` 参数用于筛选出 TXT 文件，`full.names` 参数则是返回文件的完整路径。

2. 创建一个空的数据框，用于存储提取出来的数据。

new_data <- data.frame()

3. 使用 `lapply()` 函数遍历所有的 TXT 文件，读取指定列，并将它们合并到新数据框中。

for (file in file_names) {
  data <- read.table(file, header = TRUE, sep = "\t", stringsAsFactors = FALSE)
  new_data <- rbind(new_data, data[, "column_name"])
}

这里，使用了 `read.table()` 函数读取 TXT 文件，`header` 参数用于指定是否有表头，`sep` 参数则是指定分隔符，`stringsAsFactors` 参数则是指定是否将字符型变量转换为因子型变量。然后，使用 `rbind()` 函数将提取出来的列合并到新数据框中。

4. 最后，使用 `write.table()` 函数将新数据框导出为 TXT 文件。

write.table(new_data, "path/to/new_file.txt", row.names = FALSE, col.names = FALSE, sep = "\t")

这里，`path/to/new_file.txt` 是你想要导出的文件路径，`row.names` 参数用于指定是否写入行名，`col.names` 参数则是指定是否写入列名，`sep` 参数则是指定分隔符。