title: Can anybody help figure out why my labels for the y-axis and x-axis are not appearing?
body: <p>As part of my code to have a 4 rows by 2 columns panel with 8 plots I was suggested to use the code below as an example but when doing so I cannot get the text on the y and x axis. Please see the code below.</p>
  
  <pre><code>#This is the code to have the plots as 4 x 2 in the page 
  m &lt;- rbind(c(1,2,3,4), c(5,6,7,8) )
  layout(m)
  par(oma = c(6, 6, 1, 1)) # manipulate the room for the overall x and y axis titles
  par(mar = c(.1, .1, .8, .8)) # manipulate the plots be closer together or further apart
  
  ###this is the code to insert for instance one of my linear regression plots as part of this panel (imagine I have other 7 identical replicates of this)
  ####ASF 356 standard curve 
  asf_356&lt;-read.table("asf356.csv", head=TRUE, sep=',')
  asf_356
  
  # Linear Regression  
  fit &lt;- lm( ct ~ count, data=asf_356)
  summary(fit) # show results
  predict.lm(fit, interval = c("confidence"), level = 0.95, add=TRUE)
  newx &lt;- seq(min(asf_356$count), max(asf_356$count), 0.1)
  a &lt;- predict(fit, newdata=data.frame(count=newx), interval="confidence")
  plot(x = asf_356$count, y = asf_356$ct, xlab="Log(10) for total ASF 356 genome copies", ylab="Cycle threshold value", xlim=c(0,10), ylim=c(0,35), lty=1, family="serif")
  curve(expr=fit$coefficients[1]+fit$coefficients[2]*x,xlim=c(min(asf_356$count),                                                       max(asf_356$count)),col="black", add=TRUE, lwd=2) 
  lines(newx,a[,2], lty=3)
  lines(newx,a[,3], lty=3)
  legend(x = 0.5, y = 20, legend = c("Logistic regression model", "95% individual confindence interval"), lty = c("solid", "dotdash"), col = c("black", "black"), enter code herebty = "n")    
  mod.fit=summary(fit)
  r2 = mod.fit$r.squared
  mylabel = bquote(italic(R)^2 == .(format(r2, digits = 3)))
  text(x = 8.2, y = 25, labels = mylabel)
  legend(x = 7, y = 35, legend =c("y= -3.774*x + 41.21"), bty="n")
  </code></pre>