检查y轴是否从零开始

Question

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

我正在生成数百个报告，每个报告中都有三十个或更多图表。我ggplot对当绘图从零开始和何时不从零开始的默认设置感到满意，但是我想添加一个标题，以引起读者对这一事实的注意。

就像是：

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)