같은 영화에있는 액터들의 방향이 다른 조합들

Question

내가하려는 작업을 어떻게 기술해야하는지 잘 모르겠습니다. 두 개의 열 (영화 및 배우)이있는 데이터 프레임이 있습니다. 나는 그들이 함께있는 영화를 기반으로 한 독특한 2 배우 조합의 목록을 만들고 싶습니다. 다음은 내가 가지고있는 데이터 프레임의 예제를 만드는 코드와 내가 원하는 결과 인 다른 데이터 프레임입니다.

start_data <- tibble::tribble(
    ~movie, ~actor, 
    "titanic", "john", 
    "star wars", "john", 
    "baby driver", "john", 
    "shawshank", "billy", 
    "titanic", "billy", 
    "star wars", "sarah", 
    "titanic", "sarah" 
) 

end_data <- tibble::tribble(
    ~movie, ~actor1, ~actor2, 
    "titanic", "john", "billy", 
    "titanic", "john", "sarah", 
    "titanic", "billy", "sarah", 
    "star wars", "john", "sarah" 
) 

어떤 도움 감사합니다, 감사합니다! 보너스 포인트가 짧은 경우 ++

Answer 1

당신은 두 개의 열 tibble 및 summarize으로 목록 컬럼에 저장로 변환 할 수있는 배우의 두 가지 조합을 찾기 위해 combn(..., 2)을 사용할 수 있습니다

; 플랫 데이터 프레임을 얻으려면, unnest를 사용

library(tidyverse) 

start_data %>% 
    group_by(movie) %>% 
    summarise(acts = list(
     if(length(actor) > 1) set_names(as.tibble(t(combn(actor, 2))), c('actor1', 'actor2')) 
     else tibble() 
    )) %>% 
    unnest() 

# A tibble: 4 x 3 
#  movie actor1 actor2 
#  <chr> <chr> <chr> 
#1 star wars john sarah 
#2 titanic john billy 
#3 titanic john sarah 
#4 titanic billy sarah 

Answer 2

library(tidyverse) 
library(stringr) 

inner_join(start_data, start_data, by = "movie") %>% 
    filter(actor.x != actor.y) %>% 
    rowwise() %>% 
    mutate(combo = str_c(min(actor.x, actor.y), "_", max(actor.x, actor.y))) %>% 
    ungroup() %>% 
    select(movie, combo) %>% 
    distinct %>% 
    separate(combo, c("actor1", "actor2"))