检查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)