Randomly delete and add rows based on ID

Question

Does anyone know how to randomly delete and add rows based on ID? Here is a reproducible example:

> y <- rnorm(20)
> x <- rnorm(20)
> z <- r