키 값 쌍을 열로 펼치기

Question

다음 데이터 맹 글링 문제로 인해 문제가 있습니다. 각 데이터 집합은 aName 값 하나당 aValue의 다중 값을 갖습니다. 이것은 깔끔한 데이터 프레임에서 쉽게 나타낼 수 있습니다.

someDatasets <- list(dataset1 = data.frame(aName = c("a", "a", "a", "b", "b"), aValue = 1:5, dataset = "ds1"), 
        dataset2 = data.frame(aName = c("a", "a", "a", "b", "c", "c"), aValue = (1:6)*10 , dataset = "ds2"), 
        dataset3 = data.frame(aName = c("a", "c", "c", "c"), aValue = (1:4)*100, dataset = "ds3")) 

tidyData <- Reduce(dplyr::bind_rows, someDatasets) 

데이터 세트 변수를 개별 열로 "분산"하고 싶습니다. (I 때문에 중복 키의 원하는 출력을 생성 할 tidyr::spread을 사용할 수 없습니다.)

### 
# Desired output 
### 
# aName ds1 ds2 ds3 
# a  1 10 100 
# a  2 20 NA 
# a  3 30 NA 
# b  4 40 NA 
# b  5 NA NA 
# c  NA 50 200 
# c  NA 60 300 
# c  NA NA 400 

원하는 출력을 생성하는 깔끔한 방법이 있나요?

PS : 나는 spread-key-value-pairs-when-keys-are-in-different-columns 질문 만 집계 함수 length이 사용되기 때문에

dcast(melt(someDatasets, id = "aName", na.rm = TRUE), aName~value) 

원하는 출력을 생성하지 않는 솔루션 알고 있어요.

Answer 1

@lukeA 및 @A Handcart 및 Mohair의 의견에 명시된대로 중복 키 문제를 피하기 위해 추가 ID를 데이터에 추가 할 수 있습니다.

library(dplyr) 
library(tidyr) 

tidyData = bind_rows(someDatasets) %>% 
    group_by(dataset, aName) %>% 
    mutate(id = paste0(aName, 1:n())) %>% 
    ungroup() %>% 
    select(-aName) 

# head(tidyData) 
# Source: local data frame [6 x 3] 
# 
# aValue dataset id 
# <dbl> <chr> <chr> 
# 1  1  ds1 a1 
# 2  2  ds1 a2 
# 3  3  ds1 a3 
# 4  4  ds1 b1 
# 5  5  ds1 b2 
# 6  10  ds2 a1 

id 각 그룹 (세트) 내에서 지금은 고유 그래서 우리는 확산 진행할 수 :

tidyData %>% 
    spread(dataset, aValue) %>% 
    mutate(id = substr(id, 1, 1)) 

# Source: local data frame [10 x 4] 
# 
#  id ds1 ds2 ds3 
# <chr> <dbl> <dbl> <dbl> 
# 1  a  1 10 100 
# 2  a  2 20 NA 
# 3  a  3 30 NA 
# 4  b  4 40 NA 
# 5  b  5 NA NA 
# 6  c NA 50 200 
# 7  c NA 60 300 
# 8  c NA NA 400