R: Wyodrębnianie kolumn z listy data.frames w kamerze

Question

Zastanawiam się, jak manipulować listą zawierającą dane.frames przechowywane w tibble.

W szczególności chciałbym wyodrębnić dwie kolumny z data.frame, które są przechowywane w kolumnie listy wątków.

Chciałbym odchodzą od tej tibble C

random_data<-list(a=letters[1:10],b=LETTERS[1:10]) 
x<-as.data.frame(random_data, stringsAsFactors=FALSE) 
y<-list() 
y[[1]]<-x[1,,drop=FALSE] 
y[[3]]<-x[2,,drop=FALSE] 
c<-tibble(z=c(1,2,3),my_data=y) 

do tego tibble d

d<-tibble(z=c(1,2,3),a=c('a',NA,'b'),b=c('A',NA,'B')) 

dzięki

Iain

Answer 1

Można by utworzyć funkcję f zmieniać się wartości NULL, a następnie zastosować je do kolumny my_data i zakończyć unnest .

library(dplyr); library(tidyr) 

unnest(mutate(c, my_data = lapply(my_data, f))) 
# # A tibble: 3 x 3 
#  z  a  b 
# <dbl> <chr> <chr> 
# 1  1  a  A 
# 2  2 <NA> <NA> 
# 3  3  b  B 

Gdzie f jest funkcją pomocnik zmienić na wartości NULL i jest zdefiniowany jako

f <- function(x) { 
    if(is.null(x)) data.frame(a = NA, b = NA) else x 
} 

Answer 2

c2 się końcowy wynik.

library(tidyverse) 

c2 <- c %>% 
    filter(!map_lgl(my_data, is.null)) %>% 
    unnest() %>% 
    right_join(c, by = "z") %>% 
    select(-my_data) 

Answer 3

myślę, że to załatwia sprawę z d żądany tibble:

library(dplyr) 

new.y <- lapply(y, function(x) if(is.null(x)) data.frame(a = NA, b = NA) else x) 
d <- cbind(z = c(1, 2, 3), bind_rows(new.y)) %>% tbl_df() 


# # A tibble: 3 x 3 
#  z  a  b 
# <dbl> <fctr> <fctr> 
# 1 1  a  A 
# 2 2  NA  NA 
# 3 3  b  B 

Answer 4

Czy znasz swoje nazwy kolumn z wyprzedzeniem?

extract_column <- function(d, column_name) { 
    if(is.null(d)) { 
    NA_character_ 
    } else { 
    as.character(d[[column_name]]) 
    } 
} 


cc %>% 
    dplyr::mutate(
    a = purrr::map_chr(.$my_data, extract_column, column_name="a"), 
    b = purrr::map_chr(.$my_data, extract_column, column_name="b") 
) %>% 
    dplyr::select(-my_data) 

(I zmieniono nazwę c tibble do cc więc nie może kolidować z c().)