plot - Using gradient displays for histograms in r -

-

i have dataset (n = 9,141,954) looks this

data<-c(rep(1, times=401),rep(2,times=443789),rep(3,times=5276376),rep    (4,times=3003895),rep(5,times=404108),rep(6,times=13181),rep(7,times=205))

which histogram looks this:

hist(data,prob=t,breaks=5)

from left right, want display colours "darkgreen" "chartreuse4" "yellowgreen" "yellow" "orange2" "red" , "red3"

which know can using col=c("darkgreen","chartreuse4", ....etc), display these colours gradient across histogram, weighted relative contribution of each of values dataset. example, value = 1 makes 0.004% of cell values (401/9141954*100), , value = 4 makes 32.9% of data. therefore, gradient display have 0.004% assoicated "darkgreen" 32.9% associated "yellow", , on rest of values/colours.

does know how can done???

something this?

res <- hist(data,breaks=5) plot(res)  cols <-c("darkgreen","chartreuse4","yellowgreen","yellow","orange2","red","red3") colcombos <- data.frame(embed(cols,2)[,2:1],nums=round(res$density*600)) selcols <- unlist(              apply(colcombos,1,function(x) colorramppalette(c(x[1],x[2]))(x[3]))            )  dens <- 100 bar.dens <- 1/100  rect(  seq(1,7-bar.dens,bar.dens),  0,  seq(1+bar.dens,7,bar.dens),  rep(res$counts,each=dens),  col=selcols,  border=na )  plot(res,add=true)

result, doesn't exciting unfortunately, colours there, if plot barplots of uniform height:

enter image description here

enter image description here


Comments

Post a Comment

Popular posts from this blog

python - Subclassed QStyledItemDelegate ignores Stylesheet -

-
i'm trying subclass qstyleditemdelegate remove focus rectangle in qcombobox . even though i'm calling base implementation of paint function , nothing else, result different. looks if parts of style-sheet influence bounding box of item taken consideration. class pstyleditemdelegate(qstyleditemdelegate): def __init__(self, *args, **kwds): super(pstyleditemdelegate, self).__init__(*args, **kwds) def paint(self, *args, **kwargs): qstyleditemdelegate.paint(*args, **kwargs) what have paint unmodified qstyleditemdelegate ? as suggested tried replacing pyside pyqt4 , works, appears bug. update pyside 1.1.2 1.2.1 result same. unfortunately switch breaks other parts of code, if there no other suggestions i'm going accept answer. edit bug tracked here
Read more

java - HttpClient 3.1 Connection pooling vs HttpClient 4.3.2 -

-
i have used httpclient3.1(java) connection pooling below : import org.apache.commons.httpclient.httpclient; import org.apache.commons.httpclient.multithreadedhttpconnectionmanager; import org.apache.commons.httpclient.params.httpclientparams; import org.apache.commons.httpclient.params.httpmethodparams; import org.apache.log4j.logger; public class httpclientmanager { private static logger logger = logger.getlogger(httpclientmanager.class); private static multithreadedhttpconnectionmanager connectionmanager = new multithreadedhttpconnectionmanager(); private static httpclientparams clientparams = new httpclientparams(); static { try { clientparams.makelenient(); clientparams.setauthenticationpreemptive(false); clientparams.setparameter(httpmethodparams.so_timeout, new integer(30000)); // set so_timeout clientparams.setparameter(httpmethodparams.head_body_check_timeout, new integer(3000)); // head responses
Read more

SQL: Divide the sum of values in one table with the count of rows in another -

-
is possible to, in single query, sum bunch of values in 1 table, , divide count of rows in another? there common id/key in both tables... fyi, win points least info provided in question. answer it's possible...here psuedo code since i'm guessing @ tables , columns select summing / counting whynot (select id, sum(whatever) summing where_ever ) inner join (select id, count(1) counting what_ever)b on a.id = b.id question = 'vague' group a.id
Read more