R语言如何删除包含额外单词和符号的重复字符串？

ncgqoxb0 于 2022-12-20 发布在其他

关注(0)|答案(2)|浏览(140)

有没有一种方法可以从逗号分隔的字符串中删除相似的重复单词？有几种方法，但它们似乎只能删除精确的单词。
例如，下面给出了以下逗号分隔的字符串
第一个月
并且期望的结果是
"Hello, At desk (Idle), On floor (Active), In meeting (Advisors), Day off (Birthday)"
我们尝试的是
x1米2英寸x1米3英寸
它只删除完全重复的单词并返回
"Hello, At desk (Idle), At desk (Idle)†, On floor (Active), On floor (Active)†, In meeting (Advisors), In meeting (Advisors)*, Day off (Birthday), Day off (Birthday)†"
仅删除重复的Hello。
谢谢!

来源：https://stackoverflow.com/questions/74764246/how-to-remove-duplicate-strings-that-have-additional-words-and-symbols

2条答案

按热度按时间

7lrncoxx1#

不是100%你想要的，因为逗号会消失，但也许它可能会帮助你

library(stringr)

words <- c("Hello, Hello, At desk, At desk (Idle), On floor, On floor (Active), In meeting, In meeting *, Day off, Day off †")

words %>%
  str_split(pattern = " ",simplify = TRUE) %>%
  str_split(pattern = ",",simplify = TRUE) %>% 
  as.vector() %>%
  unique() %>%
  str_c(collapse = " ")

[1] "Hello At desk (Idle) On floor (Active) In meeting * Day off † "

赞(0）回复(0）举报 2022-12-20

e5njpo682#

基于更新的数据和预期

gsub("†", "", gsub("\\([^\\)]\\)\\s*", "",
    gsub("([^,]+)(?:,\\s*\\1)*", "\\1", words)))

输出

[1] "Hello, At desk (Idle), On floor (Active), 
   In meeting (Advisors), Day off (Birthday)"

赞(0）回复(0）举报 2022-12-20

我来回答

R语言如何删除包含额外单词和符号的重复字符串？

2条答案

相关问题

热门标签

最新问答

R语言 如何删除包含额外单词和符号的重复字符串？

2条答案

相关问题

热门标签

最新问答

R语言如何删除包含额外单词和符号的重复字符串？