label - R lattice barchart: How to write the total sum on each bar in multiple panels? -


i have lattice bar chart multiple panels , add sum of each bar on top of bars (e.g. (70) on top of first bar on top left, (20) on second one, (150) on third 1 etc.).

barchart

there similar question here not find way adapt code plot. unlike in example, add 'total sum' of men , women on top of each bar vertical bar. not label them separately using ltext shown here. suggestion, using ltext or other way, helpful.

civ1<-c("single","single","marr","marr","single","single","marr","marr","single","single","marr","marr","single","single","marr","marr") sex<-rep(c("women","men"),8) year<-rep(c(rep(1990,4),rep(2000,4)),2) type1<-c(rep("traditional",8),rep("dual-earner",8)) earn1<-c(seq(10, 160, = 10)) df<-as.data.frame(cbind(civ1,sex,year,type1,earn1)) df$earn1<-as.numeric(levels(df$earn1))[df$earn1]  my.key<-list(space="bottom",text=list(c("women","men"),col=c("black","black")), columns=2,points=t,pch=15,col=c("darkgray","lightgray"),cex=0.8) labels=c("70","20","150","110")   print(figure1<-barchart(earn1~civ1|year+type1,df,groups=sex, ylim=c(0,350),horizontal=f,col=c("darkgray","lightgray"),cex=0.8,ylab="earnings",stack=t,layout=c(2,2),key=my.key, par.settings = list(strip.background=list(col=c("white","lightyellow")), panel=function(x,y,subscripts...){     panel.grid(h=-1,v=0)      panel.barchart(...)     ltext(1,200, labels[subscripts]) #not working!     })))

i see several problems. first, panel= parameter inside par.settings parameter incorrect. should passed barchart directly. have syntax problems missing comma , i'm not sure how labels intended work 4 values. anyway, following code should work.

barchart(     earn1~civ1|year+type1,df,     groups=sex,     ylim=c(0,350), cex=0.8, ylab="earnings",     horizontal=f, stack=t, layout=c(2,2),     col=c("darkgray","lightgray"),     key=my.key,     par.settings = list(strip.background=list(col=c("white","lightyellow"))),     panel=function(x,y,subscripts,...){         panel.grid(h=-1,v=0)          panel.barchart(x,y,subscripts=subscripts,...)         t <- aggregate(y~x, data.frame(x,y), fun=sum)         panel.text(t$x,t$y, labels=t$y, pos=3)     } )

aside fixing problems described above, i've use aggregate() calculate total each column , used values plot text labels @ appropriate spot. resulting plot below

resulting plot


-

Comments

Post a Comment

Popular posts from this blog

how to proxy from https to http with lighttpd -

i have internal site (192.168.2.1) accessible http on different server run public web-server using lighttpd. can make internal site accessible outside work follows $http["host"] == "internal.example.com" { ... proxy.server = ( "" => ( "internal" => ( "host" => "192.168.2.1", "port" => 8000 ) ) } this works, use https outside world. question is, how can proxy going https http ? i've tried this: $server["socket"] == ":443" { $http["host"] == "internal.example.com" { ... proxy.server = ( "" => ( "internal" => ( "host" => "http://192.168.2.1", "port" => 8000 ) ) } } but doesn't seem wor...
Read more

android - Automated my builds -

i have multiple app , android project want automated in build , release sequence. have ant script build , create apk of app. want have 1 script or ant file start build sequence app. maybe don't konw search, can't find easy documentation on ant. the point of use jenkins ant (or maven, i'm not sure of difference between them now) automated build sequence when people commit on project. any int appreciated maven dependencies (over ant) don't need pass around jars. recommend maven on ant day. syntax , overall process easier understand, @ end of both build tools. if able to, more recommend upgrading gradle. easy create different build types , create them ./gradlew assemble here project jake wharton can see power of gradle. there release , debug build, can make lot more if like. https://github.com/jakewharton/u2020 here android docs gradle http://tools.android.com/tech-docs/new-build-system/user-guide . if can't find looking here, check out main grad...
Read more

python - Flask migration error -

i've got application build on flask , wanted create new migration today. when run $python manage.py db upgrade i got message raise util.commanderror('only single head supported. ' alembic.util.commanderror: single head supported. script directory has multiple heads (due branching), must resolved manually editing revision files form linear sequence. run alembic branches see divergence(s). so run command $alembic branches no config file 'alembic.ini' found, or file has no '[alembic]' section any clue on about? the error messages coming alembic, use command form alembic <command> , integrating flask coming flask-migrate, need use form python manage.py db branches . to resolve multiple branches, make 1 of branches point down other branch upgrade graph straight line. see alembic's docs on branches: http://alembic.readthedocs.org/en/latest/branches.html
Read more