r - 检查 y 轴是否从零开始

Question

我想确定是否由 ggplot 生成的图从零开始。

我正在生成几百份报告，每份报告中都有三十个或更多图表。我很满意ggplot 's 默认为绘图从零开始，什么时候不开始，但我想添加一个标题，以吸引读者注意这一事实。

就像是:

labs(caption = ifelse(XXXXX, "Note: y-axis does not begin at zero", ""))

但我不知道我的测试应该是什么。

Answer 1

尝试这个:

library(ggplot2)

g <- ggplot(data.frame(x=1:10, y=0:9), aes(x=x,y=y)) + geom_point()
yrange <- ggplot_build(g)$layout$panel_params[[1]]$y.range
if(yrange[1] <= 0) g <- g + labs(caption = "Note: y-axis does not begin at zero")
plot(g)