尝试将此添加到您的ggplot:
+ scale_y_continuous(labels = function(x) ifelse(x == 0, "0", x))
Run Code Online (Sandbox Code Playgroud)
示例数据:
data.frame(x = 1:6,
y = seq(0, 0.05, 0.01)) %>%
ggplot(aes(x, y)) +
geom_point() +
scale_y_continuous(labels = function(x) ifelse(x == 0, "0", x))
Run Code Online (Sandbox Code Playgroud)
结果: