suppressWarnings(suppressMessages(library(ggplot2)))
suppressWarnings(suppressMessages(library(tidyr)))
suppressWarnings(suppressMessages(library(stringr)))
suppressWarnings(suppressMessages(library(dplyr)))
suppressWarnings(suppressMessages(library(rvest)))
suppressWarnings(suppressMessages(library(jsonlite)))
suppressWarnings(suppressMessages(library(data.tree)))An API key for Books API has been acquired from New York Times web site. The Books API provides information about book reviews and The New York Times bestsellers lists.
Since it returns a nested JSON objects, flatten parameter was used with fromJSON function.
books <- fromJSON("https://api.nytimes.com/svc/books/v3/lists/best-sellers/history.json?api-key=4a4f0c44e7f64b1d89aa568c29bf6e09",
flatten = TRUE)
str(books)## List of 4
## $ status : chr "OK"
## $ copyright : chr "Copyright (c) 2017 The New York Times Company. All Rights Reserved."
## $ num_results: int 30938
## $ results :'data.frame': 20 obs. of 11 variables:
## ..$ title : chr [1:20] "\"I GIVE YOU MY BODY ...\"" "\"MOST BLESSED OF THE PATRIARCHS\"" "#ASKGARYVEE" "#GIRLBOSS" ...
## ..$ description : chr [1:20] "The author of the Outlander novels gives tips on writing sex scenes, drawing on examples from the books." "A character study that attempts to make sense of Jefferson<U+0092>s contradictions." "The entrepreneur expands on subjects addressed on his Internet show, like marketing, management and social media." "An online fashion retailer traces her path to success." ...
## ..$ contributor : chr [1:20] "by Diana Gabaldon" "by Annette Gordon-Reed and Peter S. Onuf" "by Gary Vaynerchuk" "by Sophia Amoruso" ...
## ..$ author : chr [1:20] "Diana Gabaldon" "Annette Gordon-Reed and Peter S Onuf" "Gary Vaynerchuk" "Sophia Amoruso" ...
## ..$ contributor_note: chr [1:20] "" "" "" "" ...
## ..$ price : num [1:20] 0 0 0 0 23 0 0 0 0 0 ...
## ..$ age_group : chr [1:20] "" "" "" "" ...
## ..$ publisher : chr [1:20] "Dell" "Liveright" "HarperCollins" "Portfolio/Penguin/Putnam" ...
## ..$ isbns :List of 20
## .. ..$ :'data.frame': 1 obs. of 2 variables:
## .. .. ..$ isbn10: chr "0399178570"
## .. .. ..$ isbn13: chr "9780399178573"
## .. ..$ :'data.frame': 1 obs. of 2 variables:
## .. .. ..$ isbn10: chr "0871404427"
## .. .. ..$ isbn13: chr "9780871404428"
## .. ..$ :'data.frame': 2 obs. of 2 variables:
## .. .. ..$ isbn10: chr [1:2] "0062273124" "0062273132"
## .. .. ..$ isbn13: chr [1:2] "9780062273123" "9780062273130"
## .. ..$ :'data.frame': 2 obs. of 2 variables:
## .. .. ..$ isbn10: chr [1:2] "039916927X" "1591847931"
## .. .. ..$ isbn13: chr [1:2] "9780399169274" "9781591847939"
## .. ..$ :'data.frame': 1 obs. of 2 variables:
## .. .. ..$ isbn10: chr "0307951529"
## .. .. ..$ isbn13: chr "9780307951526"
## .. ..$ :'data.frame': 0 obs. of 0 variables
## .. ..$ :'data.frame': 1 obs. of 2 variables:
## .. .. ..$ isbn10: chr "0786867302"
## .. .. ..$ isbn13: chr "9780786867301"
## .. ..$ :'data.frame': 1 obs. of 2 variables:
## .. .. ..$ isbn10: chr "0671630687"
## .. .. ..$ isbn13: chr "9780671630683"
## .. ..$ :'data.frame': 1 obs. of 2 variables:
## .. .. ..$ isbn10: chr "0374217009"
## .. .. ..$ isbn13: chr "9780374217006"
## .. ..$ :'data.frame': 1 obs. of 2 variables:
## .. .. ..$ isbn10: chr "0778314278"
## .. .. ..$ isbn13: chr "9780778314271"
## .. ..$ :'data.frame': 2 obs. of 2 variables:
## .. .. ..$ isbn10: chr [1:2] "069819361X" "039917446X"
## .. .. ..$ isbn13: chr [1:2] "9780698193611" "9780399174469"
## .. ..$ :'data.frame': 1 obs. of 2 variables:
## .. .. ..$ isbn10: chr "0199873747"
## .. .. ..$ isbn13: chr "9780199873746"
## .. ..$ :'data.frame': 1 obs. of 2 variables:
## .. .. ..$ isbn10: chr "0778316645"
## .. .. ..$ isbn13: chr "9780778316640"
## .. ..$ :'data.frame': 1 obs. of 2 variables:
## .. .. ..$ isbn10: chr "1419726552"
## .. .. ..$ isbn13: chr "9781419726552"
## .. ..$ :'data.frame': 1 obs. of 2 variables:
## .. .. ..$ isbn10: chr "0684857340"
## .. .. ..$ isbn13: chr "9780684857343"
## .. ..$ :'data.frame': 0 obs. of 0 variables
## .. ..$ :'data.frame': 1 obs. of 2 variables:
## .. .. ..$ isbn10: chr "0671003542"
## .. .. ..$ isbn13: chr "9780671003548"
## .. ..$ :'data.frame': 2 obs. of 2 variables:
## .. .. ..$ isbn10: chr [1:2] "0761156860" "0761104844"
## .. .. ..$ isbn13: chr [1:2] "9780761156864" "9780761104841"
## .. ..$ :'data.frame': 0 obs. of 0 variables
## .. ..$ :'data.frame': 1 obs. of 2 variables:
## .. .. ..$ isbn10: chr "0393241033"
## .. .. ..$ isbn13: chr "9780393241037"
## ..$ ranks_history :List of 20
## .. ..$ :'data.frame': 1 obs. of 11 variables:
## .. .. ..$ primary_isbn10 : chr "0399178570"
## .. .. ..$ primary_isbn13 : chr "9780399178573"
## .. .. ..$ rank : int 8
## .. .. ..$ list_name : chr "Advice How-To and Miscellaneous"
## .. .. ..$ display_name : chr "Advice, How-To & Miscellaneous"
## .. .. ..$ published_date : chr "2016-09-04"
## .. .. ..$ bestsellers_date: chr "2016-08-20"
## .. .. ..$ weeks_on_list : int 1
## .. .. ..$ ranks_last_week : logi NA
## .. .. ..$ asterisk : int 0
## .. .. ..$ dagger : int 0
## .. ..$ :'data.frame': 1 obs. of 11 variables:
## .. .. ..$ primary_isbn10 : chr "0871404427"
## .. .. ..$ primary_isbn13 : chr "9780871404428"
## .. .. ..$ rank : int 16
## .. .. ..$ list_name : chr "Hardcover Nonfiction"
## .. .. ..$ display_name : chr "Hardcover Nonfiction"
## .. .. ..$ published_date : chr "2016-05-01"
## .. .. ..$ bestsellers_date: chr "2016-04-16"
## .. .. ..$ weeks_on_list : int 1
## .. .. ..$ ranks_last_week : logi NA
## .. .. ..$ asterisk : int 1
## .. .. ..$ dagger : int 0
## .. ..$ :'data.frame': 2 obs. of 11 variables:
## .. .. ..$ primary_isbn10 : chr [1:2] "0062273124" "0062273124"
## .. .. ..$ primary_isbn13 : chr [1:2] "9780062273123" "9780062273123"
## .. .. ..$ rank : int [1:2] 5 6
## .. .. ..$ list_name : chr [1:2] "Business Books" "Advice How-To and Miscellaneous"
## .. .. ..$ display_name : chr [1:2] "Business" "Advice, How-To & Miscellaneous"
## .. .. ..$ published_date : chr [1:2] "2016-04-10" "2016-03-27"
## .. .. ..$ bestsellers_date: chr [1:2] "2016-03-26" "2016-03-12"
## .. .. ..$ weeks_on_list : int [1:2] 0 1
## .. .. ..$ ranks_last_week : logi [1:2] NA NA
## .. .. ..$ asterisk : int [1:2] 0 0
## .. .. ..$ dagger : int [1:2] 1 1
## .. ..$ :'data.frame': 8 obs. of 11 variables:
## .. .. ..$ primary_isbn10 : chr [1:8] "1591847931" "1591847931" "1591847931" "1591847931" ...
## .. .. ..$ primary_isbn13 : chr [1:8] "9781591847939" "9781591847939" "9781591847939" "9781591847939" ...
## .. .. ..$ rank : int [1:8] 8 9 9 8 10 8 14 5
## .. .. ..$ list_name : chr [1:8] "Business Books" "Business Books" "Business Books" "Business Books" ...
## .. .. ..$ display_name : chr [1:8] "Business" "Business" "Business" "Business" ...
## .. .. ..$ published_date : chr [1:8] "2016-03-13" "2016-01-17" "2015-12-13" "2015-11-15" ...
## .. .. ..$ bestsellers_date: chr [1:8] "2016-02-27" "2016-01-02" "2015-11-28" "2015-10-31" ...
## .. .. ..$ weeks_on_list : int [1:8] 0 0 0 0 0 0 0 0
## .. .. ..$ ranks_last_week : logi [1:8] NA NA NA NA NA NA ...
## .. .. ..$ asterisk : int [1:8] 0 0 0 0 0 0 0 0
## .. .. ..$ dagger : int [1:8] 0 0 0 0 0 0 0 0
## .. ..$ :'data.frame': 0 obs. of 0 variables
## .. ..$ :'data.frame': 0 obs. of 0 variables
## .. ..$ :'data.frame': 0 obs. of 0 variables
## .. ..$ :'data.frame': 0 obs. of 0 variables
## .. ..$ :'data.frame': 0 obs. of 0 variables
## .. ..$ :'data.frame': 0 obs. of 0 variables
## .. ..$ :'data.frame': 2 obs. of 11 variables:
## .. .. ..$ primary_isbn10 : chr [1:2] "069819361X" "069819361X"
## .. .. ..$ primary_isbn13 : chr [1:2] "9780698193611" "9780698193611"
## .. .. ..$ rank : int [1:2] 9 15
## .. .. ..$ list_name : chr [1:2] "E-Book Fiction" "Combined Print and E-Book Fiction"
## .. .. ..$ display_name : chr [1:2] "E-Book Fiction" "Combined Print & E-Book Fiction"
## .. .. ..$ published_date : chr [1:2] "2016-05-08" "2016-05-08"
## .. .. ..$ bestsellers_date: chr [1:2] "2016-04-23" "2016-04-23"
## .. .. ..$ weeks_on_list : int [1:2] 1 1
## .. .. ..$ ranks_last_week : logi [1:2] NA NA
## .. .. ..$ asterisk : int [1:2] 0 0
## .. .. ..$ dagger : int [1:2] 0 0
## .. ..$ :'data.frame': 0 obs. of 0 variables
## .. ..$ :'data.frame': 2 obs. of 11 variables:
## .. .. ..$ primary_isbn10 : chr [1:2] "0778316645" "0778316645"
## .. .. ..$ primary_isbn13 : chr [1:2] "9780778316640" "9780778316640"
## .. .. ..$ rank : int [1:2] 18 6
## .. .. ..$ list_name : chr [1:2] "Mass Market Paperback" "Mass Market Paperback"
## .. .. ..$ display_name : chr [1:2] "Paperback Mass-Market Fiction" "Paperback Mass-Market Fiction"
## .. .. ..$ published_date : chr [1:2] "2014-11-30" "2014-11-16"
## .. .. ..$ bestsellers_date: chr [1:2] "2014-11-15" "2014-11-01"
## .. .. ..$ weeks_on_list : int [1:2] 0 1
## .. .. ..$ ranks_last_week : logi [1:2] NA NA
## .. .. ..$ asterisk : int [1:2] 0 1
## .. .. ..$ dagger : int [1:2] 0 0
## .. ..$ :'data.frame': 1 obs. of 11 variables:
## .. .. ..$ primary_isbn10 : chr "1419726552"
## .. .. ..$ primary_isbn13 : chr "9781419726552"
## .. .. ..$ rank : int 9
## .. .. ..$ list_name : chr "Advice How-To and Miscellaneous"
## .. .. ..$ display_name : chr "Advice, How-To & Miscellaneous"
## .. .. ..$ published_date : chr "2017-10-01"
## .. .. ..$ bestsellers_date: chr "2017-09-16"
## .. .. ..$ weeks_on_list : int 1
## .. .. ..$ ranks_last_week : logi NA
## .. .. ..$ asterisk : int 0
## .. .. ..$ dagger : int 1
## .. ..$ :'data.frame': 0 obs. of 0 variables
## .. ..$ :'data.frame': 0 obs. of 0 variables
## .. ..$ :'data.frame': 0 obs. of 0 variables
## .. ..$ :'data.frame': 3 obs. of 11 variables:
## .. .. ..$ primary_isbn10 : chr [1:3] "0761156860" "0761156860" "0761156860"
## .. .. ..$ primary_isbn13 : chr [1:3] "9780761156864" "9780761156864" "9780761156864"
## .. .. ..$ rank : int [1:3] 10 8 12
## .. .. ..$ list_name : chr [1:3] "Travel" "Travel" "Travel"
## .. .. ..$ display_name : chr [1:3] "Travel" "Travel" "Travel"
## .. .. ..$ published_date : chr [1:3] "2015-04-12" "2015-03-15" "2015-01-11"
## .. .. ..$ bestsellers_date: chr [1:3] "2015-03-28" "2015-02-28" "2014-12-27"
## .. .. ..$ weeks_on_list : int [1:3] 0 0 0
## .. .. ..$ ranks_last_week : logi [1:3] NA NA NA
## .. .. ..$ asterisk : int [1:3] 0 0 0
## .. .. ..$ dagger : int [1:3] 0 0 0
## .. ..$ :'data.frame': 0 obs. of 0 variables
## .. ..$ :'data.frame': 0 obs. of 0 variables
## ..$ reviews :List of 20
## .. ..$ :'data.frame': 1 obs. of 4 variables:
## .. .. ..$ book_review_link : chr ""
## .. .. ..$ first_chapter_link : chr ""
## .. .. ..$ sunday_review_link : chr ""
## .. .. ..$ article_chapter_link: chr ""
## .. ..$ :'data.frame': 1 obs. of 4 variables:
## .. .. ..$ book_review_link : chr ""
## .. .. ..$ first_chapter_link : chr ""
## .. .. ..$ sunday_review_link : chr ""
## .. .. ..$ article_chapter_link: chr ""
## .. ..$ :'data.frame': 1 obs. of 4 variables:
## .. .. ..$ book_review_link : chr ""
## .. .. ..$ first_chapter_link : chr ""
## .. .. ..$ sunday_review_link : chr ""
## .. .. ..$ article_chapter_link: chr ""
## .. ..$ :'data.frame': 1 obs. of 4 variables:
## .. .. ..$ book_review_link : chr ""
## .. .. ..$ first_chapter_link : chr ""
## .. .. ..$ sunday_review_link : chr ""
## .. .. ..$ article_chapter_link: chr ""
## .. ..$ :'data.frame': 1 obs. of 4 variables:
## .. .. ..$ book_review_link : chr ""
## .. .. ..$ first_chapter_link : chr ""
## .. .. ..$ sunday_review_link : chr ""
## .. .. ..$ article_chapter_link: chr ""
## .. ..$ :'data.frame': 1 obs. of 4 variables:
## .. .. ..$ book_review_link : chr ""
## .. .. ..$ first_chapter_link : chr ""
## .. .. ..$ sunday_review_link : chr ""
## .. .. ..$ article_chapter_link: chr ""
## .. ..$ :'data.frame': 1 obs. of 4 variables:
## .. .. ..$ book_review_link : chr ""
## .. .. ..$ first_chapter_link : logi NA
## .. .. ..$ sunday_review_link : chr "https://www.nytimes.com/2001/07/29/books/books-in-brief-fiction-poetry-319660.html"
## .. .. ..$ article_chapter_link: logi NA
## .. ..$ :'data.frame': 1 obs. of 4 variables:
## .. .. ..$ book_review_link : chr ""
## .. .. ..$ first_chapter_link : logi NA
## .. .. ..$ sunday_review_link : chr "https://www.nytimes.com/1986/12/28/books/three-chord-music-in-a-three-piece-suit.html"
## .. .. ..$ article_chapter_link: logi NA
## .. ..$ :'data.frame': 1 obs. of 4 variables:
## .. .. ..$ book_review_link : chr ""
## .. .. ..$ first_chapter_link : logi NA
## .. .. ..$ sunday_review_link : chr "https://www.nytimes.com/2007/04/22/books/review/Stuart.t.html"
## .. .. ..$ article_chapter_link: logi NA
## .. ..$ :'data.frame': 1 obs. of 4 variables:
## .. .. ..$ book_review_link : chr ""
## .. .. ..$ first_chapter_link : chr ""
## .. .. ..$ sunday_review_link : chr ""
## .. .. ..$ article_chapter_link: chr ""
## .. ..$ :'data.frame': 1 obs. of 4 variables:
## .. .. ..$ book_review_link : chr ""
## .. .. ..$ first_chapter_link : chr ""
## .. .. ..$ sunday_review_link : chr ""
## .. .. ..$ article_chapter_link: chr ""
## .. ..$ :'data.frame': 1 obs. of 4 variables:
## .. .. ..$ book_review_link : chr ""
## .. .. ..$ first_chapter_link : logi NA
## .. .. ..$ sunday_review_link : chr "https://www.nytimes.com/2013/05/26/books/review/til-faith-do-us-part-by-naomi-schaefer-riley.html"
## .. .. ..$ article_chapter_link: logi NA
## .. ..$ :'data.frame': 1 obs. of 4 variables:
## .. .. ..$ book_review_link : chr ""
## .. .. ..$ first_chapter_link : chr ""
## .. .. ..$ sunday_review_link : chr ""
## .. .. ..$ article_chapter_link: chr ""
## .. ..$ :'data.frame': 1 obs. of 4 variables:
## .. .. ..$ book_review_link : chr ""
## .. .. ..$ first_chapter_link : chr ""
## .. .. ..$ sunday_review_link : chr ""
## .. .. ..$ article_chapter_link: chr ""
## .. ..$ :'data.frame': 1 obs. of 4 variables:
## .. .. ..$ book_review_link : chr ""
## .. .. ..$ first_chapter_link : logi NA
## .. .. ..$ sunday_review_link : chr "https://www.nytimes.com/1998/10/18/books/preaching-to-the-converted.html"
## .. .. ..$ article_chapter_link: logi NA
## .. ..$ :'data.frame': 1 obs. of 4 variables:
## .. .. ..$ book_review_link : chr ""
## .. .. ..$ first_chapter_link : chr ""
## .. .. ..$ sunday_review_link : chr ""
## .. .. ..$ article_chapter_link: chr ""
## .. ..$ :'data.frame': 1 obs. of 4 variables:
## .. .. ..$ book_review_link : chr ""
## .. .. ..$ first_chapter_link : logi NA
## .. .. ..$ sunday_review_link : chr "https://www.nytimes.com/1997/08/31/books/books-in-brief-fiction-747866.html"
## .. .. ..$ article_chapter_link: logi NA
## .. ..$ :'data.frame': 1 obs. of 4 variables:
## .. .. ..$ book_review_link : chr ""
## .. .. ..$ first_chapter_link : chr ""
## .. .. ..$ sunday_review_link : chr ""
## .. .. ..$ article_chapter_link: chr ""
## .. ..$ :'data.frame': 1 obs. of 4 variables:
## .. .. ..$ book_review_link : chr ""
## .. .. ..$ first_chapter_link : chr ""
## .. .. ..$ sunday_review_link : chr ""
## .. .. ..$ article_chapter_link: chr ""
## .. ..$ :'data.frame': 1 obs. of 4 variables:
## .. .. ..$ book_review_link : chr ""
## .. .. ..$ first_chapter_link : chr ""
## .. .. ..$ sunday_review_link : chr ""
## .. .. ..$ article_chapter_link: chr ""As shown above the returned object is a list where the last element - a dataframe (results) contains all the data. There are three list of lists among the elements of this data frame, which were removed and processed later, a dataset was created with rest of the variables:
isbn_index <- grep("isbns", colnames(books$results))
ranks_index <- grep("ranks_history", colnames(books$results))
review_index <- grep("reviews", colnames(books$results))
bookDS <- books$results[, c(-isbn_index, -ranks_index, -review_index)]A functon was created, which convert a multi-row data frame into a single-row data frame.
multiTOsingle <- function(x) {
rnum <- nrow(x)
t <- ""
t2 <- ""
for (i in 1:rnum) {
t <- str_c(t, x[i, 1], sep = ",")
t2 <- str_c(t2, x[i, 2], sep = ",")
}
t <- str_replace(t, ",", "")
t2 <- str_replace(t2, ",", "")
x[1, 1] <- t
x[1, 2] <- t2
return(x[1, ])
}The above function was used in the list of lists that were identified earlier to convert all multi-row lists that exist as the elements of these lists of lists. List with zero rows were asigned with ‘NA’ values. Seperate datasets were created from each of these list of lists.
process ‘isbn’ list:
isbn_Holder <- cbind(books$results$isbns)
for (i in 1:length(isbn_Holder)) {
if (nrow(isbn_Holder[[i]]) > 1) {
isbn_Holder[[i]] <- multiTOsingle(isbn_Holder[[i]])
}
if (nrow(isbn_Holder[[i]]) == 0) {
for (j in 1:2) {
isbn_Holder[[i]][1, j] <- NA
}
}
}
isbnDS <- as.data.frame(matrix(unlist(isbn_Holder), ncol = length(unlist(isbn_Holder[1])),
byrow = TRUE))
colnames(isbnDS) <- colnames(isbn_Holder[[1]])process ‘ranks_history’ list:
ranks_Holder <- cbind(books$results$ranks_history)
for (i in 1:length(ranks_Holder)) {
if (nrow(ranks_Holder[[i]]) > 1) {
ranks_Holder[[i]] <- multiTOsingle(ranks_Holder[[i]])
}
if (nrow(ranks_Holder[[i]]) == 0) {
for (j in 1:11) {
ranks_Holder[[i]][1, j] <- NA
}
}
}
ranks_historyDS <- as.data.frame(matrix(unlist(ranks_Holder), ncol = length(unlist(ranks_Holder[1])),
byrow = TRUE))
colnames(ranks_historyDS) <- colnames(ranks_Holder[[1]])
ranks_historyDS <- ranks_historyDS[, !names(ranks_historyDS) %in%
c("ranks_last_week", "asterisk", "dagger")]process ‘reviews’ list:
review_Holder <- cbind(books$results$reviews)
reviewsDS <- as.data.frame(matrix(unlist(review_Holder), ncol = length(unlist(review_Holder[1])),
byrow = TRUE))
colnames(reviewsDS) <- colnames(review_Holder[[1]])All the datasets were combined to get the final dataset:
finalBookDS <- cbind(bookDS, isbnDS, ranks_historyDS, reviewsDS)finally all columns with no data were removed. Further data cleaning and untidy operations may need to be applied to the resulting data frame according to its future use or purpose of future data analysis projects:
finalBookDS <- finalBookDS[, c(-5, -7, -19, -20, -22)]
head(finalBookDS)## title
## 1 "I GIVE YOU MY BODY ..."
## 2 "MOST BLESSED OF THE PATRIARCHS"
## 3 #ASKGARYVEE
## 4 #GIRLBOSS
## 5 $100 STARTUP
## 6 $20 PER GALLON
## description
## 1 The author of the Outlander novels gives tips on writing sex scenes, drawing on examples from the books.
## 2 A character study that attempts to make sense of Jefferson<U+0092>s contradictions.
## 3 The entrepreneur expands on subjects addressed on his Internet show, like marketing, management and social media.
## 4 An online fashion retailer traces her path to success.
## 5 How to build a profitable start up for $100 or less and be your own boss.
## 6
## contributor
## 1 by Diana Gabaldon
## 2 by Annette Gordon-Reed and Peter S. Onuf
## 3 by Gary Vaynerchuk
## 4 by Sophia Amoruso
## 5 by Chris Guillebeau
## 6 by Christopher Steiner
## author price publisher
## 1 Diana Gabaldon 0 Dell
## 2 Annette Gordon-Reed and Peter S Onuf 0 Liveright
## 3 Gary Vaynerchuk 0 HarperCollins
## 4 Sophia Amoruso 0 Portfolio/Penguin/Putnam
## 5 Chris Guillebeau 23 Crown Business
## 6 Christopher Steiner 0 Grand Central
## isbn10 isbn13
## 1 0399178570 9780399178573
## 2 0871404427 9780871404428
## 3 0062273124,0062273132 9780062273123,9780062273130
## 4 039916927X,1591847931 9780399169274,9781591847939
## 5 0307951529 9780307951526
## 6 <NA> <NA>
## primary_isbn10
## 1 0399178570
## 2 0871404427
## 3 0062273124,0062273124
## 4 1591847931,1591847931,1591847931,1591847931,039916927X,039916927X,039916927X,039916927X
## 5 <NA>
## 6 <NA>
## primary_isbn13
## 1 9780399178573
## 2 9780871404428
## 3 9780062273123,9780062273123
## 4 9781591847939,9781591847939,9781591847939,9781591847939,9780399169274,9780399169274,9780399169274,9780399169274
## 5 <NA>
## 6 <NA>
## rank list_name display_name
## 1 8 Advice How-To and Miscellaneous Advice, How-To & Miscellaneous
## 2 16 Hardcover Nonfiction Hardcover Nonfiction
## 3 5 Business Books Business
## 4 8 Business Books Business
## 5 <NA> <NA> <NA>
## 6 <NA> <NA> <NA>
## published_date bestsellers_date weeks_on_list sunday_review_link
## 1 2016-09-04 2016-08-20 1
## 2 2016-05-01 2016-04-16 1
## 3 2016-04-10 2016-03-26 0
## 4 2016-03-13 2016-02-27 0
## 5 <NA> <NA> <NA>
## 6 <NA> <NA> <NA>