Graph with secondary axis in ggplot without primary data going negative

Question

I have data that follows this format, where n is number of samples, and Change is percent change from year n to year n+1:

   group  year     n Change