2010-10-20 22:00:54| 分类: R&Bioconductor | 标签: |举报 |字号大中小 订阅
par(las=2, xpd=NA)
barplot(VADeaths[1:2,], angle = c(45, 135),
density = 20, col = "grey",
names=c("RM", "RF", "UM", "UF"),
horiz=TRUE,space=0, axes=FALSE)
par(las=1,xpd=NA)
axis(1)
axis(2,labels=FALSE)
help(barplot)
x<-c(52,2387,380,348,1259,170,347,461,67,1990,82,139,172,1,149,849,2246,1459,60,163,6,141,604,215,1120,25,21,37,3976,3005,12,93,66,162,98,109,123,136,375,644,478,416,766,1042,336,1160,380,393,1045,470,112,19,429,147,1,87,134,1054,189,51,835,1357,3807,115,54,2,105,160,38,194,15,58,7,16,16,47,2006,15,68,3311,523,18,1368,1356,1820,694,62,158,43,61,86,1,271,12,25)
par(las=2)
par(mar=c(4,10,3,2))
barplot(x,col="violet",cex.names=0.4,
names=c("reproduction","nucleotide binding","molecular_function","nucleic acid binding","DNA binding","chromatin binding",
"transcription factor activity","RNA binding","motor activity","catalytic activity","nuclease activity",
"signal transducer activity","receptor activity","receptor binding","structural molecule activity","transporter activity",
"binding","protein binding","cellular_component","extracellular region","extracellular space","cell wall","intracellular","cell","nucleus",
"nuclear envelope","nucleoplasm","nucleolus","cytoplasm","mitochondrion","endosome","vacuole","peroxisome","endoplasmic reticulum",
"Golgi apparatus","cytosol","ribosome","cytoskeleton","plasma membrane","carbohydrate metabolic process","precursor metabolites and energy","nucleic acid metabolic process","DNA metabolic process","transcription","translation","protein modification process","derivative metabolic process",
"lipid metabolic process","transport","response to stress","cell cycle","cell communication",
"signal transduction","multicellular organismal development","behavior","translation factor activity",
"biological_process","metabolic process","cell death","lipid binding","catabolic process","biosynthetic process",
"plastid","thylakoid","response to external stimulus","tropism","response to biotic stimulus","response to abiotic stimulus","anatomical structure morphogenesis",
"response to endogenous stimulus","embryo development","post-embryonic development","ripening","pollination","pollen-pistil interaction","flower development",
"cellular process","response to extracellular stimulus","photosynthesis","membrane","cellular component organization","cell growth","kinase activity","transferase activity","hydrolase activity","protein metabolic process","cellular homeostasis",
"secondary metabolic process","cell differentiation","enzyme regulator activity","carbohydrate binding","external encapsulating structure","transcription regulator activity","growth","regulation of gene expression"),
horiz=TRUE, axes=TRUE,xlim=c(0,4000),space=0,,width=1)
#par(las=1,xpd=NA)
#axis(side=1,)
#axis(2,labels=FALSE)
x1<-c(52,2387,380,348,1259,170,347,461,67,1990)
par(las=2)
par(mar=c(4,9.4,3,2))
barplot(x1,col="violet",cex.names=0.8,
names=c("reproduction","nucleotide binding","molecular_function","nucleic acid binding","DNA binding","chromatin binding",
"transcription factor activity","RNA binding","motor activity","catalytic activity"), horiz=TRUE, axes=TRUE,xlim=c(0,2500),space=0,width=1)
评论