使用Knit2PDF包控制图形的宽度

Question

我试图从我的R脚本的输出中构建PDF格式的图形。我使用knit2PDF包来做到这一点。

当我有多个数据点进行绘图时，它很好。例如：

但是，当只有数据点时，图表看起来像

这里的代码我正在使用：

 plot.new()
      par(mar=c(2,0,0,0))
      par(xpd=T, mar=par()$mar+c(0,0,0,4))
      bplot= barplot(p[c("Control","Exposed"),], col=c("#0078E8","#FF9900"),
             beside=T,names.arg=paste(paste(colnames(p),sep = " "),
                          paste("Control:", p["Control_count",], sep=" "),
                          paste("Exposed:", p["Exposed_count",], sep= " ")
                          ,sep="\n"),
             cex.names=0.4, width = 0.5, axes=F, border=F,space=c(0,1),ylim=c(0,max(p[c("Control","Exposed"),]+10)))

当有一个数据点时，有没有办法可以自动控制图形的外观？