Remove duplicated elements in a row and find the ratio for number of elements

Question

I have data frame like this, it contain 3 or more characters separated by comma (,) I want to remove the row if it contain same characters.

x <-c(1,2,2,4,5