R Select Rows With Natural Pen