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, layout=c(3,1), nint=50, panel=function(x,...){ panel.histogram(x,...) panel.abline(v=5.5) }) But I'd like to plot a vertical line at 5.5 in plot A, 6.5 in plot B and 4.5 in plot C. How can I do that? Thanks in advance.. A. [[alternative HTML version deleted]]
David Winsemius
2010-Oct-13 01:13 UTC
[R] Lattice: arbitrary abline in multiple histograms
On Oct 12, 2010, at 8:21 PM, Alejo C.S. wrote:> 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, layout=c(3,1), nint=50, > panel=function(x,...){ > panel.histogram(x,...) > panel.abline(v=5.5) > }) > But I'd like to plot a vertical line at 5.5 in plot A, 6.5 in plot B > and > 4.5 in plot C. How can I do that?histogram(~ D | G, data=data, layout=c(3,1), nint=50, panel=function(x,subscripts,groups,...){ panel.histogram(x,...) panel.abline(v=c(5.5, 6.5, 4.5)[packet.number()]) })> > Thanks in advance.. > > A. > > [[alternative HTML version deleted]] > > ______________________________________________ > R-help at r-project.org mailing list > 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.David Winsemius, MD West Hartford, CT