Как получить двойную ось на графике кросс-таблицы с помощью «рядом = True»?

Question

Я создал диаграмму на основе информации из перекрестной таблицы (DurationMinutes), которая имеет следующий формат:

>DurationMinutes
           Man Vrouw
      1     15    20
      2     46   100
      3     90   216
      4    156   414
      5    196   521
     ...   ...   ...

Используя следующий код:

barplot(durationMinutes,
        beside = TRUE,
        ylim = c(0,800),
        xlim = c(0,240))

Я создалследующая диаграмма:

Теперь я хочу поместить ось X ниже обоих этих графиков.Я использовал:

axis(1, at= c(0, 60, 120, 180, 240) , 
     labels=c("0", "60", "120", "180", "240"))

Но это дает мне ось X по всей оси X, а не разбито для обоих.

Что я могу сделать, чтобы получить одну и ту же ось X в диапазоне от 0 до 240 ниже обоих графиков?

Ps.ответ, наиболее близкий к моему вопросу, кажется this , но на этом графике переменные не разбиты по оси x.