将grid.table绘图添加到图形绘图中

Question

我想在子图中添加网格。 我使用的是graphics（而不是ggplot2） 假设我有一个2x2图，我想在c（1,2）图中绘制网格：

library(gridExtra)                                                                                  
set.seed(1)                                                                                         
rndData <- rnorm(1000)                                                                              
DF <- data.frame(name=paste('name',1:4),value=paste('value',1:4))                                   
#make a (2,2) plot                                                                                  
par(mfrow=c(2,2))                                                                                   
plot(rndData)                                                                                       
plot.new()                                                                                          
plot(rndData)                                                                                       
plot(rndData) 

我喜欢丢失情节中的网格

但是当我添加网格时......

par(mfrow=c(2,2))                                                                                   
plot(rnddata)                                                                                       
grid.table(DF)                                                                                      
plot(rnddata)                                                                                       
plot(rnddata)

我变丑了：

如何确保正确放置？ 此致