grid.extra tableGrob宽度指定

Question

我试图在一个包含7列（标题列+6个数据列）的表中指定列的宽度。

以前，我可以通过使用gridExtra::tableGrob对象执行以下操作来实现此目的：

table$widths[c(1, 2, 3)] <- unit(c(0.17,.095, 0.175), "npc")
table$widths[c(4, 6)] <- table$widths[2]
table$widths[c(5, 7)] <- table$widths[3]

以前工作正常，但出于某种原因，当我尝试重新运行相同的代码时，我收到以下错误（当我没有指定上面给出的宽度时，表呈现正常没有任何错误）：

grid.draw(p2_auc_table)

  

grid.Call.graphics（L_setviewport，vp，TRUE）出错：     INTEGER（）只能应用于＆＃39;整数＆＃39;而不是＆＃39; NULL＆＃39;

有没有人对错误或指定宽度的更好方法有任何建议？