IT
Сделать отдельный столбец с отсортированным рядом и по нему фильтр лупануть
ну типа того
Size: a a a
2020 September 28
JS
т.е.: перегнать в «длинный» вариант, отсортировать, слепить в «широкий»
возможно, подумаю, спасибо
PU
а просто в строку склеить?
PU
и отфильтровать по результату expand.grid() :))))
YS
коллеги, странный вопрос у меня, вот такие вот данные есть:
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, т.е. мне нужно что бы осталась какая-то одна комбинация
как бы покрасивее это сделать?
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, т.е. мне нужно что бы осталась какая-то одна комбинация
как бы покрасивее это сделать?
предложу такой вариант
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
JS
кстати да, это оно, должно сработать, испробую
JS
Yuriy Saraikin
предложу такой вариант
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
благодарю!
АК
коллеги, странный вопрос у меня, вот такие вот данные есть:
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, т.е. мне нужно что бы осталась какая-то одна комбинация
как бы покрасивее это сделать?
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, т.е. мне нужно что бы осталась какая-то одна комбинация
как бы покрасивее это сделать?
expand.grid уже не соответствует канонам православной tidy-веры?a
expand.grid уже не соответствует канонам православной tidy-веры?конечно! он же не выдают
tibble :)АК
коллеги, странный вопрос у меня, вот такие вот данные есть:
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, т.е. мне нужно что бы осталась какая-то одна комбинация
как бы покрасивее это сделать?
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, т.е. мне нужно что бы осталась какая-то одна комбинация
как бы покрасивее это сделать?
JS
expand.grid уже не соответствует канонам православной tidy-веры?да вопрос не в этом был
JS
спасибо, попробую
JS
expand.grid уже не соответствует канонам православной tidy-веры?да нет никакой веры, просто crossing созвучно с соотв. sql операциями, вот поиск когда то и выдал этот вариант )
АК
да вопрос не в этом был
Да понятно, что не в этом. Это просто моё старческое брюзжание на тему tidyverse-гм, когда учат tidy без base.
JS
ну, кстати, поддержу, ибо начинал то я с dplyr, без base, но что-то получаться осмысленное стало только после изучения base
JS
и степик в этом помог, кстати, хороший там курс для новичков
АК
А в панды тоже без основ питона учат?
Н
и степик в этом помог, кстати, хороший там курс для новичков
От Карпова и Иванчея?
JS
От Карпова и Иванчея?
да
JS
А в панды тоже без основ питона учат?
да я ж сам )) если б учил кто