> setwd("D:\\R_Tardy")
> library()
// 1.9.6
// For help type ? or
// /Rdatatable//wikiThe fastest way to learn (by authors):
// /courses/data-analysis-the-data-table-way
> TestDT <- fread("", sep = "\t",header = FALSE, = "NA")
// 查看文件前几行
> head(TestDT)
// 重 命 名 列的名字
> colnames(TestDT) <- c("ID","num","desc")
> head(TestDT)
> df <- TestDT[TestDT$desc %in% c("Heat group"), 1:ncol(TestDT), with=FALSE]
> df1 <- (df)
> nrow(df1)转载于:https://blog./matrix6ro/1790941