Dear @dmurdoch,
First, thank you very much for maintaining this very useful package.
When using the gap.plot() function, the box type remains unchanged despite the use of bty argument. This can be easily fixed by allowing box() to get the value of bty. Here is a patch:
--- gap.plot.R 2025-11-07 15:31:36.369932400 -0600
+++ gap.plot_box.R 2025-11-07 15:33:12.251054000 -0600
@@ -3,7 +3,7 @@
gap.plot<-function(x,y,gap,gap.axis="y",bgcol="white",breakcol="black",
brw=0.02,xlim=range(x),ylim=range(y),xticlab,xtics=NA,yticlab,ytics=NA,
lty=rep(1,length(x)),col=rep(par("col"),length(x)),pch=rep(1,length(x)),
- add=FALSE,stax=FALSE,...) {
+ add=FALSE,stax=FALSE,bty=par("bty"),...) {
if(missing(y) && !missing(x)) {
y<-x
@@ -90,7 +90,7 @@
else {
plot(x[littleones],y[littleones],xlim=xlim,ylim=ylim,axes=FALSE,
lty=lty[littleones],col=col[littleones],pch=pch[littleones],...)
- box()
+ box(bty=bty)
if(gap.axis == "y") {
if(!is.na(xtics[1])) axis(1,at=xtics,labels=xticlab)
littletics<-which(ytics < gap[1])Happy to submit a pull request if it is useful.
Dear @dmurdoch,
First, thank you very much for maintaining this very useful package.
When using the
gap.plot()function, the box type remains unchanged despite the use ofbtyargument. This can be easily fixed by allowingbox()to get the value ofbty. Here is a patch:Happy to submit a pull request if it is useful.