R_controlling多个绘图窗口中的绘图大小

Question

我尝试在mfrow中使用par()在一个窗口中包含两个地块。 像这样的东西

x=1:10
y=seq(10,100,10)
z=seq(100,1000,100)

par(mfrow=c(2,1))
par(mar=c(0.2,4.1,4.1,2.1))
plot(x,y,xaxt="n",xlab=NA)
par(mar=c(4.1,4.1,0.2,2.1))
plot(x,z)

给出了

现在让我们说我想调整第二个地块的高度，小到第一个地块高度的一半。我该怎么做？我正在尝试使用许多par()个参数。但我找不到办法。