[R] calling plot

[Bert Gunter]

Well, this may not be the most elegant, but how about:

 plotxy <- function(x,data = NULL,...) {
   mcall <- match.call()
   if(inherits(x,"formula")) enc <- environment(x)
    else enc <- parent.frame()
   if(!is.null(data)){
        env <- data
        mcall <- mcall[-match("data",names(mcall))]
   } else env <- NULL
   mcall[[1]] <- plot.default
   eval(mcall,envir=env,enclos=enc)
}

Cheers,
Bert

P.S. I would welcome more elegant solutions (especially if this one
doesn't work right!)
Bert Gunter

"The trouble with having an open mind is that people keep coming along
and sticking things into it."
-- Opus (aka Berkeley Breathed in his "Bloom County" comic strip )


On Mon, Feb 8, 2016 at 8:10 PM, Spencer Graves
<spencer.graves at effectivedefense.org> wrote:
> Hi, Jeff et al.:
>
>
> On 2/8/2016 9:52 PM, Jeff Newmiller wrote:
>> plotxy(y1~x1, XY, xlim=c(0, max(XY$x1)))
>
>
>        Yes, Thanks.
>
>
>        Is there a way to do this from within "plotxy", so I can call
> "plotxy" as I call "plot"?
>
>
>        Thanks,
>        Spencer
>
>
>> --
>> Sent from my phone. Please excuse my brevity.
>>
>> On February 8, 2016 7:17:57 PM PST, Spencer Graves
>> <spencer.graves at effectivedefense.org> wrote:
>>
>>     I'm getting an interesting error:
>>
>>
>>         plotxy <- function(x, ...){
>>
>>     +   plot(x, ...)
>>     + }
>>
>>         XY <- data.frame(x1=1:3, y1=4:6) plotxy(y1~x1, XY, xlim=c(0,
>>         max(x1)))
>>
>>        Show Traceback
>>
>>        Rerun with Debug
>>        Error in eval(expr, envir, enclos) : object 'x1' not found
>>
>>
>>             The following work:
>>
>>
>>     plotxy(y1~x1, XY)
>>     plot(y1~x1, XY, xlim=c(0, max(x1)))
>>
>>
>>             Within "plotxy", R can't find "x1" to compute "xlim".  Is there a
>>     way I can make x1 available to xlim?
>>
>>
>>             Thanks,
>>             Spencer
>>
>>     ------------------------------------------------------------------------
>>
>>     R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
>>     https://stat.ethz.ch/mailman/listinfo/r-help
>>     PLEASE do read the posting guidehttp://www.R-project.org/posting-guide.html
>>     and provide commented, minimal, self-contained, reproducible code.
>>
>
>         [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.