R lattice - trying to change labels colors with y.scale.components customisation -


i try customise lattice parallel plot, changing y axis label colors, depending on character of these same lables. created customised y.scale.components function, described in many books/forums. however, after assigning vector of new colors ans$left$labels$col parameter, default color (black) used plot.

here's code:

test2 <- read.table(textconnection("           species  evalue l1 l2  l3    daphnia.pulex  1.0e-6 17 41  35    daphnia.pulex 1.0e-10 11 30  25    daphnia.pulex 1.0e-20  4 14  17    daphnia.pulex 1.0e-35  4  8  15    daphnia.pulex 1.0e-50  1  4   8    daphnia.pulex 1.0e-75  0  2   6 ixodes.scapularis  1.0e-6  7 20 118 ixodes.scapularis 1.0e-10  6 17 107 ixodes.scapularis 1.0e-20  4  6  46 ixodes.scapularis 1.0e-35  2  3  14 ixodes.scapularis 1.0e-50  0  0   5 ixodes.scapularis 1.0e-75  0  0   2 ")->con,header=t);close(con)  #data.frame assign color data, depending on species names on y axis orga<-c("daphnia.pulex","ixodes.scapularis") color<-c("cornsilk2","darkolivegreen1" ); phylum<-c("arthropoda","arthropoda" ); colorchooser<-data.frame(orga,color,phylum)  #fonction custom rendering of left y axis labels  yscale.components.custom<-function(...) {   ans<-yscale.components.default(...)   #vector new label colors, grey60 default   new_colors<-c()   new_colors<-rep("grey60",length(ans$left$labels$labels))   # for() check labels character , assign corresponding color colorchooser data.frame   n<-1   (i in ans$left$labels$labels) {       new_colors[n]<-as.character(colorchooser$color[colorchooser$orga==i])       #got color corresponding label, colorchooser dataframe   n<-n+1   }   print(length(new_colors))   cat(new_colors,sep="\n")  #print content of generated color vector   ans$left$labels$col<-new_colors  #assign vector col parameter   ans }  #plot bwplot(   reorder(species,l1,median)~l1,       data=test2,       panel = function(..., box.ratio) {             panel.grid(h=length(colnames(cdata[,annot.arthro]))-1,v=0,col.line="grey80")             panel.violin(..., col = "white",varwidth = false, box.ratio = box.ratio )             panel.bwplot(..., fill = null, box.ratio = .07)       },       yscale.components=yscale.components.custom )

here's output of cat() command, included in yscale.components.custom function. can see, outputs 2 times color labels, vector assigned ans$left$labels$col of length 2. there second call setup y axis labels colors ? come ?

[1] 2 darkolivegreen1 cornsilk2 [1] 2 darkolivegreen1 cornsilk2

any welcome, don't undestand why colors assigned ans$left$labels$col drawn in black. change violin border colors, using same colorchooser data.frame, that's story...

after asking deepayan sarkar, ans$left$labels$col value apparently ignored during lattice execution.

i used different solution "scales" argument. unfortunately, cannot anymore rely on lattice reorder function reorder data series median.

for code mentionned above, order them manually, create vector of color corresponding order. cannot rely on lattice reordering anymore (the "reorder" in lattice formula). then, setup axix labels colors 

scales=list(col=c(color1,color2,...))

Comments

Post a Comment

Popular posts from this blog

php - Why I am getting the Error "Commands out of sync; you can't run this command now" -

the documentation of error mentioned in title says if commands out of sync; can't run command now in client code, calling client functions in wrong order. this can happen, example, if using mysql_use_result() , try execute new query before have called mysql_free_result(). can happen if try execute 2 queries return data without calling mysql_use_result() or mysql_store_result() in between. from here: http://dev.mysql.com/doc/refman/5.0/en/commands-out-of-sync.html but in first query not fetching data mysql database, inserting. , in second query getting data database. here code $connection = mysqli_connect("localhost","username","password","tbl_msgs"); if(mysqli_connect_errno($connection)) { die("failed connect mysql: " . mysqli_connect_error()); } $query = "insert users (total_comments, total_views) values ({$total_comments}, {$total_views});"; $query .= "insert msgs (no...
Read more

linux - Does gcc have any options to add version info in ELF binary file? -

i mean whether gcc can insert source code version infor elf binary section or similar. not want change source file, add info gcc option in makefile. you can emit version info text file, turn text file object file statically link executable. the first step simple have write code: script or write version info in format plain text file. write makefile rule produce version.o version.txt, using objcopy . you'll have object file 2 useful symbols defined in it: beginning , end of textual version info. add generated object executable, , you'll able access version 2 ways: running strings on binary, or writing code in application print version string (you'll need declare start , end symbols variables in header file).
Read more

java - Are there any classes that implement javax.persistence.Parameter<T>? -

i'm using named queries fetch entities database using jpa , hibernate , came across puzzling me: how come there no default implementations of javax.persistence.parameter interface? i rather impressed how @staticmetamodel used criteriabuilder in jpa2 meaning type safety , don't have mess around setting string names. wanted apply similar of jpa1 ejb's i'm working on: dealergroup_.class: public dealergroup_ { public parameter<integer> id = new parameterimpl<integer>("id"); /// etc... } dealergroupfacade.class: // ... public dealergroup fetch(integer id) { typedquery<dealergroup> query = em.createnamedquery("dealergroup.fetchbyid", dealergroup.class); query.setparameter(dealergroup_.id, query); return query.getsingleresult(); } // ... i surprised find there no implementations of parameter interface - of course, implement myself absence makes me suspicious may mistake using in way? should implementing parameter...
Read more