纯粹将x轴添加到ggplot线图中

Question

我有一张图表，显示了随着时间的推移植物的生长。随着时间的推移，我会使用成长度的天数（基本上是时间和温度的综合度量）。现在，我想在顶部添加第二个x轴，以显示“真实”时间，即从实验开始几周，以便观众可以更清楚地了解何时发生了什么。由于度数天数的性质，它们无法以任何数学方式转换为数周。因此，我将不得不单独添加信息，例如1周是500 gdd，2周是800 gdd，3周是1400 gdd。此信息绝不会与图形本身的内容相对应。

这是我的简单代码，用于度数天数不断增长的图形。

my.df<-data.frame(ccc=seq(0,15,1),gdd=seq(0,1500,100))
ggplot(data=my.df, aes(x=gdd, y=ccc))+
  geom_line()

现在，我需要做的是在顶部的轴刻度线分别为500、800和1400 gdd，分别是1、2和3，以及轴标签为“ weeks”。有办法吗？到目前为止，我唯一的想法是将其添加到photoshop中，但是多数民众赞成在作弊:)

Answer 1

您可以sec_axis()为此使用。因为您基本上只想手动标记几个位置，所以不必担心复杂的转换。

ggplot(data=my.df, aes(x=gdd, y=ccc))+
    geom_line() +
    scale_x_continuous(sec.axis = sec_axis(
        trans = ~ .,
        name = "Weeks",
        breaks = c(500, 800, 1400), 
        labels = c(1, 2, 3)))

输出：