Коллеги, странный вопрос у меня, вот такие вот данные есть: tidyr::crossing(

Question

Коллеги, странный вопрос у меня, вот такие вот данные есть: tidyr::crossing(

a = c(1,2,3,4,5),
b = c(1,2,3,4,5),
c = c(1,2,3,4,5),
.name_repair = "minimal"
) %>%
filter(
a != b &
a != c &
b != c
)

нужно отсеять дубликаты, но хитрые, такие что (имеется в виду строка) вектор 1,2,3 = 3,2,1 = 1,3,2 = 3,1,2, т.е. мне нужно что бы осталась какая-то одна комбинация
как бы покрасивее это сделать?

#programming #r #russian

0

28.09.2020

9 ответов

15 просмотров

Jury Автор вопроса

Yuriy Saraykin
предложу такой вариант df <- tidyr::crossing( a ...

благодарю!

0

28.09.2020

Артём Клевцов

expand.grid уже не соответствует канонам православной tidy-веры?

0

28.09.2020

aGricolaMZ

Артём Клевцов
expand.grid уже не соответствует канонам православ...

конечно! он же не выдают tibble :)

0

28.09.2020

Артём Клевцов

Это лишь пара примеров на SO (в гугле есть ещё). https://stackoverflow.com/questions/17171148/non-redundant-version-of-expand-grid https://stackoverflow.com/questions/23945166/how-to-get-only-unique-combinations-of-variables-where-entries-can-be-in-either

0

28.09.2020

Jury Автор вопроса

Артём Клевцов
expand.grid уже не соответствует канонам православ...

да вопрос не в этом был

0

28.09.2020

Jury Автор вопроса

Артём Клевцов
Это лишь пара примеров на SO (в гугле есть ещё). h...

спасибо, попробую

0

28.09.2020

Jury Автор вопроса

Артём Клевцов
expand.grid уже не соответствует канонам православ...

да нет никакой веры, просто crossing созвучно с соотв. sql операциями, вот поиск когда то и выдал этот вариант )

0

28.09.2020

Артём Клевцов

Jury
да вопрос не в этом был

Да понятно, что не в этом. Это просто моё старческое брюзжание на тему tidyverse-гм, когда учат tidy без base.

0

28.09.2020

Yuriy Saraykin · Accepted Answer

предложу такой вариант df <- tidyr::crossing( a = c(1,2,3,4,5), b = c(1,2,3,4,5), c = c(1,2,3,4,5), .name_repair = "minimal" ) %>% filter( a != b & a != c & b != c ) out <- apply(df, 1, function(x) paste0(sort(x), collapse = "")) df[!duplicated(out), ] # A tibble: 10 x 3 a b c <dbl> <dbl> <dbl> 1 1 2 3 2 1 2 4 3 1 2 5 4 1 3 4 5 1 3 5 6 1 4 5 7 2 3 4 8 2 3 5 9 2 4 5 10 3 4 5

169 похожих чатов

Коллеги, странный вопрос у меня, вот такие вот данные есть: tidyr::crossing(

9 ответов

Похожие вопросы