How to do one hot encoding in r