> setwd("/Users/qiao/Documents/R_test_two/new_test")
// 读取所有数据
> allData <- read.delim("all.test.tab.txt", header = T)
> colnames(allData)[1] <- "name"
> new_d2 <- scan("data2.txt")
Read 45 items
> new_d2
// ......
// which 函数选择相应的行
> freq_d2 <- allData[which(allData$name %in% new_d2),]
> nrow(freq_d2)
[1] 45
> ncol(freq_d2)
[1] 221
> new_d3 <- scan("g3.txt")
Read 30 items
// subset函数选择相应的行
> freq_d3 <- subset(allData, name %in% new_d3)
> nrow(freq_d3)
[1] 30
> typeof(allData$name)
[1] "integer"
// 如果只选择一行数据, 可以直接用等号, 以下是针对字符串的用法
> allData$name <- as.character(allData$name)
> freq_d3_2 <- subset(allData, name == "106")
// 把数据写入文件
> write.table(data_2, file = "result_data.txt", quote = FALSE, sep = "\t", row.names = FALSE)