search for: shingl

Dear all, back in 2002 Martin Henry H. Stevens wrote (https://stat.ethz.ch/pipermail/r-help/2002-May/019851.html) > How do I control the text in strips? Specifically, I want to put in the > ranges generated in shingle(x) where x is continuous. with an answer from Deepyan Sarkar (see strip.new towards the end of this message). I assume that the answer worked back then, but I've tried to implement it today, with little success. I think that it may have to do with namespaces - but I'm not sure. Here is...

I'm interested in a version of tapply() that operates with shingles instead of factors. For instance: x <- c(1,1,2,2,3,3) y <- c(1,1,1,0,0,0) s <- shingle(x,intervals=cbind(c(0.5,1.5),c(2.5,3.5))) # the following function should exist! tapply.shingle(x,s,mean) # returns the vector c(0.75,0.25) I've written such a function as follows: tappl...

Hello (R-)Experts I hope someone can help with this problem concerning axis annotation of a lattice shingle plot. I want a plot with three shingles to display some laboratory value over time. In the first panel over the first few days, then in the next panel some months, and in the last panel some years. In the following minimal example the axis annotation will be in days, but I'd like to have days...

How do I control the text in strips? Specifically, I want to put in the ranges generated in shingle(x) where x is continuous. Thanks, Hank Martin Henry H. Stevens, Assistant Professor 338 Pearson Hall Botany Department Miami University Oxford, OH 45056 Office: (513) 529-4206 Lab: (513) 529-4262 FAX: (513) 529-4243 http://www.muohio.edu/~botcwis/bot/henry.html -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-...

I know that I can get a count of histogram bins in base R with plot=FALSE. However, I'd like to do the same thing with lattice. The problem is that I've set up shingles, and I'd like to get the count within each bin within each shingle. plot=FALSE doesn't seem to do it. [[alternative HTML version deleted]]

Hello! Suppose I have a set of values: a <- c(1:10, 5:10) Suppose I also have a set of intervals: b <- cbind(c(0,2.5,4.5,6.5), c(5.5,7.5,9.5,11)) I can create a shingle that counts how many values are in each interval: c <- shingle(a, b) I can display the shingle to see the counts: summary(c, showValues=FALSE) The display looks like this: Intervals: min max count 1 0.0 5.5 6 2 2.5 7.5 8 3 4.5 9.5 10 4 6.5 11.0 8 Overlap between adjac...

...: --- cut here --- Error in library.dynam(lib, package, package.lib) : shared library 'lattice' not found In addition: Warning messages: 1: In loadNamespace(package, c(which.lib.loc, lib.loc), keep.source = keep.source) : package 'lattice' contains no R code 2: S3 methods ?[.shingle?, ?as.data.frame.shingle?, ?plot.shingle?, ?print.shingle?, ?summary.shingle?, ?as.character.shingleLevel?, ?print.shingleLevel?, ?print.trellis?, ?plot.trellis?, ?update.trellis?, ?dim.trellis?, ?dimnames.trellis?, ?dimnames<-.trellis?, ?[.trellis?, ?t.trellis?, ?summary.trellis?, ?print.summa...

...ot appearance new.dot=trellis.par.get("box.dot") new.rectangle=trellis.par.get("box.rectangle") new.umbrella=trellis.par.get("box.umbrella") new.symbol=trellis.par.get("plot.symbol") new.strip.background=trellis.par.get("strip.background") new.strip.shingle=trellis.par.get("strip.shingle") new.dot$pch="|" new.dot$col="black" new.rectangle$col="black" new.rectangle$fill="grey65" new.umbrella$col="black" new.umbrella$lty=1 # Continous line, not dotted new.symbol$col="black" new.strip...

...raphics offers coplot, utilizing the co.intervals routine to break up the series into equal chunks. Lattice has equal.count as a wrapper for co.intervals. As you can see in the example below, I can recreate a 'coplot' with lattice but am having difficulty getting the x-axis of the shingle plot and the strip labeling on the xyplot to be in time or date format. My question really consists of two parts, with the second part being less important for my data visualization purposes: 1) How might I be able to convert the x-axis of the shingle plot from numeric to date format? 2)...

Hi all, By default a call to xyplot from the Lattice package when using 2 factors [eg xyplot( dv~iv | XY * AB ) ] yields the following shingle structure: |_A_|_A_|_B_|_B_| |_X_|_Y_|_X_|_Y_| However, I'm wondering if it is possible to merge the upper shingle within levels of that factor, as in: |___A___|___B___| |_X_|_Y_|_X_|_Y_| Mike -- Mike Lawrence Graduate Student, Department of Psychology, Dalhousie University www.memet...

I am using R 2.4.0 and lattice to produce some xyplots conditioned on a factor and a shingle. The shingle merely chops up the data along the x-axis, so it is easy to identify which part of the shingle a panel is in by looking at the x-axis markings. I only want to have a strip at the top for the factor. Is this possible? I looked into calculateGridLayout() and it seems to me that the...

...os mingw32 system i386, mingw32 status major 1 minor 7.0 year 2003 month 04 day 16 language R > n<-900 > my.data<-data.frame(x=1:n,y=rnorm(n)) > my.shingle<-shingle(my.data$x,cbind(0:8*100,1:9*100)) > xyplot(y~x|my.shingle,data=my.data,as.table=T,scales=list(x=list(relation="sliced")),layout=c(1,2)) > xyplot(y~x|my.shingle,data=my.data,as.table=T,scales=list(x=list(relation="sliced")),layout=c(1,3)) > xyplot(y~x|my.shi...

Dear R-help, Has anyone implemented sparklines in the strips of a lattice plot? What I have in mind is, say, highlighting that part of a time series that one is examining in more detail in a set of lattice plots. Regads,. Mark Difford. PS: (Andreas Loffler has implemented a simple but functional version for TeX/LaTeX: http://www.tug.org/tex-archive/help/Catalogue/entries/sparklines.html)

...uthor of lattice I think, who solved my first query. I am afraid that I have another one. I am plotting several mutipanels boxplots (with one conditioning variable) on one page. The x, y and conditioning variable are all continuous variables. The x and conditioning variables are transformed to shingles before being plotted. The plot looks nice but there are two changes that I cannot manage to do. 1- The labels displayed on the y axis are of course the categories of the shingle. I would like to display instead the actual intervals of the shingle. Is that possible? 2- It is even worse for th...

The patch below attempts to correct some unclear sentences in the R documentation. In the case of coplot.Rd it wasn't clear whether "shingle" bar had a special meaning or was a typo for "single". I've just put a comment in that case. regards -- Brian Gough Network Theory Ltd -- Publishing Free Software Manuals 15 Royal Park Bristol BS8 3AL United Kingdom Tel: +44 (0)117 3179309 Fax: +44 (0)117 9048108 Web: http:/...

I would like to produce a chart that looks like a Gantt chart (or shingle plot), but instead of tasks you have variable names and instead of start and finish dates you have an upper and lower numeric value. If that makes sense, is there an obvious way of doing this. Thanks, Graham

Hi, I want to use (similar to) las options in lattice (bwplot) plot. Actually I want to have x-axis labels as vertical instead of default horizontal. Thanks in advance for your help. Mahbub

I have a plot similar to the following library(lattice) stripplot(1:15, rep(1:3, each=5)) In order to save space for a presentation, I would like to have horizontal strips instead of vertical. The argument 'horiz' turns the arguments around, but not the plot. The documentation for 'stripplot' ('xyplot'), 'panel.stripplot' and the FAQ do not seem to provide

...lot(y ~ x | p, groups = factor(gg, levels = c('1', '5', '2', '4', '3')), strip = strip.custom(var.name = 'g', factor.levels = c(1', '5', '2', '4', '3'), strip.levels = T, strip.names = T, sep = ' = ', shingle.intervals = NULL), data = df, type = 'b', label.curves = F, layout = c(2, 3), ) Currently this puts the panels as follows 3 2 4 1 5 I need: 3 2 4 1 5 How can I do this? Any help will be much appreciated. _____________________________ Professor Michael Kubovy University o...

Hi, why doesn't this work properly when 'positions' is a vector of strings? All the data sets get totally mixed... positions <- rep ( c("1","2","3","4","5","6","9","10","11","12","13","14", "error", "no trial"), 45 ) compound <- matrix(