Получение полосы на полосовой диаграмме одинакового размера для многопанельных диаграмм

У меня любопытный вопрос: я использую par () для создания многоэкранной диаграммы, я замечаю, что полосы имеют разные размеры. Мне было интересно, можно ли сделать полосы одинаковой ширины (размера) на каждой панели? Это создало бы панели разного размера, но это было бы нормально. Любые комментарии были бы полезны.

У меня есть общий пример:

# create data
a<-c(1:100)
b<-c(1:200)
c<-c(1:300)
d<-c(1:400)
e<-c(1:500)

#make dataframes for barplots
test<-as.data.frame(cbind(a,b))
test1<-as.data.frame(cbind(a,b,c))
test2<-as.data.frame(cbind(a,b,c,d))
test3<-as.data.frame(cbind(a,b,c,d,e))

#gets means for each column
a1<-colMeans(test)
a2<-colMeans(test1)
a3<-colMeans(test2)
a4<-colMeans(test3)

#lets plot
pdf(file= "/Users/Highf_000/Desktop/prac.pdf");
par(mfrow = c(2, 4),     # 2 rows x 4 columns layout
      oma = c(2, 2, 0, 0), # two rows of text at the outer left and bottom margin
      mar = c(5, 5, 2, 1)+0.1, # space for one row of text at ticks and to separate plots
      mgp = c(2, 1, 0),    # axis label at 2 rows distance, tick labels at 1 row
      xpd = NA) 

barplot(mean(a))
barplot(a1)
barplot(a2)
barplot(a3)
barplot(a4)

dev.off()

Это результат

После предложения Ребекки

Как мы можем избежать исчезновения сюжета в макете с несколькими сюжетами и как сделать так, чтобы заголовок был центрирован по полосам, а не над сюжетом?