r - Moving table created by annotation_custom with geom_bar plot -


i tried searching answers couldn't find anything.

i have have plot , want add table within plot itself. can table ends being right in middle.

it possible relocate table created annotation_custom if x-axis discrete? if so, how?

thank you!

for example, want relocate table. 

library(ggplot2) library(gridextra)  my.summary <- summary(chickwts$weight) my.table   <- data.frame(ids = names(my.summary), nums = as.numeric(my.summary)) ggplot(chickwts, aes(feed, weight)) +        geom_bar(stat = "identity")  +        annotation_custom(tablegrob(my.table))

the custom annotation in ggplot2 can rearragned inside plotting area. @ least moves them out of center. maybe solution sufficient you. i'll try , tweak this. should possible put outside plotting area well.

library(ggplot2) library(gridextra)  my.summary <- summary(chickwts$weight) my.table   <- data.frame(ids = names(my.summary), nums = as.numeric(my.summary)) ggplot(chickwts, aes(feed, weight)) +        geom_bar(stat = "identity")  +        annotation_custom(tablegrob(my.table), xmin=5,xmax=6,ymin=300,ymax=1300)

edit:

to place table outside plot, regardless of plot consists of, grid package used:

library(ggplot2) library(gridextra) library(grid)  # data my.summary <- summary(chickwts$weight) my.table   <- data.frame(ids = names(my.summary), nums = as.numeric(my.summary))  # plot items my.tgrob <- tablegrob(my.table) plt <- ggplot(chickwts, aes(feed, weight)) +           geom_bar(stat = "identity")  # layout vp.layout <- grid.layout(nrow=1, ncol=2, heights=unit(1, "null"),   widths=unit(c(1,9), c("null","line")) )  # start drawing grid.newpage() pushviewport(viewport(layout=vp.layout, name="layout")) # plot pushviewport(viewport(layout.pos.row=1, layout.pos.col=1, name="plot")) print(plt, newpage=false) upviewport() # table pushviewport(viewport(layout.pos.row=1, layout.pos.col=2, name="table")) grid.draw(my.tgrob) upviewport()  #dev.off()

quick png


Comments

Post a Comment

Popular posts from this blog

javascript - Jquery show_hide, what to add in order to make the page scroll to the bottom of the hidden field once button is clicked -

i have button on website when clicked, reveals map. button can seen when page first loads up, when clicked, section holding map slides open , goes out of screen since page loads @ top (normal). want page scroll down bottom of div select when button pushed, if map out of screen. if page scrolled down, , clicks show map button, don't want page jump bottom of map. i tried figure out myself, no luck. seasoned jquery coders able give me guidance? many thanks! map = mapdiv.gmap3("get"); infobox = new infobox({ pixeloffset: new google.maps.size(-220, -310), closeboxurl: '', enableeventpropagation: true }); mapdiv.delegate('.infobox .close','click',function () { infobox.close(); }); jquery(".slidingdiv").hide(); jquery(".show_hide").show(); jquery('.show_hide').click(function(){ lastcenter=map.getcenter(); jquery(".slidingdiv&quo
Read more

javascript - Highcharts multi-color line -

Image
i looking create highchart multi-colored line. if goes down under value, become red, , when comes on value, become green . here picture example: or maybe highcharts have other charts models differentiate high or low level color? you can achieve coloring using lineargradient coloring: color: { lineargradient: { x1: 0, x2: 0, y1: 0, y2: 1 }, stops: [ [0, 'red'], [0.25, 'yellow'], [0.50, 'green'], [0.75, 'yellow'], [1, 'red'] ] } here 0 in stops relates minimum value of series , 1 maximum value, , in between percentages between values. if find percentages according values prior creating chart use correct stops values make relate specific values in data (at least approximately). see this jsfiddle example .
Read more

javascript - Enter key does not work in search box -

tried search guys sorry. input in search box doesnt work (or search) when hit enter when user clicks search button. doing wrong? here code. thanks. <script type="text/javascript"> $(document).ready(function() { $("#submit").click(function() { var url = "http://asla.org/awardssearch.html"; url += "?s=" + $('#googlecse').val(); window.location = url; }); $('#googlecse').keydown(function(event) { if (event.keycode == '13') { $("#submit").click(); } else { //do nothing :) } }); }); </script> <form class="navbar-form navbar-right" role="search"> <div class="search"> <input id="googlecse" type="text" onblur="if(this.value=='')this.value=this.defaultvalue;" onfocus="if(this.value==this.defaultvalue)t
Read more