인수에 대한 모든 순열을 함수에 적용하여 하나의 데이터 프레임을 만듭니다.

Question

R에서 일하면서, 여러 데이터베이스가 있습니다. 매년 하나씩 있습니다. 나는 제품명, 1 년이 걸리는 함수를 가지고 있으며 데이터베이스로부터 다양한 디스크립터를 포함하는 데이터 프레임을 뱉어 낸다. 나는 기능을 통해 전달하려는 :

Product <- c("A","B") 

Year <- c("2015","2016") 

을하고 하나의 dataframe를 반환, 그 인수의 모든 순열을 계산할. 나는 mapply 및 rbind를 사용하여 시도했지만 모든 지저분한 것으로 밝혀졌습니다. 어떤 충고?

당신은 tidyr에서 tidyr에서 crossing의 purrr에서 pmap 및 unnest을 조합하여 사용할 수 있습니다

Answer 1

:

library(tidyr) 
library(purrr) 

crossings <- crossing(Product, Year) 
crossings$result <- pmap(crossings, find_product_sales) 
crossings <- unnest(crossings, result) 

이것은 find_product_sales 기능은 제품 및 년을 소요, 당신은 코멘트에 설명과 같이 가정한다 데이터 프레임을 반환합니다.

(crossing 대신 expand.grid을 사용할 수 있지만, stringsAsFactors = FALSE도 추가 할 수 있습니다).

Answer 2

첫째, 인수 목록으로 분할 그런 다음 인수

params <- expand.grid(Product=Product, Year=Year, stringsAsFactors = F) 

의 순열을 생성

params <- split(params, seq.int(nrow(params))) 

제품 및 연도 마지막으로

my_func <- function(Product, Year) { 
    sprintf("Product: %s, Year: %s", Product, Year) 
} 

를받는 함수를 가지고 매개 변수를 반복하고 함수를 적용하십시오.

lapply(params, function(x) do.call(my_func, x))