Постоянная ширина стержня в массиве графиков в R

Я пытаюсь создать массив столбцов (1 строка, 3 столбца), которыйвсе имеют одинаковую ширину стержня.

Все три столбчатых графика имеют различное количество наблюдений, и, следовательно, ширина столбцов в конечном итоге различна для каждого графика (то есть график с наибольшим количеством наблюдений имеет самые узкие столбцы, а график с наименьшим количеством наблюдений имеет самые широкие столбцы). Я понимаю изbarplot {graphics} R документация, что,

«Указание одного значения не будет иметь видимого эффекта, еслиxlim указано "

Тем не менее, мойx labels являются строками, поэтому я не уверен, как указатьxlim, Я не против, если мои графики имеют разную ширину, но нужно ли это как-то указывать?

Вот некоторые фальшивые данные и код, который я использую ... спасибо за вашу помощь.

height4plot1 <- c(1,6,9,2,3,10,7,15)
names4plot1 <- c("P1","P2","P3","P4","P5","P6","P7","P8")

height4plot2 <- c(5,4,10,2)
names4plot2 <- c("M1","M2","M3","M4")

height4plot3 <- c(4,12)
names4plot3 <0 c("U1","U2")

par(mfrow=c(1,3),
    mar=c(10,5,2,1),
    cex.axis=0.7,
    mgp=c(3,0.5,0))
barplot(height4plot1,
    names.arg=names4plot1,
    las=3,
    axes=TRUE,
    axisnames=TRUE,
    ylab="YLAB",
    ylim=ylim,
    plot=TRUE,
    main="PLOT1",
    width=1)
barplot(height4plot2,
    names.arg=names4plot2,
    las=3,
    axes=TRUE,
    axisnames=TRUE,
    ylim=ylim,
    plot=TRUE,
    main="PLOT2",
    width=1)
barplot(height4plot3,
    names.arg=names4plot3,
    las=3,
    axes=TRUE,
    axisnames=TRUE,
    ylim=ylim,
    plot=TRUE,
    main="PLOT3",
    width=1)