R studio update column based on another column