R tkrplot布局问题

我有一个问题,就是右边和下面有多余的空间 tkrplot 在R中,如下所示。我试过改变 hscale 和 vscale 但是所做的只是放大/缩小每个图的整体大小,以及多余的空间。

生成这些代码的代码如下所示:

ct <- tkrplot(pane, fun)
tkgrid(ct, row = deRow, column = deCol)

在哪里? deRow 是1,并且 deCol 第一个是1,第二个是2。

添加:第二个绘图的函数如下:

fun = function(){
  ....
  fp2 = ggplot(df, aes(time, val, color=iPer)) +
    geom_point()+
    geom_path(aes(group = iPer))
  print(fp2)
}

感谢您的帮助。