提取列表中列表以在 R 中构建数据帧

Question

我正在尝试使用我的个人数据从 LibraryThing api 构建一个包含书籍 ID、标题、作者、评级、收藏、开始和完成日期的数据框。我能够相当容易地获得一个嵌套列表，并且我已经想出了如何构建一个包含除日期之外的所有内容的数据框(也许不是最好的方式，但它有效(。我的问题在于日期。 我正在使用的列表通常有 20 个元素，但只有当我在帐户中向书籍添加日期时，它才会添加 startfinishdates 元素。这会导致两个问题：

• 如果它一直存在，我可以像其他所有内容一样提取它，并且它大部分时间都有 NA，并且我可以使用 cbind 使其与其他信息正确对齐
• 当我使用名称提取它并获取一个元素较少的对象时，我没有办法将其连接回其他所有内容(它没有 book id(

最终，我想构建这个数据框和一个答案，告诉我如何提取书籍 ID 并将其与每个开始完成日期相关联，以便我可以加入书籍 ID 是可以接受的。我只是将其添加到我拥有的代码中。

我也愿意从跳转中学习更好的方法并重新设计整个事情，因为我在 R 中没有使用太多列表，而且我放在一起的是经过多次试验和错误。不过，我确实想使用R，因为最终我将使用它为我的网站创建一个R Markdown页面(例如，显示书籍完成日期的图(。

您可以运行下面的代码并获取数据(无需 api 密钥(。

library(jsonlite)
library(tidyverse)
library(assertr)
data<-fromJSON("http://www.librarything.com/api_getdata.php?userid=cau83&key=392812157&max=450&showCollections=1&responseType=json&showDates=1")
books.lst<-data$books
#create df from json
create.df<-function(item){
df<-map_df(.x=books.lst,~.x[[item]])
df2 <- t(df)
return(df2)
}
ids<-create.df(1)
titles<-create.df(2)
ratings<-create.df(12)
authors<-create.df(4)
#need to get the book id when i build the date df's
startdates.df<-map_df(.x=books.lst,~.x$startfinishdates) %>% select(started_stamp,started_date)
finishdates.df<-map_df(.x=books.lst,~.x$startfinishdates) %>% select(finished_stamp,finished_date)
collections.df<-map_df(.x=books.lst,~.x$collections)
#from assertr: will create a vector of same length as df with all values concatenated
collections.v<-col_concat(collections.df, sep = ", ")
#assemble df
books.df<-as.data.frame(cbind(ids,titles,authors,ratings,collections.v)) 
names(books.df)<-c("ID","Title","Author","Rating","Collections")
books.df<-books.df %>% mutate(ID=as.character(ID),Title=as.character(Title),Author=as.character(Author),
Rating=as.character(Rating),Collections=as.character(Collections))

Answer 1

这种方法超出了tidyverse元包的范围。使用 base-R，您可以使用以下代码使其工作。

Map会将用户定义的函数应用于参数中提供的data$books的每个元素，并提取data.frame所需的字段。Reduce将获取所有单独的数据帧并将它们合并(或减少(为单个 data.framebooksdf。

library(jsonlite)
data<-fromJSON("http://www.librarything.com/api_getdata.php?userid=cau83&key=392812157&max=450&showCollections=1&responseType=json&showDates=1")
booksdf=Reduce(function(x,y){rbind(x,y)},
Map(function(x){
lenofelements = length(x)
if(lenofelements>20){
if(!is.null(x$startfinishdates$started_date)){
started_date = x$startfinishdates$started_date
}else{
started_date=NA
}
if(!is.null(x$startfinishdates$started_stamp)){
started_stamp = x$startfinishdates$started_date
}else{
started_stamp=NA
}
if(!is.null(x$startfinishdates$finished_date)){
finished_date = x$startfinishdates$finished_date
}else{
finished_date=NA
}
if(!is.null(x$startfinishdates$finished_stamp)){
finished_stamp = x$startfinishdates$finished_stamp
}else{
finished_stamp=NA
}
}else{
started_stamp = NA
started_date = NA
finished_stamp = NA
finished_date = NA
}
book_id = x$book_id
title = x$title
author = x$author_fl
rating = x$rating
collections = paste(unlist(x$collections),collapse = ",")
return(data.frame(ID=book_id,Title=title,Author=author,Rating=rating,
Collections=collections,Started_date=started_date,Started_stamp=started_stamp,
Finished_date=finished_date,Finished_stamp=finished_stamp))
},data$books))