As far as I can see at r1, the data is being plotted correctly. But the values starts from zero and decrease.
For removing the negative values, you can simply just add a scale factor like:
#add a scale factor - all values positive
r2<-r1[[1]]+10000
plot(N, r2)
or you can also perform the following:
#add a scale factor - span y = 0
r3<-r1[[1]]+5000
plot(N, r3)
If you are a beginner and want to know more about R then do check out the following R programming tutorial that will help you in learning R from scratch.