Hi Luis,

I don't think there is a built-in function to do that, however, one-hot encoding is easy to implement. Take a look at this implementation.

If you want a mapping to unique integer values, take a look at ArrayComponents.

checkingstatus1 = 
  Flatten[NewData2[[All, 
     1]] /. {{"A11" -> 1, "A12" -> 0, "A13" -> 0, "A14" -> 0}}];
checkingstatus2 = 
  Flatten[NewData2[[All, 
     1]] /. {{"A11" -> 0, "A12" -> 1, "A13" -> 0, "A14" -> 0}}];
checkingstatus3 = 
  Flatten[NewData2[[All, 
     1]] /. {{"A11" -> 0, "A12" -> 0, "A13" -> 1, "A14" -> 0}}];
checkingstatus4 = 
  Flatten[NewData2[[All, 
     1]] /. {{"A11" -> 0, "A12" -> 0, "A13" -> 0, "A14" -> 1}}];

This is the example, I was able to solve it, thanks, or if you have another way to solve it, I would like to know it