Фильтрация Строки, соответствующие строкам в R

Question

У меня возникли проблемы с фильтрацией для повторяющихся элементов в строке. Мои данные выглядят примерно так:

idvisit  path 
1   1,16,23,59,16 
2   2,14,19,14 
3   5,19,23 
4   10,21 
5   23,27,29,23 

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

idvisit  path 
1   1,16,23,59,16 
2   2,14,19,14 
5   23,27,29,23 

Я просто хочу удалить строки, соответствующие условиям. Я действительно не знаю, как обрабатывать String с использованием переменной для множества разных чисел.

Answer 1

Вы можете фильтровать по количеству элементов в каждой строке. Строки с дублированными записями будут больше, чем их уникальная длина, т.е.

df1[sapply(strsplit(as.character(df1$path), ','), function(i) length(unique(i)) != length(i)),] 
# idvisit   path 
#1  1 1,16,23,59,16 
#2  2 2,14,19,14 
#5  5 23,27,29,23 

Answer 2

Мы можем попробовать

library(data.table) 
lst <- strsplit(df1$path, ",") 
df1[lengths(lst) != sapply(lst, uniqueN),] 
# idvisit   path 
#1  1 1,16,23,59,16 
#2  2 2,14,19,14 
#5  5 23,27,29,23 

---

Или вариант с использованием tidyverse

library(tidyverse) 
separate_rows(df1, path) %>% 
    group_by(idvisit) %>% 
    filter(n_distinct(path) != n()) %>% 
    summarise(path = toString(path)) 

Answer 3

Вы можете попробовать регулярные выражения тоже с grepl:

df[grepl('.*([0-9]+),.*,\\1', as.character(df$path)),] 
# idvisit   path 
#1  1 1,16,23,59,16 
#2  2 2,14,19,14 
#5  5 23,27,29,23