удалить дубликаты записей в ячейке - R

Question

Я искал здесь высоко и низко, а также пытался дублировать и уникальные функции для того, что я собираюсь спросить, но не смог заставить ничего работать. Предположим, у меня есть фрейм данных с именем компании с переменным состоянием. Когда я разрушаться строками я остался с этим выходом в одном из государственных переменных наблюдений:

PA;PA;PA;TX;TX 

Как я мог удалить Dups внутри клетки (и весь вектор по этому вопросу), поэтому она выглядит следующим образом :

PA;TX 

у меня нет никаких проблем, удаление DUP строк, но не могу сделать это для самих клеток.

Answer 1

Это работает для одной строки:

x <- "PA;PA;PA;TX;TX" 

x2 <- strsplit(x, ";") 

x3 <- unlist(x2) 

x4 <- unique(x3) 

x5 <- paste(x4, collapse = ";") 

Если вы хотите сделать это для всего вектора company$state, вы можете свернуть все, что до в один призыв sapply:

sapply(company$state, function(x) paste(unique(unlist(strsplit(x, ";"))), collapse = ";"))