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

Коллеги, странный вопрос у меня, вот такие вот данные есть: 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, т.е. мне нужно что бы осталась какая-то одна комбинация
как бы покрасивее это сделать?

9 ответов

13 просмотров

предложу такой вариант 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

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

Это лишь пара примеров на 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

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

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

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

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

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

Обсуждают сегодня

Добрый вечер. Есть вопрос, а может и предложение. Был у меня диалог в другой группе о делфи и я задался вопросом: "А нельзя ли в делфи цвет //коментария и {комментария} сде...
Kraszx
24
Мдя, прикол, боевая сборка запускается (именно под отладчиком) после F9 примерно полторы минуты (97 секунд если быть точным). Начал копать - проблема детектится сразу - зависа...
Александр (Rouse_) Багель
38
Всем привет! Подскажи, пожалуйста, как передать в TComboBox сразу значение и id записи. На Delphi я делал так: ComboBox1.Items.AddObject('Какое-то значение', Pointer(id запис...
Евгений
13
я так понимаю, я так подозреваю, что создание такого плагина для человека, кто умеет писать плагины для делфи потребует минут 5-10 времени. но это мое подозрение. хотелось бы ...
Kraszx
7
Товарищи, кто работа с iphelper? Или может я в самой логике ошибки фигачу, не пойму.... var ifTable : PMIB_IFTABLE; size, corSize: DWORD; Buffer ...
Warfarellen
4
Здравствуйте, вопрос по структурам данных. Были у вас случаи, когда пришлось писать деревья или двунаправленные списки?
/ /
50
Коллеги, добрый вечер. Создаю коллекцию от TFPGMap, ключ - перечисление, значение - целое. Нужно отсортировать коллекцию по значению. Как это можно сделать?
Kirill Filippenok
11
Привет, такой вопросик появился кажется ли вам что Rust слишком сложный/строгий для высокоуровневого программирования и слишком "безопасный"/строгий для низкоуровневого?
Крокант
10
Скажи а ты когда этот канал создавал ты уже дельфи не любил, или это со временем пришло?
Роман Лях (rgreat)
18
Всем привет! Использую кастомное модальное диалоговое окошко, все по классике - mrOK, mrCancel как ModalResult. Однако есть нюанс - в главной форме есть универсальный обработч...
Олег Гранишевский
20
Карта сайта