r - Overlay barplot with 2 y Axis -

-

i want barplot overlays 2 variables (2 y axis).

this plot

enter image description here

and im looking for.

enter image description here

here data.

what used make plot.

ylim3 <- max(mesbar) + 2000 mesbar <- c(total_septiembre, total_octubre) barplot(mesbar, main = "month income",         ylim = c(0,ylim3)) grid()  > mesbar [1]  1260 12710

and want overlapp data (days worked)

> dias_trabajados_sep [1] 2 > dias_trabajados_oct [1] 22

it can done. however, keep in mind playing axis ylims , viewers misleading. trick add par(new = true) , new barplot. chose add blue color trough rgb allows transparency trough alpha argument. useful when gray bars shorter blue bars. 

mesbar <-c(1260,12710) dias <- c(2,22) ylim3 <- max(mesbar) + 2000 #mesbar <- c(total_septiembre, total_octubre) barplot(mesbar, main = "month income",         ylim = c(0,ylim3)) grid() par(new = true) barplot(dias, main = "month income", col=rgb(0,0,1, alpha=.5),xaxt = "n",yaxt="n",xlab="",ylab="", ylim=c(0,30)) axis(side=4)

enter image description here


Comments

Post a Comment

Popular posts from this blog

javascript - Slick Slider width recalculation -

-
i'm trying add slide in panel on slick container css. carousel works except new width not being calculated when space has been added. recalibrate once advance next slide i'd happen each time panel opened or closed. i've tried adding both margin , padding, neither makes difference. ideas? https://jsfiddle.net/mhigley/dpf7mlpl/ html: <button type="button" id="button"><i class="fa fa-arrow-right"></i></button> <aside> <h2>slide in panel</h2> <ol> <li>list item</li> <li>list item</li> <li>list item</li> <li>list item</li> <li>list item</li> </ol> </aside> <main role="main"> <div class="sections"> <section> <article> <h2>first slide</h2> <p>lorem ipsum d...
Read more

jsf - PrimeFaces Datatable - What is f:facet actually doing? -

-
looking through primefaces code in app noticed following line: <f:facet name="header">#{trainsearch.traincount} trains</f:facet> it looks overriding header, makes sense, can explain me in little more detail? what happening line of code? complete code listed below: <p:datatable id = "results" value = "#{trainsearch.trains}" var = "train" rendered="#{not empty trainsearch.trains}" styleclass = "train-search-table horizontal-border"> <f:facet name="header">#{trainsearch.traincount} trains</f:facet> <p:column headertext = "train id"> <p:panelgrid columns="1" styleclass = "train-id-grid" layout = "grid"> <h:outputtext styleclass = "train-id-label" value="#{train.traini}"/> <h:outputtex...
Read more

javascript - Error handling and status codes with knex in koa -

-
i'm experimenting koa , knex build restful web service, , while got basics working i'm stuck @ handling errors. i'm using koa-knex-middleware wraps knex in generator. i have following code defines happens , post requests particular resource: var koa = require('koa'); var koabody = require('koa-body')(); var router = require('koa-router')(); var app = koa(); var knex = require('./koa-knex'); app.use(knex({ client: 'sqlite3', connection: { filename: "./src/server/devdb.sqlite" } })); router .get('/equipment', function *(next){ this.body = yield this.knex('equipment'); }) .post('/equipment', koabody, function *(next){ this.body = yield this.knex('equipment').insert(this.request.body) }); app.use(router.routes()).use(router.allowedmethods()); app.listen(4000); this works in general, can't manage change http status codes. examp...
Read more