search for: yrng

Hello, I am in need of help in putting histograms on the diagonal of a plot produced with splom(). The plot matrix I am trying to produce is to have standard scatterplots in the upper-left triangle, contour plots in the lower-right triangle, and histograms on the diagonal. I have a function that does the first two, but the histograms on the diagonal has been beyond my ability. Here is my

Dear list, I want to plot several variables with splom and in the main diagonal, instead of the variable names, I'd like to plot an histogram of corresponding variables. Searching I did not find the correct syntax, only some tips in an old post in the list, but this comments help to plot only density lines instead of histograms. I had some code, but it fails to plot (I've commented the

...;- cells[,2]+(HSDfactor*0.5) ++ uy <- cells[,2]-(HSDfactor*0.5) ++ errbar(xvals,cells[,2],ly,uy,add=TRUE, lty=3, cap=0, lwd=2)* if(legend) { yrng <- diff(ylim) yleg <- ylim[2] - 0.1 * yrng ..................................................................... |Finally, I call this modified function as: |interaction.plot2( factor(X$A), factor(X$B), response,las=3, type="b", HSDfactor = HSDfactor1, lwd=3) |However,...

...data)[2], ...)) lo <- try(loess.smooth(y, x, ...)) if (!inherits(lo,"try-error")) panel.lines(lo$y, lo$x, col.line = colXonY, ...) options(show.error.messages = TRUE) }, diag.panel = function(x, varname, limits, ...) { d <- density(x[!is.na(x)]) yrng <- range(d$y) ylim <- yrng + 0.07 * c(-1, 1) * diff(yrng) xlim <- current.panel.limits()$xlim pushViewport(viewport(xscale = xlim, yscale = ylim)) if (hist %in% c("h", "b")) { panel.histogram(x[!is.na(x)], breaks = NULL, col = hist.col, t...

Hi List, I have a problem plotting data using the lineplot.CI command in the sciplot package. I want to plot the data of 2 experimental cases using different lines (traces). Time is on the X-axis. The tricky thing is that the data collection in the second case started later than for the first case. This is to say: the first n data points for the second case are missing. So far so good. However,

Dear R helpers Suppose following is an output due to some R process. I wish to save it as a table in 'temp.db' df <- data.frame(x = c(5, 4, 3, 11), y = c(25, 16, 9, 121))     library(RSQLite)     write('** Initializing','')     drv <- dbDriver("SQLite", shared.cache = TRUE)     con <- dbConnect(drv, dbname = "temp.db",

...P_SLR/data/level1/beach_profiles_Flick/",Filename,".pdf",sep="")) caption = paste(aLocation," (", aYear,".",aMonth,".",aDay,")",sep="") credits = paste("splineWriter.R / hellyj@ucsd.edu / 20110120") xrng = range(x) yrng = range(y) pred = qplot(x,y, data=B, xlab="Distance (m)", ylab = "Elevation (m)", xlim=c(0,1000), ylim=c(-12,4)) pred + geom_text(aes(700,2,label=caption)) + geom_text(aes(180,-12,label=credits),size=2.7) dev.off() ## Residual (Tukey Anscombe) plot: pdf(file=paste("/Volumes...