similar to: lattice panel.abline use

Hi folks, I need some help in customizing the abline() function to be used in a lattice plot. I have attached a reproducible example below. I need help in the following snippet: disc <- xyplot(cnt_gt50pct_disc ~ week_num|sku_num, data=DF,type = "h",lwd=2,panel = function(...) { panel.abline(v = 8, lty = 2) panel.xyplot(...) }) Is there a way I can give

Hello and Happy New Year to all R-Users !!! I would like to plot a lattice graph with a logarthmic y axis and add two reference lines that is : ref<-c(0.0070, 0.0096) graph1<-xyplot(data$y1 ~ as.numeric(strptime(data$x1, format="%Y-%m-%d %H:%M:%S")) | as.character(data$Code), list(y = list(log = T)), xlab="X'", ylab="Y", panel = function(...) {

Hello! I'd like to have a function to draw correct grid while using log axis with xyplot from lattice package. Right now I have the following code inside of my panel function: lim <- current.panel.limits() v <- latticeExtra:::logTicks(2^lim$xlim, loc=1) h <- latticeExtra:::logTicks(2^lim$ylim, loc=1) panel.abline(h=log2(h), v=log2(v), col="LightGray") Is there an easy way

Dear R-users, I am trying to get the plyr syntax right, without much success. Given: d<- data.frame(cbind(x=1,y=seq(20100801,20100830,1))) names(d)<-c("first", "daterep") d2<-d # I can convert the daterep column in place the classic way: d$daterep<-as.Date(strptime(d$daterep, format="%Y%m%d")) # How to do it the plyr way? ddply(d2,

Dear All, I am wondering on how to use the abline.xyplot with xyplot such that I will have different vertical lines for each panel. More sepcifically, suppose that the xyplot generates 4 panels defined by the combination of two binary variables: X_1 and X_2. i.e. xyplot(Y ~ Z | X_1*X_2, data = df) I want something like: abline(v = 5) if X_1=0 and X_2 = 0 abline(v =

All, I'm trying to truncate some lines that are added to an xyplot via panel.abline to allow additional space for inserted text. According to ?panel.abline it seems like "from" and "to" will do the trick but it does not work for the sample code below. Any hints much appreciated. Cheers, David x = seq(1,8) y.1 = .6*x + 3.5 + rnorm(8, 0, .5); y.2 = .4*x + 1 + rnorm(8,0,

Well, one way to do it is xyplot(y~time|id, data=dat,type='l', panel=function(x,y,subscripts,...){ panel.xyplot(x,y,subscripts,...) panel.abline(v=dat[subscripts,"cm1"]) panel.abline(v=dat[subscripts,"cm2"]) } ) Since I don't know what the dataframe 'mergeData' is I have used 'dat'. Best regards Frede Aakmann

Dear R-users, The help does not give much details on the use of the arguments 'from' and 'to' in the panel.abline function. I have looked in the archives but did not find how to implement them. My different tries failed miserably. E.g, the following code doesn't seem to work, in a sense that the line is not limited to the (0,10) range. Do these arguments really apply to

Hi All, I need a small help plotting median lines on lattice boxplots. # Data a <- rep(c("A","B"), each=10) b <- rep(c("a","a+b","b","b+a"), each=5) c <- c(1,9,5,2,7,7,8,8,8,5,4,5,3,2,5,6,7,8,9,1) x <- data.frame(a, b, c) med.A <- median(subset(x$c, x$a=="A")) med.B <- median(subset(x$c, x$a=="B"))

Consider this data frame: dat<-data.frame(id=gl(3,5),time=rep(1:5,3),cm1=rep(c(2,3,4),each=5),cm2=rep(c(2.5,3.5,4.5),each=5),y=rnorm(15)) > dat id time cm1 cm2 y 1 1 1 2 2.5 -1.0824549 2 1 2 2 2.5 -0.7784834 3 1 3 2 2.5 -1.7783560 4 1 4 2 2.5 0.5056637 5 1 5 2 2.5 -0.1967505 6 2 1 3 3.5 1.1643136 7 2 2 3 3.5 -1.4323765 8 2

Dear all, being a relative beginner in R, I apologize for posting the second question within two days. So I want a stacked barchart, which should look like the one produced by this code: Tuvalu <- c(9,3,4,0,3,0,0) Singapor <- c(38,0,0,0,12,19,0) Samoa <- c(26,16,2,0,5,2,0) PNG <- c(56,4,0,5,2,0,56) Micronesia <- c(6,0,0,0,0,0,0) graph4 <-

Dear R listers, I am trying to create a lattice plot with independent regression lines per group for each panel, plus one overall regression line per panel. I succeed in having the separate regression lines for each group per panel, but I can't figure out how to add the overall regression line over all groups. I have learnt a lot from the list, but I can't find an example for what I want

On Friday 17 September 2004 13:52, RenE J.V. Bertin wrote: > Hello again, > > I am doing regressions (using panel.lmline() (and panel.abline( > rlm(...))) ) inside a panel method which I pass to bwplot(). > > What I would like to do is create a boxplot of categorised data > (binned on the independent variable), and superpose a regression line > which is calculated using the

Hi, I'm recently working on a multipage bwplot() using the lattice package. In this context I was trying to use the panel.abline() function individually on certain panels but not all. After some research I found the trellis.focus() and trellis.unfocus() functions which enabled me to do something like: trellis.focus("panel", 1, 3) do.call("panel.abline", list

Dear list. I have three histograms and I want to add a vertical abline in a different place in each plot. The next example will plot a vertical line at x=5.5 in the three plots: rnorm(100,5,3) -> A rnorm(100,7,3) -> B rnorm(100,4,1) -> C rep(c("A","B","C"),each=100) -> grp data.frame(G=grp,D=c(A,B,C)) -> data histogram(~ D | G, data=data,

The data are not normally distributed when untransformed and I'm trying various transformations to see if any would be appropriate to use. The lattice book (fig. 3.10) shows a 2-sample Q-Q plot with an abline but the code for the figure does not include the line. I'd appreciate a pointer to a reference on how to add an abline to a one-sample qqmath() plot in lattice. Rich

Hi,I would like add a horizontal line at 126 (col=red) and a vertical line at 6.5 ( col= blue) in each panel .How should I use the panel.abline function in the following code I am using: ------------------ library(lattice) with(reg.dat.5,coplot(lbxglu~lbxgh|eth,panel=panel.smooth,xlab="ABC", ylab="FBG")) ---------------------------------------- Thanks a lot. Professor of

Searched archives and found some old email threads on the topic. But mot exactly what I think I need. Suppose I have a datafile such as tmp. tmp <- data.frame(var1 = c(rnorm(1000), rnorm(1000, 1, 1)), var2 = gl(2, 1000)) I'd like a plot similar to the one below, but with an abline of v=0 in the lower panel and v=1 in the upper panel. Code below creates two lines in each panel, not quite

Hi, I have a lattice xyplot that contains panels according to FactorA, and curves for the 2 levels of Factor B within a panel. I try to add text in the panels of a lattice graph. I suppose I have to write a custom function (panel.txt). What I really would like is to adapt the text in the panel according to the levels of FactorA. In the manuals, I find examples for the strips using which.given

Hello all, I'm a new user on R, and I used the abline function to draw a line on my graph but it doesn't work with xyplot(). With the plot function, abline() is ok but with plot it doesn't make what I want. Maybe it's a little thing to change in plot() but I don't find what! With xyplot I write this : Xyplot(m~ordered(l,levels=1),