search for: omi

...& MFROW == c(2,2)) CORRECT <- 1 / 0.83 if (TEST && (MFROW[1] >= 3 | MFROW[2] >= 3)) CORRECT <- 1 / 0.66 if (!TEST) cat("MFROW does not equal MFCOL\n") cat(MFROW, CORRECT, "\n") return(CORRECT) } pdf("TestCEX.pdf", 8, 6) par(mfrow=c(1,1), omi=c(1,1,1,1)) plot(1) mtext(outer=T, side=1, line=0, cex=1, "line 0") mtext(outer=T, side=1, line=FINDCEX(), cex=1, "line FINDCEX") mtext(outer=T, side=3, line=0, cex=1, "line 0") mtext(outer=T, side=3, line=1, cex=1, "line 1") mtext(outer=T, side=2, line=0, ce...

Dear R people, I am using par(mfrow=c()) to plot multi-figures in the same window. And I like to put a common title (and xlab, ylab) for all of plots. I have already left some margin by resetting omi values in par() and hided all (xlab, ylab) for each sub-plot. Could anyone tell me how to do that? Thanks a lot, Frank

...y figure, which is composed of three plots. My output is defined as this: ---------------------------------------------------------------------------- postscript("out.ps", horizontal=FALSE, +width=7.5,height=11.5,pointsize=10, paper = "special" ) opar <- par(omi=c(0.1,0.1,0.1,0.1)) layout_mat = matrix(c(1,2,3),nrow=3,ncol=1,byrow=TRUE) my_layout <- layout(layout_mat,widths=c(1,1,1),heights=c(1,1.5,1.5),respect=FALSE) ----------------------------------------------------------------------------- 2 Questions: How do i find what are the x,y'...

...the upper right. Thanks in advance for insight.... Sean > pushViewport(viewport(layout = grid.layout(1, 3, widths = unit(rep(1,3), c("null", "cm", "null"))))) viewport[GRID.VP.177] > pushViewport(viewport(layout.pos.col=1)) viewport[GRID.VP.178] > par(omi=gridOMI(),new=T) > my.heatmap(eb$coefficients[(clsum[,1]>1) & (clsum[,2]>1) & (clsum[,3]==0),],breaks=c(seq(-2.5,-0.6,0.1), -0.1,0.10,seq(0.6,2.5,0.1)),dendrogram="none",Colv=c(9:12,5:8,1: 4),labRow=rep('',520),margin=c(10,5),colsep=c(4,8),trace="none&qu...

...g <- legend("bottom",legend=c("Item A","Item B"),horiz=TRUE,pch=c(1,2), col=c("red","blue"),plot=FALSE,trace=TRUE) par(oma=c(5,4,4,2)+0.1,mar=c(0,0,0,0),xpd=NA) #Add space at the bottom for the legend bottom.spacing <- par("omi") + c(leg$rect$h,0,0,0) par(omi=bottom.spacing) x <- runif(100) y <- runif(100) z <- rnorm(100) plot(x,y,xaxt="n",xlim=c(0,1),xlab="",pch=1,col="red") plot(y,z,xlim=c(0,1),pch=2,col="blue") #Actually plot legend this time - inset value is done...

Sorry, I have read other posts on tick marks but nothing is working. Here is my R code. I was able to turn off the x axis at one point (I removed that code), but never got the tick marks on by 20s. It always goes to the default of 50, 100, 150, 200. Thanks. R code: hist(OMY$FL, main = "2010 Oncorhynchus mykiss Fork Length Frequencies at Buck Creek Reach 1", include.lowest = TRUE,

.... Creo que casi casi casi lo logro, salvo por (a) la barra de caps$PersonasRCVG, que pareciera cambia los valores del eje Y a otra escala... creo... y (b) porque me falta ordenar el gráfico por la línea de caps$Con12Meses (de mayor a menor). Va mi mejor intento: par(mar=c(4,4,3,1), # omi=c(0.1,0.1,0.1,0.1), # las=1, # mex=0.5, # cex.lab = 1, # cex.axis=0.7) # el tamaño de las leyendas barplot(caps$personas, names.ar=caps$CAPS, col="blue", border=F, space=.01) par(new=T) bar...

...egion!) has to be of a fixed dimension (in my case: width=1 inch, height= 0.87 inches). I tried to use "pin" to fix the plotting region to a specific size, but without success. The following example will visualize the problem: par(mfrow=c(3,4),pin=c(1,0.87),mai=c(0.04,0.04,0.04,0.04), omi=c(0.2,0.32,0.32,2.16)) plot(1:10,1:10) plot(10:20,10:20) plot(20:30,20:30) plot(30:40,30:40) plot(2:11,2:11) plot(11:21,11:21) plot(21:31,21:31) plot(31:41,31:41) plot(3:12,3:12) plot(12:22,12:22) plot(22:32,22:32) plot(32:42,32:42) --> You can see that the single plots are highe...

...ata sets > 1. The values for the last data sets between 0 and <1. Any idea why this happens. Your help is highly appreciated. Charles =================================================== postscript("Figure.eps", paper="letter", horizontal=FALSE) par(mfrow=c(3,3)) par(omi=c(2,0.2,1.8,0.2), mai=c(0.4, 0.4, 0.5, 0.1) ) my.input <- read.table("input.data", header=FALSE, sep="\t") my.input.exp <- read.table("exp.data", header=FALSE, sep="\t") hist(my.input.exp[,2], breaks=40,freq = FALSE,xlab="", border = "g...

...how to automagically find out how to position the legend (horizontal) in the space below the x-axis title, and how to make sure that the legend is within the limits of the lower inner or outer margin? I'm aware of plot, device and figure regions, and of the "din, fin, pin, usr, mai, mar, omi, oma and xpd" parameters, of inner and outer margins. I cannot simply position my legend on "minus something", as that depends on "usr" coordinates, and those depend on the scale of the y-axis. I tried finding the ideal spot by taking the figure height and subtracting the...

...2003 month 11 day 21 language R Mac OS 10.2.8 ***************** The programme I have used as a test is: oldpar <- par(no.readonly=TRUE) postscript("test.eps", onefile=TRUE, bg = "white", family= "Times", paper = "A4", horizontal = TRUE) par(omi=c(0.5,0.5,0.5,0.5)) plot(1:10,type = "p") text (5, 5, labels = "Hello world", cex = 1.5) par(oldpar) dev.off() # oldpar <- par(no.readonly=TRUE) par(omi=c(0.5,0.5,0.5,0.5) pdf("test.pdf",width = 27/2.54, height = 18.4/2.54, bg = "white", onefile = TRUE,fa...

...o a pdf() of the following graphs but don't understand why the pdf() function does produce an empty pdf file. (I use R1.7.0 on MacOS 10.2.8) any idea? Is pdf() incompatible with screen? Thanks a lot, DLC ## create dataset x=rnorm(1000,10,2) y=rpois(1000,5) ## graphs pdf() par(col.main=4,omi=c(0,0,1.25,0)) split.screen(c(1,2)) screen(1);split.screen(c(2,1)) screen(3) ## gauche en haut boxplot(x,col=3,main="my boxplot") screen(2) ## droite seul barplot(table(y),col=4,main="my barplot") screen(4) ## gau...

...wd=2) arrows(.935, 8297.291, .935, 6284.284, code=3, angle=90, lwd=2) arrows(.35,7071.79,.35,4377.585, code=3, angle=90, lwd=2) I am having a few problems with this. 1) My y label seems to be getting cut off by the edge of my graphing area. I have tried adjusting the "mar" and "omi" but it doesn't seem to make any difference. 2) I can't seem to get the strwrap text wrapping command to work. I want to wrap both my names.arg and my y label. Is this possible? Any help or advise would be greatly appreciated. Thanks in advance! beloitstudent -- View this mess...

Hi everyone. I'm using this following code: pdf(file="Fig5.pdf", width = 4.86, height = 6.29, pointsize = 10, family ='Times') par(mfcol = c(3,2), mai = c(0.4,0.8,0,0), omi = c(0.7, 0, 0.7, 0.1)); hist( rnorm(100) ) dev.off() When I open this in any vectorial software (like Illustrator), it says that my font size is 7 instead of 10 that I specified. I have tried (whitout the PAR line): pdf(file="Fig5.pdf", width = 4.86, height = 6.29, pointsize = 10, f...

...lank page? I am using: R version 2.7.2 (2008-08-25) and gridBase version: 0.4-3 __ BEGIN__ library(grid) library(gridBase) opar <- par(no.readonly=TRUE) par(opar) grid.newpage() pushViewport(viewport(width=0.5, height=0.5)) grid.rect(gp=gpar(col="grey", lty="dashed")) par(omi=gridOMI()) par(mfrow=c(2, 2), mfg=c(1, 1), mar=c(3, 3, 1, 0)) for (i in 1:4) { plot(1:10) } __ END__ - Gundala Viswanath Jakarta - Indonesia

...amples and variables. # Load necessary libraries, and install them if they are missing # tryCatch(library(gplots), error=function(err) # if this produces an error: install.packages("gplots",repos="http://cran.ms.unimelb.edu.au/")) # Prepare the data matrix par(omi=c(1,1,1,1)) # Read in the .csv file data<-read.csv("MEAN PERAK RT100 300-399.csv", header = TRUE, row.names=1) boxplot(data) heatmap_data<- data[,-1] colnames(heatmap_data) <- if (length(grep("^X[\\d]",colnames(heatmap_data),perl=TRUE)) != 0) # then {gsub(&quot...

...h the archives, but can't find a solution to this problem. I need the text direction on "dependent B", plotted in margin 4, to go top to bottom (opposite what it is now). Here's some sample code: #plot with mtext example par(mgp = c(2,1,0), mfrow=c(2,2), las=1, mar=c(2,2,2,2), omi= c(0.5,0.2,0,0.2)) a<-1:10 b<-7:16 c<-21:30 plot(a~b, ylab="", xlab="", xaxt="n") axis(1, at=b, labels=FALSE, tick=TRUE) plot(c~b, ylab="", xlab="", xaxt="n", yaxt="n") axis(1, at=b, labels=FALSE, tick=TRUE) axis(4, a...

I am creating a CDF plot function more user-friendly than any default r function. Depending upon the bimodality of the data (it is often bimodal), or any other strange data trends, the points can end up gathering in just about any corner of the plot. So, when I add a legend, whether I choose to add it in the bottom right, top left, or wherever, it will sometimes end up putting the legend right

...sition=c(0,0,0.5,0.5), more=T) print(xyplot(y~x), position=c(0.5,0,1,0.5), more=T) In the output the title is not complete, a part of the letters only is seen. I searched how to solve this problem but nothing worked. I read about "figure margins", proved with different things like oma, omi, mar, mai,layout, par, mfcol, mfrow,mtext,title... I hope you can guide me! Thanks a lot! Marcos (Argentina)

...unction. However; I'm not sure how to make the width of the plots to be the same on each column. I guess the answer maybe obvious but I haven't been able to figure it out. I'll appreciate any suggestion. Here is the (highly inefficient) code for the first row: par(mfrow = c(2, 3)) par(omi = c(0.60, 0.60, 0.60, 0.10)) par(mai = c(0.00, 0.50, 0.50, 0.00)) plot(1:5, 1:5, xlab = "", ylab = "", xaxt = "n", col = "blue"); axis(3, at = seq(1:5), labels = rep("", 5)) par(mai = c(0.00, 0.00, 0.50, 0.00)) plot(1:5, 1:5, xlab = "",...