avoid producing a eps-graphic with 2 pages by mixing traditional and grid graphics

Question

I used this r-programm to generate an eps-graphic. unfortunately it produces a graphic with

one empty page and then the correct one and the problem is the graphic mixing

bv_setEPS1<-function(width1,height1)#set eps boundingbox
{
   args<-list(width=width1,height=height1)
   force <- list(onefile = TRUE, horizontal = FALSE, paper = "special")
   args[names(force)] <- force
   do.call("ps.options", args)
}
 
 
pievalues<-c(3,3,3,3)
 
h<-17.9*0.75*(15/25.2)/2.54
w<-17.9*0.75/2.54
sc<-0.75*17.9/25.2
 
bv_setEPS1(width1=w,height1=h)
ifont<-"Helvetica"
 
postscript(file="filename")#zeichne EPS
 
pushViewport(viewport(  #A
   layout=grid.layout(3,1,widths=sc*unit(c(25.2),c("cm")),
               heights=sc*unit(c(0.5,2,12.5),c("cm","cm","cm")))))
              
pushViewport(viewport(layout.pos.col=1, layout.pos.row=3))#main region  
par(mai=c(0,0,0,0))
layout(matrix(c(1,2),byrow=TRUE,ncol=2),widths=c(1,1))#lcm(6),lcm(6)))
       scal<-1.5
bisector<-bv_pie3D(x=pievalues,edges=100,radius=0.9*scal,height=0.16*scal,theta=pi/18*4,start=pi/2,border=par("fg"),
                col=pieColors,labels=NULL,labelpos=NULL,labelcol=par("fg"),labelcex=0.75*scal,
                sector.order=NULL,explode=0.0,shade=0.4,main="",pty="s")
popViewport()#main region
             
#oberer balken  
pushViewport(viewport(layout.pos.col=1, layout.pos.row=2,
           gp=gpar(fill=rgb(216,232,200,maxColorValue=255),
           col=rgb(216,232,200,maxColorValue=255) )))
grid.rect()
#beschriftung oberer balken
grid.text(bv_gnames(g),
          gp=gpar(col="black",fontfamily=ifont,cex=sc),
          just=c("center","center"))
popViewport()#oberer balken
             
popViewport()#A
             
dev.off()  
The result is like this:       

Answer 1

The bv_set() is missing from your code hence I can't reproduce the result and tweak the parameters to bring the output in one page.

You can refer to following page to customize the plot parameters: https://bit.ly/2ocZroZ

Answer 2

Supplement: The function bv_pie3D must be plotrix::pie3d and is a traditional

graphic from the plotrix package. The Viewport functions are from grid graphics.

I have also exprimentet with baseViewports() recommended for combining

traditional grid graphics but without sucess.

Comments

@terasi, how does @bolder's answer below help?