R语言 把文件夹里所有txt文件中的最后一lie提取出来并合并成一个新表格
时间: 2023-08-10 10:05:20 浏览: 51
可以使用以下代码来实现:
```R
# 设置工作目录
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文件都具有相同的列数和列名,并且它们以制表符分隔。如果不是这种情况,你需要根据你的实际情况进行修改。
相关推荐
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)