r - Passing processed ... arguments to plot() via do.call() -


i trying write method extends plot() s3 object list of xy.coords() lists. flexibility use ... need process arguments therein aesthetics (namely xaxt , yaxt arguments). test function wrote below:

#test of ... expansion , modification test = function(x, ...) {   # x list of xy.coords() lists    vargs = list(...)   str(vargs)   #vargs = as.list(substitute(list(...)))[-1l]   # plotting defaults aesthetics if not explicitly set   if (!'xaxt' %in% names(vargs)) vargs[['xaxt']] = 'n'   if (!'yaxt' %in% names(vargs)) vargs[['yaxt']] = 'n'   if (!'pch' %in% names(vargs)) vargs[['pch']] = 16   if (!'cex' %in% names(vargs)) vargs[['cex']] = 0.5   print(vargs)    pargs = c(list(x=x[[1]]$x, y=x[[1]]$y), vargs)   str(pargs)    do.call(plot, pargs) # produces crazy plot bunch of text    plot(x=x[[1]], ...) # produces desired results    invisible(null) }

the call issue is:

test(y, xaxt='n', yaxt='n', pch=16, cex=0.5)

where (truncated brevity):

> y[[1]] $x   [1]  0.001111111  0.501388889  1.001388889  1.501388889  2.001388889  2.501388889  3.001388889  3.501388889  4.001388889  $y   [1] 0.132 0.123 0.126 0.143 0.145 0.123 0.128 0.131 0.140

as i've indicated in comments in test(), expanding ... list of arguments , passing list plot via do.call creates plot text scattered on - so:

strange output do.call(plot, pargs)

otherwise, passing ... directly plot want:

correct/expected plot output

is there i'm doing wrong with,

  • my processing of ...?
  • how i'm passing things do.call()?

am missing step/parameter entirely, or bug in r? session info below , in advance help.

> sessioninfo() r version 3.0.0 (2013-04-03) platform: x86_64-w64-mingw32/x64 (64-bit)  locale: [1] lc_collate=english_united states.1252  lc_ctype=english_united states.1252    lc_monetary=english_united states.1252 [4] lc_numeric=c                           lc_time=english_united states.1252      attached base packages: [1] stats     graphics  grdevices utils     datasets  methods   base       other attached packages: [1] groan_1.0      roxygen2_2.2.2 digest_0.6.3    loaded via namespace (and not attached): [1] brew_1.0-6    stringr_0.6.2 tools_3.0.0

edit

here more copy+paste compatible version of problem

#test of ... expansion , modification test = function(x, method=c('do.call', 'dots'), ...) {   # x list of xy.coords() lists    vargs = list(...)   str(vargs)   #vargs = as.list(substitute(list(...)))[-1l]   # plotting defaults aesthetics if not explicitly set   if (!'xaxt' %in% names(vargs)) vargs[['xaxt']] = 'n'   if (!'yaxt' %in% names(vargs)) vargs[['yaxt']] = 'n'   if (!'pch' %in% names(vargs)) vargs[['pch']] = 16   if (!'cex' %in% names(vargs)) vargs[['cex']] = 0.5   print(vargs)    pargs = c(list(x=x[[1]]), vargs)   str(pargs)    method = match.arg(method)   switch(method,           do.call={            do.call(plot, pargs) # produces crazy plot bunch of text          }, dots={            plot(x=x[[1]], ...) # produces desired results          })    invisible(null) }  y = list(xy.coords(runif(100), runif(100)))  # produces crazy plot bunch of text test(y, method='do.call', xaxt='n', yaxt='n', pch=16, cex=0.5)  # produces desired results test(y, method='dots', xaxt='n', yaxt='n', pch=16, cex=0.5)

resolution

the solution @shadow fixed problem. alternative specify ann=false argument in list passed do.call().

the problem axis labels. doing similar

plot(x=c(0.001111111, 0.501388889, 1.001388889, 1.501388889, 2.001388889, 2.501388889, 3.001388889, 3.501388889, 4.001388889, 0.501388889, 1.001388889, 1.501388889, 2.001388889, 2.501388889, 3.001388889, 3.501388889, 4.001388889, 0.501388889, 1.001388889, 1.501388889, 2.001388889, 2.501388889, 3.001388889, 3.501388889, 4.001388889, 0.501388889, 1.001388889, 1.501388889, 2.001388889, 2.501388889, 3.001388889, 3.501388889, 4.001388889, 0.501388889, 1.001388889, 1.501388889, 2.001388889, 2.501388889, 3.001388889, 3.501388889, 4.001388889, 0.501388889, 1.001388889, 1.501388889, 2.001388889, 2.501388889, 3.001388889, 3.501388889, 4.001388889, 0.501388889, 1.001388889, 1.501388889, 2.001388889, 2.501388889, 3.001388889, 3.501388889, 4.001388889))

to fix problem assign labels yourself:

if (!'xlab' %in% names(vargs)) vargs[['xlab']] = names(x[[1]][2]) if (!'ylab' %in% names(vargs)) vargs[['ylab']] = names(x[[1]][1])

Comments

Post a Comment

Popular posts from this blog

basic authentication with http post params android -

i doing basic authentication passing username , password , using basicnamevaluepair sending post params response service. my method: public stringbuilder callservicehttppost(string username, string password, string type) { // create new httpclient , post header httpclient httpclient = new defaulthttpclient(); httppost httppost = new httppost(webservice + type); httpresponse response = null; stringbuilder total = new stringbuilder(); try { url url = new url(webservice + type); /*string base64encodedcredentials = base64.encodetostring((username + ":" + password).getbytes(), base64.url_safe | base64.no_wrap);*/ string base64encodedcredentials = "basic " + base64.encodetostring( (username + ":" + password).getbytes(), base64.no_wrap); httppost.setheader("auth...
Read more

vb.net - Virtual Keyboard commands -

i wondering difference between virtual these keyboard commands is: keyeventf_extendedkey , keyeventf_keyup is. everywhere have looked gives me description based off integers , not want know each of them does. you've tagged question vb.net, these have nothing @ vb.net. they're constants defined in windows header files, use win32 api functions. as far difference, can't tell looking @ values. individual values not particularly important, that's why named identifiers used. what's important used , documentation functions tells mean. the first one, keyeventf_extendedkey , used keybdinput structure (which used along e.g. sendinput function) pass information synthesized keyboard input. if flag used, means scan code should interpreted extended key. technically, means scan code preceded prefix byte value 224 (&he0 in hexadecimal notation). the second one, keyeventf_keyup , 1 of flags available use structure. means key being released (going up)...
Read more

How to get multiresult with multicondition in Sql Server -

i need solve this. hopefully can giving me advices. for sample, i've got data : proclib.march 1 first 10 rows flight date depart orig dest miles boarded capacity ----------------------------------------------------------------- 114 01mar94 7:10 lga lax 2475 172 210 202 01mar94 10:43 lga ord 740 151 210 219 01mar94 9:31 lga lon 3442 198 250 622 01mar94 12:19 lga fra 3857 207 250 132 01mar94 15:35 lga yyz 366 115 178 271 01mar94 13:17 lga par 3635 138 250 302 01mar94 20:22 lga 229 105 180 114 02mar94 7:10 lga lax 2475 119 210 202 02mar94 10:43 lga ord 740 120 210 219 02mar94 9:31 lga lon 344...
Read more