在 ggplot 底部添加辅助 x 轴

Question

我想创建一个绘图并添加一个辅助 z 轴。问题是我不希望辅助轴位于顶部，但我希望两个 x 轴都位于图形的底部。有什么想法吗？

我有这个数据框：

df <- read.table(text="Control     Stress days sd_control  sd_stress
-0.2866667 -0.2833333   X1 0.11846237 0.05773503
-0.2566667 -1.0333333   X2 0.08144528 0.15275252
-0.4766667 -1.4500000   X3 0.09291573 0.10000000
-0.4900000 -1.2766667   X4 0.21517435 0.22501852
-0.4600000 -1.2666667   X5 0.07549834 0.40722639
-0.2633333 -1.0833333   X6 0.12662280 0.10408330
-0.2833333 -1.0333333   X7 0.03511885 0.07767453", header=T)

我创建了一个简单的绘图并添加了一个辅助 x 轴作为跟随者：

ggplot(data=df,aes(x=Control, y=Stress))+geom_point()+scale_x_continuous(sec.axis = sec_axis(~ .+50,))

并得到以下情节：

现在，如何将轴从上移动到底部？

不确定它在 ggplot 中是否可行，但 R 有一个名为 axis() 的函数，可以将具有任何特征的辅助轴添加到常规图中。