Combining RBokeh and Trelliscope

[Nicholas Knauer]

Hi,

 

I have been playing around with rBokeh and Trelliscope a lot since Ryan’s presentation at RMeetup in NYC. Is there a way to combine both? So basically I create a plot in R using RBokeh and then I want facet it into panels using Trelliscope.

 

Any recommendations?

 

Also, if that is not possible, is there a way to change the format of the plots in Trelliscope in the original R Code? For example, the current plots have a purple and blue circle as the plot points, I was looking to change one of the plot points to bright red.

 

Thanks,

 

Nick Knauer

[White, Amanda M]

I know we’ve used rbokeh with trelliscope before. Ryan has a brief example here: http://tessera.io/blog/quick-interactive-faceting/ where he’s used the housing example data.

 

Amanda

--
You received this message because you are subscribed to the Google Groups "Tessera-Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to tessera-user...@googlegroups.com.
To post to this group, send email to tesser...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/tessera-users/DM2PR0401MB127789796499F5DDEE160A7CAD890%40DM2PR0401MB1277.namprd04.prod.outlook.com.
For more options, visit https://groups.google.com/d/optout.

[Saptarshi Guha]

The details might not make sense, but hope you get the structure


library(rbokeh)
library(trelliscope)

conn <- vdbConn("~/tmp/talos", name = "talosIndices",verbose=TRUE)

splitter <- divide(dall ,by=c('suite','test','platform','och','opts'))
makeDisplay(splitter
          , name = "FullData", desc = "Full Data UnTransformed"
          , panelFn = function(x){
              a1 <- figure(500,400)
              a1 <- ly_points(a1,as.Date(x$push2), x$mean)
              ly_lines(a1, x=as.Date(rep("2015-04-06",2)),range(x$mean), col='red')
          }
          , width = 500, height = 400
          , lims=prepanel(splitter,prepanelFn=function(x){
                              list(xlim=as.numeric(range(x$push2)), ylim=range(x$mean))
                          }))

To view this discussion on the web visit https://groups.google.com/d/msgid/tessera-users/6B6D2FD9D75F534B887A9948DFB1B48D1A13DE6B%40EX10MBOX03.pnnl.gov.