similar to: xyplot second y-xis and legend

I'm trying to set up a lattice plot with two y-axes for each panel. (Yes, I know that multiple y-axes are generally a bad idea; the graph is for someone else and they want it that way.) I've used a custom yscale.component in xyplot to achieve this: myyscale.component <- function(...) { ans <- yscale.components.default(...) ans$right <- ans$left foo <-

quantreg package is used. *fit1 results are* Call: rq(formula = op ~ inp1 + inp2 + inp3 + inp4 + inp5 + inp6 + inp7 + inp8 + inp9, tau = 0.15, data = wbc) Coefficients: (Intercept) inp1 inp2 inp3 inp4 inp5 -0.191528450 0.005276347 0.021414032 0.016034803 0.007510343 0.005276347 inp6 inp7 inp8 inp9 0.058708544

Hi R Users, I'm using following data/code (data is also attached) to produce a stacked barplot. *I need help with changing legend boxes, currently I'm using "rectangles=TRUE". Is it possible to get small squares instead -- may be with a small gap between colored squares.* Currently there is no gap between the colored rectangles. # Sample Data: Names Col1 Col2 Col3 Row1 -20 40

Dear All, I try to invoke a second program (called "gencont") within a R script. However this second program needs some time to finish. After finishing the output should be read into R and used for further calculation. Under windows, it perfectly works: result<-shell("gencont < yn.txt",intern=TRUE,wait=TRUE) # R waits untill the program finishes (apporx 3 min) and

I HAVE BEEN ASKED TO BE REMOVED FROM THIS LIST OVER 20 TIMES, PLEASE CAN I BE REMOVED!!!!!!!!!!!!! --- On Thu, 3/12/09, Peng Cai <pengcaimaillist@gmail.com> wrote: From: Peng Cai <pengcaimaillist@gmail.com> Subject: Re: [R] Help: barchart() {Lattice} To: "Felix Andrews" <felix@nfrac.org> Cc: r-help@r-project.org Received: Thursday, 3 December, 2009, 10:17 AM Got it

Dear All, Within a large script, I try to invoke a second program (called e.g. XXX) from R using "shell" or "pipe". e.g.: > readLines(pipe("XXX")) or: > shell("XXX",intern=TRUE, wait = TRUE) After running the program, the script reads a file with solutions produced by the second program ("XXX.001"). > readLines("XXX.001")

Dear all, I would like to underline only the colnames in a table as e.g. grid.draw(tableGrob(head(iris, 10), name="test")) I can imagine you should use grid.edit or so, bu I can't figure out how... Does anyone have a suggestion? Thanks Robbert windows xp R 2.10.1 -- View this message in context:

How do you persuade lattice to draw tick marks on both the left and right side of the y-axis, when relation="free" in the scales component? #Ticks appear on both sides histogram(~height|voice.part, data=singer) ##Ticks only on left histogram(~height|voice.part, data=singer, scales=list(y=list(relation="free"))) Providing tck as a vector of length 2 doesn't seem to

Dear All, I have some problems with changing the default font (Arial) in a xyplot which is printed using the PNG-device. Although some things have been mentioned about this in the forum, I still couldn't figure it out. Can someone help me out?n Thanks in advance! I want to print the plot for pasting in Microsoft Word OS: Windows XP see example: a<-data.frame(x=c(1:5),y=c(2,2,3,3,4))

fit1<-rq(formula=op~inp1+inp2+inp3+inp4+inp5+inp6+inp7+inp8+inp9,tau=0.15,data=wbc) fit2<-rq(formula=op~inp1+inp2+inp3+inp4+inp5+inp6+inp7+inp8+inp9,tau=0.5,data=wbc) fit3<-rq(formula=op~inp1+inp2+inp3+inp4+inp5+inp6+inp7+inp8+inp9,tau=0.15,data=wbc) fit4<-rq(formula=op~inp1+inp2+inp3+inp4+inp5+inp6+inp7+inp8+inp9,tau=0.15,data=wbc)

Bueno, una pequeña vuelta de tuerca más usando ggplot.. Aunque no quedó tan limpio como el de Carlos (gran resolucion) tambien te sirve. Un saludo library(ggplot2) dec.df <- mat[mat$sol=="dec",] lim.df <- mat[mat$sol=="lim",] dol.df <- mat[mat$sol=="dol",] dec.dr<-qplot(dia,V5,sol,data=dec.df,color=con2,geom=c("line"),facets=.~sol) lim.dr

Estimados, tengo un grafico al que debo anexar la leyenda en el costado derecho. Mi problema es que el titulo de la leyenda debe decir "Concentration (mM)" el que es muy largo y la ultima M sale cortada. No puedo abreviar la palabra porque justamente me rechazaron el grafico por que estaba abreviada esa palabra. Aqui pego el codigo con el que se hacen los graficos y anexo un archivo

i know this is not about R. After applying quantile regression with t=0.5,0.6 on the data set WBC( Wisconsin Breast Cancer)with 678 observations and 9 independent variables(inp1,inp2,...inp9) and 1 dependent variable(op) i have got the following results for beta values. when t=0.5(median regression) beta values b1=0.002641,b2=0.045746,b3=0.

Dear list members, I can't figure out how get 'xyplot' or 'dotplot' in the 'lattice' package to respect the 'lwd' 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

 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')),

Buenas tardes Quiero hacer una consulta respecto a gráficos xyplot: 1. ¿Como hacer para que los puntos del gráficos xyplot de un 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),]

On Fri, 13 Sept 2024 at 23:36, Christopher W. Ryan <cwr at agencystatistical.com> wrote: > > For me, Bert's suggestion produces a plot with two black symbols above > the plotting region, a circle and a triangle, both filled, and no text. > > This, in which I specify several features of the symbols in the key, > > dd %>% dotplot( segment ~ transit_time, groups =

Muchas gracias Carlos, mas aun pues en españa es mas de medianoche del viernes, no ? eric. On Fri 04 Jul 2014 19:08:24 CLT, Carlos Ortega wrote: > Hola, > > Esta es una manera de hacerlo (he incluido un par de cambios > adicionales en las etiquetas): > > #--------------------------------- > mfctr$dia.new <- paste("dia_",mfctr$dia, sep="") > >

Dear R-users, I am trying to add some text in a textbox to all panels in the following example file. Using the panel-function, I can add a white rectangle with panel.rect but then I have to fit in the text into the box by hand and it will not automatically be centered. Does anyone know how to add the text centered with a white box around it automatically? Is there something like panel.textbox for

Buenos dias a todos. Tengo este Barchart con dos tipos de datos. Desembarcado y Muestreado. Como los datos de Desembarcado son mucho mayores que los de Muestreado, estos ultimos datos apenas si se aprecian en la grafica. Lo que se me ocurre es cambiar la escala de este eje. ¿alguien sabria como hacerlo? O alguna otra sugerencia claro. Muchisimas gracias a todos los que me estan ayudando Jose Luis