Стрип-чарты с одинаковой осью X в R

Question

Я хочу сделать полосовую диаграмму для каждого из следующих двух векторов с одинаковой осью X, используя R. Два вектора: x <- c (40,35,30,45,35,45,65,65,70,70) у <- с (45,45,45,45,45,45,45,45,45,95) </p>

Когда я делал полосы для двух, это получалось так:

Как мне сделать так, чтобы две оси x были одинаковыми?

Спасибо

Answer 1

Как мне сделать так, чтобы две оси x были одинаковыми?

Функция stripchart() принимает необязательный параметр xlim, который позволяет определять пределы горизонтального графика. Например:

x <- c(40,35,30,45,35,45,65,65,70,70)
y <- c(45,45,45,45,45,45,45,45,45,95)
par(bty="n", mfrow=c(2,1), mar=c(2,1,3,1)+0.1)
stripchart(x, xlim=c(20,100), method="stack", pch=16)
stripchart(y, xlim=c(20,100), method="stack", pch=21)