Plotting Rarefaction Curves in R