How To Separate Data In R