我想知道没有刻度时,只有刻面标题时,是否有办法获得手动的右侧y轴标签。
这是一个例子
"schedule": [
{
"startDate": 1572393600,
"endDate": 1572480000,
"active": true,
"duration": "2 days"
}
]
(请原谅凌乱的轴标签,我必须减小图像的大小才能上传)。
我想知道是否有任何方法可以在图的右下方显示一个轴标,上面写着“显着性水平”?
答案 0 :(得分: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)