plot - R: Graphing a table plan -

-

general goal

i placing guests around tables according set of rules. goal, in post, have handy function display names of these guests around respective tables on r graphic.

input data

guests describes position of each guest @ each table. note number of guests per table varies.

guests = list(    table_1 = c("jack", "christelle", "frank", "john s.", "lucia"),    table_2 = c("george", "amanda", "alice", "laura", "john h."),    table_3 = c("jeanette", "elizabeth", "remi", "fabian", "urs", "emma"),    table_5 = c("roger", "marry", "henrique", "claire", "julia"),    table_6 = c("alphonse", "marie", "dani", "rachel") )

table_positions indicate each table should positioned on graph. assume here each axis goes 0 10, point c(5,5) @ center of graph.

table_positions = data.frame(   y_position=c(3,2,3,7,8,7),   x_position=c(3,5,7,3,5,7) )

details of graphic

i suggest tables represented circles centered @ position indicated data.frame table_positions. names of each guest should written around these tables following list guests.

placement of tables :

require(plotrix) plot(x = table_positions$x_position      ,y= table_positions$y_position      ,xlim=c(0,10),ylim=c(0,10),pch=".") draw.circle(table_positions$x_position,         radius=0.5,         table_positions$y_position)

enter image description here

guests positioning :

for(i in 1:length(guests)){   table<-as.vector(unlist(guests[i]))   postable<-c(table_positions$x_position[i],table_positions$y_position[i])   nbguest<-length(table)   for(j in 1:nbguest){     text(x=postable[1]+round(0.5*cos((2*j/nbguest)*pi),2),          y=postable[2]+round(0.5*sin((2*j/nbguest)*pi),2),          labels=guests[[i]][[j]],          cex=0.5)   }  }

enter image description here

i added table4 1 pepole named "bla".
can specify text size cex option (here 0.5).


Comments

Post a Comment

Popular posts from this blog

sql - invalid in the select list because it is not contained in either an aggregate function -

-
i can't figure out rewrite sql statement avoid error below msg 8120, level 16, state 1, line 26 column 'staffmember.staffmemberid' invalid in select list because not contained in either aggregate function or group clause. sql statment select (select [dbo].[udf_readstaffmemberbasic](sm.staffmemberid) xml path ('staffmembersummary'), root ('items'), type ), count(sm.staffmemberid) totalresults, ceiling(cast(count(sm.staffmemberid) decimal)/ @pagesize) totalpages staffmember sm inner join staffmembertoadditionalrole ar on sm.staffmemberid = ar.staffmemberid (sm.firstname '%' + @name + '%' or sm.surname '%' + @name + '%') , (@floorid null or sm.floorid = @floorid) , (@directorateid null or sm.directorateid = @directorateid) , (@additionalroleid null or ar.additionalroleid = @additionalroleid) order sm.staffmemberid offset @page * @pagesize rows fe...
Read more

Angularjs unit testing - ng-disabled not working when adding text to textarea -

-
i trying test angularjs component using karma, mocha, power-assert. have textarea , button in component, button disabled based on length of text in textarea. when run component in browser works perfectly. can't figure out how test functionality. here's bit of code. inquiryform.js function inquiryform($scope) { // plan add logic here } angular.module('myapp').component('inquiryform', { controller: inquiryform, controlleras: 'inquiryform', templateurl: 'inquiryform.html' }); inquiryform.html <div class="contact"> <div>thanks contacting us.</div> <form> <textarea ng-model="inquiryform.inquirytext" name=""></textarea> <input type="submit" value="send" ng-disabled="!inquiryform.inquirytext.length"> </form> </div> inquiryformtest.js describe('inquiry form ', () => { let $r...
Read more

How to start daemon on android by adb -

-
can me please, head swollen... i trying run daemon on android emu/device command: adb -s <device_name> shell su -c /dir/daemon <port_number> but nothink happens, , no errors! if do: adb -s <device> shell and form shell cmdline: su -c /dir/daemon <port_number> than work fine. try use shell-script , run: adb -s <device_name> shell sh su -c /dir/script.sh <port_number> and try generate script qt code port number , use: adb -s <device_name> shell sh su -c /dir/script.sh but not helped... problem if enter adb shell previous run daemon - work. problem on different device/emu/iso_image different command format not work. example: adb -s <device_name> shell su -c /dir/daemon <port_number> // work @ emu, not @ iso and vice: adb -s <device_name> shell su -c "/dir/daemon <port_number>" // work @ iso etc. everybody can answer what's matter? sorry english adb shell su -c ...
Read more