search for: simplethem

Dear list, I try to set a secondary y-axis in a lattice xyplot. This works. However, I am unable to set a proper legend/key together with the 2nd y-axis under general xyplot procedures. See example below. The combination of the par.settings with simpleTheme and other settings seems to go wrong. I couldn't find a solution from previous topics. Any suggestions? thanks in advance! Robbert #data example inp3<-data.frame(group=rep(LETTERS[1:4],4), GF=as.vector(sapply(1:4,function(x)rep(x,4))), val=c(rep(c(2,3,7,8),2),rep(c(2,3,7,8),2)*1.1)) req...

...ol=="dec",] > dec.gr <http://dec.gr> <- xyplot( >                   V5 ~ dia >                  ,groups=con >                  ,data=dec.df >                  ,type="l", pch=1 >                  ,main="DEC" >                  ,par.settings=simpleTheme(col=colores , col.line=colores) >                  ,auto.key=list(title= "Con",space="right",border=F, >                                > columns=1,cex=0.7,lines=T,points=F,col=colores) >                  ,scales=list(x=list(relation='same'), > y=list(rel...

...; value for specifying the border with for *symbols* (for lines it works fine). Example: ----- # Base graphics works fine (gives a 'fat? circle) plot(5, cex=10, pch=21, lwd=10) # But 'xyplot' or 'dotplot' doesn't library(lattice) xyplot(4:5~4:5, groups=4:5, par.settings = simpleTheme(cex=10, pch=21, lwd=5), auto.key=TRUE) ----- For 'xyplot' or 'dotplot' the border stays thin no matter what I set 'lwd' to. However, the symbols shown in the *legend* has the 'lwd' correctly applied. How can I fix this? Or is it simply a bug in the ...

...<- mat[mat$sol=="dec",] dec.gr <- xyplot( V5 ~ dia ,groups=con ,data=dec.df ,type="l", pch=1 ,main=list(label="Dec", cex=0.9, x = .175, y = -4.5) ,par.settings=simpleTheme(col=colores , col.line=colores) ,auto.key=list(title="Concentration(mM)",space="right",border=F, columns=1,cex=0.8,lines=T,points=F,col=colores) ,scales=list(x=list(relation='same'), y=list(relation='same'), cex=1.2) ,ylab=&qu...

I would like to use lattice graphics to plot multiple functions (or groups or subpopulations) on the same plot region, using different line types "lty" or colors "col" to distinguish the functions (or groups). In traditional graphics, this seems straightforward: First plot all the data using 'type="n"', and subsequently execute a series of "points"

...colores<-c("black", "green", "red", "steelblue", "purple") #creamos el vector de 5 colores que usaremos para unificar luego la leyenda y el grafico xyplot(V5 ~ dia | sol, groups=con, layout=c(1, 3), type= "l", pch=1, par.settings=simpleTheme(col=colores, col.line=colores), auto.key=list(title= "Con",space="right",border=F, columns=1,cex=0.7,lines=T,points=F,col=colores), scales=list(x=list(relation='same'), y=list(relation='same')), data=mat, strip.left = T, as.table = T, between =...

 Buenos dias a todos, agradeceria que alguien me resolviera esta duda Quiero disminuir la fuente en este grafico para que se puedan leer los titulos. El codigo del grafico es este xyplot(ejemplares ~ año|  categoria, groups=puerto, pch=16,     auto.key=list(border=TRUE), par.settings = simpleTheme(pch=16),   scales=list(x=list(relation='same'), y=list(relation='same')),  data=p2) Gracias y saludos pepeceb ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20101203/7aa06...

...olumns=1) , xlab=list("Solvent concentration (%v/v)", cex=1.2), ylab=list("saturated / unsaturated ratio", cex=1.2) , aspect=(1/3), ylim = c(-0.1, 0.7), scales=list(cex=1.1) , panel=function(...) { panel.xYplot(...,type =c("p"),lty =1.5, label =FALSE) } , par.settings= simpleTheme( , pch=c(0,1,2,5) , cex = 1) , layout=c(1,2) ) y como se observa en el grafico adjunto, el "titulo" de ambos paneles dice "dia", lo que es correcto. Sin embargo, como se ve en el codigo son dos dias diferentes. Luego la pregunta es. como podria hacer para que ese titulo diga...

...pch=16,     auto.key=list(columns=12,    main="ANK N",  horizontal= F,                                             cex=0.8, size=1.4, adj=1,                          between=0.2, between.colums=0.1,                          size = 1.3, points = FALSE, rectangles = TRUE), par.settings = simpleTheme(pch=16),   scales=list(x=list(relation='same'), y=list(relation='same')),  data=Datos) ------------ próxima parte ------------ Se ha borrado un adjunto en formato HTML... URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20110128/0df79a53/attachment.html>...

...n color no queden sobre puestos sobre puntos de otro color y los tapen? 2. Cree una subase en donde no existe M2 ni M3, sin embargo, me sigue apareciendo en las etiquetas del gráfico, a pesar de que le estoy indicando que lea la subase (d1) d1=fi[c(1:45),] xyplot(pH~Dia, *data=d1*, par.settings=simpleTheme(pch=7), auto.key=list(columns=3), group=tratamiento) Muchas gracias por su ayuda Atentamente: Ricardo B [[alternative HTML version deleted]]

...elblue", "purple") dec.df <- mat[mat$sol=="dec",] dec.gr <- xyplot( V5 ~ dia ,groups=con ,data=dec.df ,type="l", pch=1 ,main="DEC" ,par.settings=simpleTheme(col=colores , col.line=colores) ,auto.key=list(title= "Con",space="right",border=F, columns=1,cex=0.7,lines=T,points=F,col=colores) ,scales=list(x=list(relation='same'), y=list(relation='same')) ) lim.df <...

...ored rectangles. # Sample Data: Names Col1 Col2 Col3 Row1 -20 40 -10 Row2 30 -20 40 Row3 30 10 -20 Row4 20 20 -10 # R Code: dta<-read.table("data.txt", header=TRUE, row.names="Names") barchart(data.matrix(dta), horizontal=FALSE, stack=TRUE, par.settings = simpleTheme(col = 3:5), auto.key=list(space="right", rectangles=TRUE, points = FALSE), border=NA, scales = list(relation="free", y = list(at = yScale)), panel=function(x,y,...) { panel.abline(h=c(yScale), col.line="gray") panel.barchart...

...urated / unsaturated ratio", cex=1.2, font=2) > , aspect=(1/3), ylim = c(-0.1, 0.7), scales=list(cex=1.1) > > , panel=function(...) > { > panel.xYplot(...,type =c("p"),lty =1.5, label =FALSE) > } > , par.settings= simpleTheme( pch=c(0,1,2,5) , cex = 1) > , par.strip.text=list(col="blue", font=2, cex=1.2) > , layout=c(1,2) > ) > #--------------------------------- > > Saludos, > Carlos Ortega > www.qualityexcellence.es <http://www.qualityexcellence.es> > > &gt...

...E x <- data.frame(group = genotype, lower = lower, est = plant.height, upper = upper) library(latticeExtra) segplot(reorder(genotype, est) ~ lower + upper, data = x, draw.bands = FALSE, centers = est, segments.fun = panel.arrows, ends = "both", angle = 90, length = 0, par.settings = simpleTheme(pch = 19, col = 1), xlab = expression("nucleotide diversity " %+-% " sd"), panel = function(x, y, z, ...) { panel.abline(h = z, col = "grey", lty = "dashed") panel.abline(v = 14.20, col = "grey") panel.segplot(x, y, z, ...)}) -- View this me...

Hi R Users, I'm trying to plot a stacked barplot. Here is data: Sample Col1 Col2 Col3 Row1 -2 4 -1 Row2 3 -2 4 Row3 3 5 -2 Row4 4 1 -1 I'm using following R code: library(lattice) dta<-read.table("data.txt", header=TRUE, row.names="Sample") barchart(data.matrix(dta), horizontal=FALSE, stack=TRUE, col=2:4,

...?????????????????? y = 0.95, ???????????????????????? x = 0.15, ???????????????????????? default.units = "npc", ???????????????????????? just = c("left"), ???????????????????????? gp = gpar(fontsize = 12,fontface="bold") ) ?????????????????????? }, ??? par.settings = c(simpleTheme(lty=1:8, col="black",lwd=2),list(layout.heights = list(main = 1.2, ?????????????????????? sub? = 0, ?????????????????????? axis.top = 0.2, ?????????????????????? top.padding? = 0.1, ?????????????????????? bottom.padding = 0)) ), ??????? auto.key = list(x = 0.2, y = 0.9, ??????? cex = 0.7...

...ol space between barchart and legend. I've read the package's specification, but unfortunately I haven't spot the information how to do this. Here's the code I've written: barchart(mymatrix[,1:ncol(mymatrix)],horizontal=FALSE, box.width=1,stack=TRUE,border=FALSE,par.settings = simpleTheme(col =my_colors),lty="dotted",lend="butt",key=list(space="bottom",columns=ncol(mymatrix),points=FALSE,text=list(colnames(mymatrix)),rectangles=list(border=FALSE,size=2,col=my_colors[1:ncol(mymatrix)]),border=FALSE,rows=1,between=0.25)) Thank you for any assistance....

...t; > > > dta<-read.table("data.txt", header=TRUE, row.names="Names") > > library(lattice) > > yScale <- seq(-200, 200, 10) > > barchart(data.matrix(dta), > >       horizontal=FALSE, > >       stack=TRUE, > >       par.settings = simpleTheme(col = 3:5), > >       auto.key=list(space="right"), > >       border=NA, > >     scales = list(y = list(at = yScale)) > > ) > > > > Thanks, > > Peng > > > > On Wed, Dec 2, 2009 at 5:44 PM, Felix Andrews <felix@nfrac.org> wrote:...

...inea ya esta agregada en el codigo): dec.gr <- xyplot( V5 ~ dia ,groups=con ,data=dec.df ,type="l", pch=1 ,main=list(label="Dec", cex=0.9, x = .175, y = -4.5) ,par.settings=simpleTheme(col=colores , col.line=colores) ,auto.key=list(title= "Concent. (mM)",space="right",border=F, columns=1,cex=0.8,lines=T,points=F,col=colores) ,scales=list(x=list(relation='same'), y=list(relation='same'), cex=1.2)...

...+rnorm(10) data1<-data.frame(x,y,type=rep("data",length(x))) model1<-lm(y~x,data=data1) data2<-data.frame(x=seq(0,6,.1)) data2$y<-predict(model1,newdata=data2) data2$type<-rep("model",nrow(data2)) dataT<-rbind(data1,data2) dataT require(lattice) confMisc1<- simpleTheme(pch = c(19,1),lwd=c(2,1),cex=1.5, lty=1,col=c("black")) xyplot(y~x,group=type, type=c("p","l"), key=list(space="right",text=list(c("Data","Model")), points=list(pch=c(as.integer(NA),19)),...