Help with the plot function

Hi, Bert:
Yes, I studied the functions you suggested, but I didn't get to adapt it to
my example whose reproducible code I sent in my first email.

Here it is the code of the functions I studies:

## par
par(mfrow = c(2, 3))
par(cex = 0.6)
par(mar = c(3, 3, 0, 0), oma = c(1, 1, 1, 1))
for (i in 1:6) {
 plot(1, 1, type = "n")
mtext(letters[i], side = 3, line = -1, adj = 0.1, cex = 0.6)}

par(mfrow = c(2, 3))
par(cex = 0.6)
par(mar = c(0, 0, 0, 0), oma = c(4, 4, 0.5, 0.5))
par(tcl = -0.25)
par(mgp = c(2, 0.6, 0))

for (i in 1:6) {
      plot(1, axes = FALSE, type = "n")
      mtext(letters[i], side = 3, line=-1,adj=0.1,cex=0.6, col = "grey40")
  if (i %in% c(4, 5, 6))
    axis(1, col = "grey40", col.axis = "grey20", at = seq(0.6,
                                                          1.2, 0.2))
  if (i %in% c(1, 4))
    axis(2, col = "grey40", col.axis = "grey20", at = seq(0.6,
                                                          1.2, 0.2))
  box(col = "grey60")}

## Layout

m <- rbind(c(1, 1), c(2, 3))
m
layout(m)
layout.show(3)
layout(m)
par(mar = c(3, 3, 0, 0))
for (i in 1:3) plot(1, 1, type = "n")

Thank you,

Andre

Help with the plot function

Thread (8 messages)