作者热门文章
- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我有看起来像这样的数据:
vector = c("hello I like to code hello","Coding is fun", "fun fun fun")
[1] "hello I like to code"
[2] "coding is fun"
[3] "fun"
最佳答案
拆分它( strsplit
在空格上),使用 unique
(在 lapply
中)和 paste
它重新组合在一起:
vapply(lapply(strsplit(vector, " "), unique), paste, character(1L), collapse = " ")
# [1] "hello i like to code" "coding is fun" "fun"
## OR
vapply(strsplit(vector, " "), function(x) paste(unique(x), collapse = " "), character(1L))
vapply
一起使用。功能。例如,这里有一个函数,它接受一个拆分字符串,删除短于特定字符数的字符串,并具有“唯一”设置作为用户选择。
myFun <- function(x, minLen = 3, onlyUnique = TRUE) {
a <- if (isTRUE(onlyUnique)) unique(x) else x
paste(a[nchar(a) > minLen], collapse = " ")
}
vapply(strsplit(vector, " "), myFun, character(1L))
vapply(strsplit(vector, " "), myFun, character(1L), onlyUnique = FALSE)
vapply(strsplit(vector, " "), myFun, character(1L), minLen = 0)
关于r - 如何仅保留向量中每个字符串中的唯一单词,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/28033312/
我是一名优秀的程序员,十分优秀!