Назначайте случайным образом задачи группам

У меня 5 групп:

groups <- as.tribble( ~ group, 
                     "group_1",
                     "group_2",
                     "group_3",
                     "group_4",
                     "group_5")

И я хочу случайным образом назначить каждому из них задачу:

tasks <- as.tribble( ~ task, 
                    "task_1",
                    "task_2",
                    "task_3",
                    "task_4",
                    "task_5")

Вы проверили с sample ?

— 16.05.2019 22:53

r random dplyr

16.05.2019 22:51

Стоит ли изучать PHP в 2026-2027 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Исходя из двух фреймов данных с одинаковым количеством строк, используя dplyr, я бы сделал так:

inner_join(
  mutate(groups, rand = sample(n())),
  mutate(tasks, rand = sample(n())),
  by = "rand"
) %>%
select(-rand)

Это сопоставит каждую строку из groups с каждой строкой из tasks случайным образом, но гарантирует, что каждая группа и каждая задача включены. Он будет хорошо обобщаться, если у вас есть больше столбцов в любом фрейме данных. Предполагается, что у вас одинаковое количество строк в каждом, иначе будут включены все строки из меньшего фрейма данных и случайная подвыборка строк из большего фрейма данных.

Если вы хотите что-то еще, пожалуйста, уточните характеристики вашего случайного процесса.

Установка inner_join(..., by = "rand", keep = FALSE) приведет к удалению rand после того, как вы закончите с ним.

— 16.05.2019 23:32

@muadiib это новая версия или версия для разработчиков? Я использую dplyr 0.8.0.1, которая довольно актуальна, и похоже, что keep = FALSE реализована только для nest_join. Я не вижу упоминания об этом в файле NEWS на Github.

— 16.05.2019 23:37

Конечно, вы правы. keep работает только для nest_join.

— 16.05.2019 23:42

16.05.2019 22:58