On Jun 7, 2012, at 10:23 AM, maxbre wrote:

thanks kimmo

I managed to get the desired result by first plotting the medians and then
adding the means through the user defind function posted in thread you
mentioned (here it is
http://r.789695.n4.nabble.com/Adding-mean-line-to-a-lattice-density-plot-td4455770.html#a4456502)

# start

dotplot(variety ~ yield | site, data = barley,
       scales=list(x=list(log=TRUE)),
       layout = c(1,6),
       panel = function(x,y,...) {
         panel.dotplot(x,y,...)
         median.values <- median(x)
         panel.abline(v=median.values, col.line="red")
         })

addLine<- function(a=NULL, b=NULL, v = NULL, h = NULL, ..., once=F) {
 tcL <- trellis.currentLayout()
 k<-0
 for(i in 1:nrow(tcL))
   for(j in 1:ncol(tcL))
     if (tcL[i,j] > 0) {
       k<-k+1
       trellis.focus("panel", j, i, highlight = FALSE)
if (once) panel.abline(a=a[k], b=b[k], v=v[k], h=h[k], ...) else
         panel.abline(a=a, b=b, v=v, h=h, ...)
       trellis.unfocus()
     }
}

mean.values<-tapply(barley$yield, barley$site, mean)

addLine(v=log10(mean.values), once=TRUE, col="blue", lty="dotted")

# end

but back to my previous question I still not understand why the plot of medians is working fine BUT NOT of the means (apparently messing up panel
positions and also values): no clue for this!

Can you explain what you mean by "messing up panel positions and also values"? When I execute this code with and without the two code lines for mean vertical lines I get expected results:

dotplot(variety ~ yield | site, data = barley,
       scales=list(x=list(log=TRUE)),
       layout = c(1,6),
       panel = function(x,y,...) {
         panel.dotplot(x,y,...)
         mean.values <- mean(x)   #omitted in second run
panel.abline(v=mean.values, col.line="red") #omitted in second run
         median.values <- median(x)
         panel.abline(v=median.values, col.line="blue")
         })

---------------
David.

sessionInfo()
R version 2.14.2 (2012-02-29)
Platform: x86_64-apple-darwin9.8.0/x86_64 (64-bit)

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
[1] parallel splines stats grDevices utils datasets graphics methods base

other attached packages:
[1] lme4_0.999375-42 Matrix_1.0-5 ggplot2_0.9.0 forecast_3.19 [5] RcppArmadillo_0.2.36 Rcpp_0.9.10 fracdiff_1.4-0 tseries_0.10-27 [9] quadprog_1.5-4 zoo_1.7-6 MASS_7.3-17 circular_0.4-3 [13] boot_1.3-4 rms_3.5-0 Hmisc_3.9-2 survival_2.36-12
[17] sos_1.3-1            brew_1.0-6           lattice_0.20-6

loaded via a namespace (and not attached):
[1] cluster_1.14.2 colorspace_1.1-0 dichromat_1.2-4 digest_0.5.1 fortunes_1.4-2 [6] grid_2.14.2 memoise_0.1 munsell_0.3 nlme_3.1-103 plyr_1.7.1 [11] proto_0.3-9.2 RColorBrewer_1.0-5 reshape2_1.2.1 rgl_0.92.861 scales_0.2.0
[16] stats4_2.14.2      stringr_0.6        tools_2.14.2       vcd_1.2-12



I've been trying also with the use of layout() in latticeExtra but without
results...

anyone can clarify me these (strange for me) issues?

max




--
View this message in context: 
http://r.789695.n4.nabble.com/how-to-add-a-vertical-line-for-each-panel-in-a-lattice-dotplot-with-log-scale-tp4632513p4632692.html
Sent from the R help mailing list archive at Nabble.com.

______________________________________________
R-help@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

______________________________________________
R-help@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.

Reply via email to