如何在此图中添加 space ?我是R的初学者

How can add space in this plot ? I am a beginner in R

这是绘制 10 个不同图形的代码

lab=unique(train_train$PdDistrict)
lab=as.character(lab)
par(mfrow=c(5,2))

for(i in 1:length(lab))
{
  a=plot(table(train_train[train_train$PdDistrict==lab[i],1]),las=3,main=lab[i])
}

结果图如图所示link

我如何 space 这些图表才能使其可读?

我修改的新代码

lab=unique(train_train$PdDistrict)
lab=as.character(lab)
par(mfrow=c(1,2),mar=c(9,4,1,0))

for(i in 1:length(lab))
{

  a=plot(table(train_train[train_train$PdDistrict==lab[i],1]),las=2,main=lab[i])
}

现在看起来好多了。