在ggplot2中添加手动右侧y轴

Question

我想知道没有刻度时，只有刻面标题时，是否有办法获得手动的右侧y轴标签。

这是一个例子

"schedule": [
            {
                "startDate": 1572393600,
                "endDate": 1572480000,
                "active": true,
                "duration": "2 days"
            }
        ]

（请原谅凌乱的轴标签，我必须减小图像的大小才能上传）。

我想知道是否有任何方法可以在图的右下方显示一个轴标，上面写着“显着性水平”？

Answer 1

在scale_y_continuous中添加以下内容似乎是一种方法（尽管有很多警告）

sec.axis = sec_axis(trans=I, breaks=NULL, name="Significance")

或者，您可以添加一个跨所有面板的附加条：

library(grid)
library(gtable)

g <- ggplotGrob(pPower)
rect <- grobTree(rectGrob(gp = gpar(fill = "grey70", col="grey70")),
              textGrob("Significance",  rot=-90, gp = gpar(col="black")))
g <- gtable_add_cols(g, g$widths[6], 6)
g <- gtable_add_grob(g, rect, l=7, t=7, b=11)
grid.newpage() ; grid.draw(g)