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.gra...@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.gra...@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@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@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.
______________________________________________
R-help@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.
