데이터 프레임 목록 목록

Question

API 쿼리의 끝점에서 각각 19 개의 요소로 구성된 370 개의 목록을 가져옵니다. 나는 이것을 R에서 19 열을 가진 370 행으로 변환하려하고있다.

나는 as.dataframe을 시도 할 때, 인자가 다른 행 수를 암시한다 : 1, 0 lapply (datos, ldply) 다음 오류가 발생합니다. 결과는 모두 원자 단위 또는 모든 데이터 프레임이어야합니다.

또한 병합 목록 게시를 시도했습니다. 내가

내 데이터를 원하는 것을 내가 주제에 이전과 비슷한 질문을 확인 대답을했지만, 나는하지 않았다 : 1 0

PS를 : 인수가 행의 다른 수를 의미 :뿐만 아니라 메시지가 :

[]

예상 출력 : 19 개 컬럼

Answer 1

370 행 dataframe에리스트 엘리먼트를 캐스팅의 과제 인 NULL 엔티티를 필터링 고려한다.

데이터Dataframe 구축

inner <- 
    list(
    loandId = 2, 
    websiteLoanId = 2, 
    loanName = "Nottingham Student Accodomodation Development Project", 
    amount = 1500000.0, 
    principalRemaining = "0.00", 
    firstDrawDate = "2013-04-16T07:36.08.000z", 
    status = "repaid", 
    sector = NULL, 
    category = "development", 
    holdings = list(1,2,3,4,5), 
    aftermarketForSale = list("a", "b", "c", "d", "e") 
) 

datos= list(loans = lapply(seq(370), function(i) inner)) 

(표시 스크린의 부분을 재현)

# FILTER OUT NULLs 
datos$loans <- lapply(datos$loans, function(item) 
    Filter(function(i) length(i) == 1, item) 
) 

# IF ALL ELEMENTS ARE THE SAME (I.E., NULL DROPS SAME ITEM) 
loansdf <- do.call(rbind, lapply(datos$loans, data.frame)) 

# IF NULL DROPS ABOVE ARE NOT SAME, USE BELOW PACKAGES FOR RBINDING METHOS 
loansdf <- plyr::rbind.fill(datos$loans) 
loansdf <- dplyr::bind_rows(datos$loans) 
loansdf <- data.table::rbindlist(datos$loans) 

출력

loansdf 
# loandId websiteLoanId            loanName amount principalRemaining   firstDrawDate status 
# 1   2    2 Nottingham Student Accodomodation Development Project 1500000    0.00 2013-04-16T07:36.08.000z repaid 
# 2   2    2 Nottingham Student Accodomodation Development Project 1500000    0.00 2013-04-16T07:36.08.000z repaid 
# 3   2    2 Nottingham Student Accodomodation Development Project 1500000    0.00 2013-04-16T07:36.08.000z repaid 
# 4   2    2 Nottingham Student Accodomodation Development Project 1500000    0.00 2013-04-16T07:36.08.000z repaid 
# 5   2    2 Nottingham Student Accodomodation Development Project 1500000    0.00 2013-04-16T07:36.08.000z repaid 
# 6   2    2 Nottingham Student Accodomodation Development Project 1500000    0.00 2013-04-16T07:36.08.000z repaid 
# 7   2    2 Nottingham Student Accodomodation Development Project 1500000    0.00 2013-04-16T07:36.08.000z repaid 
# 8   2    2 Nottingham Student Accodomodation Development Project 1500000    0.00 2013-04-16T07:36.08.000z repaid