On 2012-01-26 18:08, William T. Martin wrote:
> Has anyone used the R plot function with the panel= option under rpy2?
> I am stuck and need some assistance.
>
> The R code would have this format (zz is a zoo series):
>
> plot(zz, panel = my.panel, xaxt = "n", main="testing", xlab="Date")
>
> my.panel<- function(...) {
> fmt<- "%b-%d" # format for axis labels
> lines(...)
> panel.number<- parent.frame()$panel.number
> }
>
>
> This is what I have so far for ryp2 code:
> import rpy2.robjects as ro
> r=ro.r
> ri=ro.rinterface
> from rpy2.robjects.packages import importr
>
> zoo = importr("zoo")
> plot = r['plot']
> lines = r['lines']
> origin=r['strptime']("1970-01-01 00:00:00", "%Y-%m-%d %H:%M:%S", tz='UTC')
>
> def plot_panel(farg, *args):
>
> print "formal arg:", farg
> for arg in args:
> print "another arg:", arg
>
> fmt="%b-%d" # format for axis labels
> lines(farg)
> #panel.number<- parent.frame()$panel.number
> tt = r['time'](farg)
> print tt
> m = r['unique'](r['as.Date'](r['as.yearmon'](tt)))
>
> # wrap the function f so it can be exposed to R
> plot_panelr = ri.rternalize(plot_panel)
>
> start_time=0
> trend_data_vector=ro.FloatVector([10,20,30] * 20)
> zz=zoo.zooreg(trend_data_vector, origin, deltat=900)
> plot(zz, panel=plot_panelr, xaxt = "n", main="This is a test", xlab="Date")
> raw_input("Press any Key")
>
Here your code snippet stops with:
RRuntimeError: Error in panel(x.index, y[, i], col = col[[i]], pch =
pch[[i]], lty = lty[i], :
plot_panel() got an unexpected keyword argument 'lty'
I think that the signature for your panel should be:
def plot_panel(farg, *args, **kwargs):
For printing lattice type of graphics (I have not checked the presence
of panels suggests very much that
this is the case), you will hopefully finding enough to get by at:
http://rpy.sourceforge.net/rpy2/doc-2.3/html/graphics.html#package-lattice
L.
> Output:
> formal arg:<rpy2.rinterface.SexpVector - Python:0xb73c0c90 / R:0x8f215b0>
> another arg:<rpy2.rinterface.SexpVector - Python:0xb73c0ca0 / R:0x9a5c480>
> another arg:<rpy2.rinterface.SexpVector - Python:0xb73c0cb0 / R:0x97f5190>
> another arg:<rpy2.rinterface.SexpVector - Python:0xb73c0cc0 / R:0x97f2120>
> another arg:<rpy2.rinterface.SexpVector - Python:0xb73c0cd0 / R:0x9406d18>
> another arg:<rpy2.rinterface.SexpVector - Python:0xb73c0ce0 / R:0x9406d38>
> another arg:<rpy2.rinterface.SexpVector - Python:0xb73c0cf0 / R:0x97b80d0>
> another arg:<rpy2.rinterface.SexpVector - Python:0xb73c0d00 / R:0x984d6a8>
> [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
> 23 24 25
> [26] 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
> 48 49 50
> [51] 51 52 53 54 55 56 57 58 59 60
> attr(,"tsp")
> [1] 1 60 1
>
> I am not sure where to go from here.
>
> Thank you,
>
> Bill
>
> ------------------------------------------------------------------------------
> Keep Your Developer Skills Current with LearnDevNow!
> The most comprehensive online learning library for Microsoft developers
> is just $99.99! Visual Studio, SharePoint, SQL - plus HTML5, CSS3, MVC3,
> Metro Style Apps, more. Free future releases when you subscribe now!
> http://p.sf.net/sfu/learndevnow-d2d
> _______________________________________________
> rpy-list mailing list
> rpy-list@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/rpy-list
------------------------------------------------------------------------------
Keep Your Developer Skills Current with LearnDevNow!
The most comprehensive online learning library for Microsoft developers
is just $99.99! Visual Studio, SharePoint, SQL - plus HTML5, CSS3, MVC3,
Metro Style Apps, more. Free future releases when you subscribe now!
http://p.sf.net/sfu/learndevnow-d2d
_______________________________________________
rpy-list mailing list
rpy-list@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/rpy-list
