R Create A New Column Based Building