使用R语言读入一个txt文本后取出第1，2，15列后保存到原文本中

你好，以下是使用 R 语言读入一个 txt 文本后取出第 1，2，15 列后保存到原文本中的代码：

# 读入文本文件
data <- read.table("your_file_path.txt", header = TRUE, sep = "\t")

# 取出第 1，2，15 列数据
data_new <- data[, c(1, 2, 15)]

# 将新数据保存到原文本中
write.table(data_new, "your_file_path.txt", sep = "\t", append = TRUE, row.names = FALSE, col.names = FALSE)

其中，`your_file_path.txt` 是你要读入的 txt 文件路径。`header` 参数为 `TRUE` 表示第一行是列名。`sep` 参数表示文本文件中列之间的分隔符。`c(1, 2, 15)` 表示要取出的列编号。`append` 参数为 `TRUE` 表示将新数据添加到原文件的末尾。`row.names` 和 `col.names` 参数表示是否保留行名和列名。

相关问题

使用R语言读入一个第一行为列名的txt文本后取出第1，2，15列后保存到原文本中

你好，以下是使用 R 语言读入一个第一行为列名的 txt 文本后取出第 1，2，15 列后保存到原文本中的代码：

# 读入文本文件
data <- read.table("your_file_path.txt", header = TRUE, sep = "\t")

# 取出第 1，2，15 列数据
data_new <- data[, c(1, 2, 15)]

# 将新数据保存到原文本中
write.table(data_new, "your_file_path.txt", sep = "\t", append = FALSE, row.names = FALSE, col.names = TRUE)

其中，`your_file_path.txt` 是你要读入的 txt 文件路径。`header` 参数为 `TRUE` 表示第一行是列名。`sep` 参数表示文本文件中列之间的分隔符。`c(1, 2, 15)` 表示要取出的列编号。`append` 参数为 `FALSE` 表示覆盖原文件。`row.names` 参数表示是否保留行名，这里设置为 `FALSE` 表示不保留。`col.names` 参数表示是否保留列名，这里设置为 `TRUE` 表示保留。

使用R语言批量读入txt文本后取出第1，2，15列后保存到原文本中

你可以使用以下R代码实现：

# 获取文件夹中所有txt文件的文件名
file_names <- list.files(path = "your_folder_path", pattern = ".txt", full.names = TRUE)

# 循环读取每个文件并提取需要的列
for (file in file_names) {
  # 读入文本文件
  data <- read.table(file, header = TRUE)
  
  # 选择需要的列
  new_data <- data[, c(1, 2, 15)]
  
  # 将新数据写入原文件
  write.table(new_data, file, sep = "\t", row.names = FALSE, col.names = TRUE)
}

在这个例子中，我们使用`list.files()`函数获取文件夹中所有扩展名为`.txt`的文件的文件名。然后，我们使用一个`for`循环逐个读取每个文件，并使用之前提到的方法提取需要的列并将其保存回原文件中。请注意，这个例子假设所有文件都具有与第一个文件相同的列名和列数，并且使用制表符作为分隔符。如果你的文件具有不同的结构，请根据需要进行修改。