R ggplot label gets cutoff on very small values

Question

I have a graph that is generated via loop, so solution has to be dynamic and not a once off.

Basically its all fine, until there is a dataset that has extremes. In this c