How do keep only unique words within each string in a vector

by

Split it up (strsplit on spaces), use unique (in lapply), and paste it back together:

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))

Update based on comments

You can always write a custom function to use with your vapply function. For instance, here’s a function that takes a split string, drops strings that are shorter than a certain number of characters, and has the “unique” setting as a user choice.

myFun <- function(x, minLen = 3, onlyUnique = TRUE) {
  a <- if (isTRUE(onlyUnique)) unique(x) else x
  paste(a[nchar(a) > minLen], collapse = " ")
}

Compare the output of the following to see how it would work.

vapply(strsplit(vector, " "), myFun, character(1L))
vapply(strsplit(vector, " "), myFun, character(1L), onlyUnique = FALSE)
vapply(strsplit(vector, " "), myFun, character(1L), minLen = 0)

More Related Contents:

  1. R memory management / cannot allocate vector of size n Mb
  2. Finding ALL duplicate rows, including “elements with smaller subscripts”
  3. Split a vector into chunks
  4. How to find common elements from multiple vectors?
  5. How to convert a list consisting of vector of different lengths to a usable data frame in R?
  6. Create grouping variable for consecutive sequences and split vector
  7. Find indices of duplicated rows [duplicate]
  8. Capitalize the first letter of both words in a two word string
  9. How to tell what is in one vector and not another?
  10. Test if characters are in a string
  11. Count the number of all words in a string
  12. Delete rows containing specific strings in R
  13. Finding All Positions for Multiple Elements in a Vector
  14. Deleting reversed duplicates with R
  15. Convert data.frame column to a vector?
  16. Select every other element from a vector
  17. How do I extract just the number from a named number (without the name)?
  18. Insert blanks into a vector for, e.g., minor tick labels in R
  19. Convert a dataframe to a vector (by rows)
  20. Unlist a data frame by rows, not columns
  21. Delete duplicate rows in two columns simultaneously [duplicate]
  22. Count values separated by a comma in a character string
  23. How do I map a vector of values to another vector with my own custom map in R [duplicate]
  24. R split string by symbol
  25. First letter to upper case
  26. How do you create vectors with specific intervals in R?
  27. How to strsplit using ‘|’ character, it behaves unexpectedly?
  28. Efficient string similarity grouping
  29. Remove all duplicates except last instance
  30. Extract characters that differ between two strings

Leave a Comment