How to Sample Rows with Two Observations per ID from a Data Frame in R