data_new <- data[, c(1, 2, 15)]换一种

当数据量较大时，使用 `data[, c(1, 2, 15)]` 可能会比较耗时，可以使用下面这种方式：

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

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

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

其中，`Col1Name`、`Col2Name` 和 `Col15Name` 分别是第 1、2 和 15 列的列名。这种方式可以减少取数据的时间，提高代码的效率。