есть ли способ добавить ось x ниже основной оси x в r?

Question

У меня есть диаграмма рассеяния, показывающая количество улиток по оси y и расстояние по оси x. Я хотел бы включить дополнительную ось x, изображающую возраст, расположенную ниже основной оси x. Однако эти значения будут произвольными. Я не хочу, чтобы это влияло на расположение самих точек данных. Надеюсь, это имеет смысл!

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

Вот мои примерные данные :

data <- structure(list(Age = c("1", "5", "10", "15", "20"), Distance = c("10", 
"20", "30", "40", "50"), Snails = c("7", "3", "12", "24", "27"
)), row.names = c(NA, -5L), class = "data.frame")

Answer 1

Вот подход с базовым R:

par(mar = c(7,5,3,2))
plot(Snails ~ Distance, data, xlim = c(0, 50), ylim = c(0,30),
     pch = 0, xlab = "", ylab = "Snails")
lines(Snails ~ Distance, data)
axis(1, at = c(0,10,20,30,40,50), labels=c(0,data$Age),
     line=2.5, col="blue", col.ticks="blue", col.axis="blue")
mtext("Distance (m)", 1, line=1, at=-6)
mtext("Age", 1, line=2.5, at=-6, col = "blue")