删除行中重复的字符串

出现以下问题：

我有数据框 data1 ，其中包含多个条目的变量：

data1 <- data.frame(v1 = c("test, test, bird", "bird, bird", "car"))

现在我想删除每行中的重复条目。结果应该是这样的：

data1.final <- data.frame(v1 = c("test, bird", "bird", "car"))

我试过这个：

data1$ID <- 1:nrow(data1)
data1$v1 <- as.character(data1$v1)

data1 <- split(data1, data1$ID)
reduce.words <- function(x) {
  d <- unlist(strsplit(x$v1, split=" "))
  d <- paste(d[-which(duplicated(d))], collapse = ' ')
  x$v1 <- d 
  return(x)
}
data1 <- lapply(data1, reduce.words)
data1 <- as.data.frame(do.call(rbind, data1))

但是，这会产生空行，第一行除外。有人有解决这个问题的想法吗？

您似乎有一个相当复杂的工作流程。只创建一个作用于行的简单函数怎么样？

reduce_row = function(i) {
  split = strsplit(i, split=", ")[[1]]
  paste(unique(split), collapse = ", ") 
}

然后使用apply

data1$v2 = apply(data1, 1, reduce_row)

to get

R> data1
                v1         v2
1 test, test, bird test, bird
2       bird, bird       bird
3              car        car