R语言-data management-选取子集

setwd("Downloads/transcriptom/new/co-expression network")

darkred <- read.table("CytoscapeInput-edges-darkred.txt",header = TRUE )

head(darkred)

subdata <- subset(darkred, toNode == "evm.TU.Contig10143.353"
|toNode == "evm.TU.Contig5252.988"
|toNode == "evm.TU.Contig5252.495"
|toNode == "evm.TU.Contig5386.748"
|toNode == "evm.TU.Contig8624.763"
|toNode == "evm.TU.Contig10143.770"
)
write.csv(subdata, file = "Prx-coexpression net work.csv")

你可能感兴趣的:(R语言-data management-选取子集)