r-将第二个x轴添加到ggplot

问题描述

我对某些人群进行了模拟。现在，我想将这些人口的特定特征随时间的变化绘制为线图。 x轴共同显示世代数

以下是到目前为止我的R代码（虚拟数据）的最小工作示例：

require(ggplot2)

set.seed(3)
x <- 99:0
y <- 0.5+cumsum(rnorm(100,0.01))
xy <- data.frame(x,y)

ggplot(data=xy,aes(x=x,y=y)) +
   geom_line() +
   xlab("Generation number") +
   ylab("Character")

但是，现在我想添加第二个x轴，它给出了现在的年数（BP），假设平均生成时间为22.5年。因此，最低代数的值将在第二轴上具有最高值，反之亦然。知道我怎么能做到吗？

非常感谢您的建议和帮助！

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）