> setwd("D:\\R_Tardy") > library(data.table) // data.table 1.9.6 // For help type ?data.table or // https://github.com/Rdatatable/data.table/wikiThe fastest way to learn (by data.table authors): // https://www.datacamp.com/courses/data-analysis-the-data-table-way > TestDT <- fread("test.txt", sep = "\t",header = FALSE, na.strings = "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 <- data.frame(df) > nrow(df1)免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
