어떻게 분류 x 축없이 ​​막대 그래프를 플롯 격자를 사용하는

Question

가능한 중복 :
how to plot a bar chart with non-sorted x-axis (lattice)

가 나는 막대 그래프를 플롯합니다. 그러나 격자에서 정렬되지 않은 x 축으로 그릴 방법을 모르겠습니다. 기본적으로 격자는 예상하지 못한 x 데이터를 정렬합니다. 다음과 같이

내 코드가 나타났다됩니다

코드 :

go=data.frame(number_of_Unigene=c(45,5328,30,30,119,3248,16594,244,4354,3547,917,429,3716,30,15726,4182,1673,877,30,30,640,4808,2462,2437,7812,190,2001,30,44,19852,1763,19852,31,30,686,30,3698,9829,3432,1439,15252,6024,1753,216,15917,15103,30,433,319,30,522,708,30,102,30,613,1039,30,2478),class=c("biological adhesion","biological regulation","carbon utilization","cell killing","cell proliferation","cellular component organization or biogenesis","cellular process","death","developmental process","establishment of localization","growth","immune system process","localization","locomotion","metabolic process","multicellular organismal process","multi-organism process","negative regulation of biological process","nitrogen utilization","pigmentation","positive regulation of biological process","regulation of biological process","reproduction","reproductive process","response to stimulus","rhythmic process","signaling","sulfur utilization","viral reproduction","cell","cell junction","cell part","extracellular matrix","extracellular matrix part","extracellular region","extracellular region part","macromolecular complex","membrane","membrane part","membrane-enclosed lumen","organelle","organelle part","symplast","antioxidant activity","binding","catalytic activity","channel regulator activity","electron carrier activity","enzyme regulator activity","metallochaperone activity","molecular transducer activity","nucleic acid binding transcription factor activity","nutrient reservoir activity","protein binding transcription factor activity","protein tag","receptor activity","structural molecule activity","translation regulator activity","transporter activity"),Ontology=c("biological_process","biological_process","biological_process","biological_process","biological_process","biological_process","biological_process","biological_process","biological_process","biological_process","biological_process","biological_process","biological_process","biological_process","biological_process","biological_process","biological_process","biological_process","biological_process","biological_process","biological_process","biological_process","biological_process","biological_process","biological_process","biological_process","biological_process","biological_process","biological_process","cellular_component","cellular_component","cellular_component","cellular_component","cellular_component","cellular_component","cellular_component","cellular_component","cellular_component","cellular_component","cellular_component","cellular_component","cellular_component","cellular_component","molecular_function","molecular_function","molecular_function","molecular_function","molecular_function","molecular_function","molecular_function","molecular_function","molecular_function","molecular_function","molecular_function","molecular_function","molecular_function","molecular_function","molecular_function","molecular_function")) 

다음

library(lattice) 
barchart(go[,1]~go[,2],horiz=F,ylim=c(30,29666),layout=c(1,1),stack=F, 
auto.key=list(space='right'),ylab="Number of unigenes", 
scales=list(x=list(rot=45),y=list(log=T))) 

내가 다른 무엇을해야합니까?

Answer 1

한 가지 방법은 데이터에 표시되는 방법으로 요인 b$class의 수준을 다시 정렬하는 것입니다

newClass <- factor(go$class, levels = unique(go$class)) 

플롯 :

library(lattice) 
barchart(go[,1]~newClass,horiz=F,ylim=c(30,29666),layout=c(1,1),stack=F, 
     auto.key=list(space='right'),ylab="Number of unigenes", 
     scales=list(x=list(rot=45),y=list(log=T)))