Book Category
library('httr')
library(jsonlite)
## Warning: package 'jsonlite' was built under R version 3.2.5
library(dplyr)
## Warning: package 'dplyr' was built under R version 3.2.5
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
url='https://api.nytimes.com/svc/books/v3/lists/overview.json?api-key=87e3145b9ace45c0aba3bc181e35426f'
df <- jsonlite::fromJSON(url, flatten = TRUE)
df$results$lists$display_name
## [1] "Combined Print & E-Book Fiction"
## [2] "Combined Print & E-Book Nonfiction"
## [3] "Hardcover Fiction"
## [4] "Hardcover Nonfiction"
## [5] "Paperback Trade Fiction"
## [6] "Paperback Nonfiction"
## [7] "Advice, How-To & Miscellaneous"
## [8] "Children’s Middle Grade Hardcover"
## [9] "Children’s Picture Books"
## [10] "Children’s Series"
## [11] "Young Adult Hardcover"
## [12] "Business"
## [13] "Science"
## [14] "Sports and Fitness"
Science Books
book<-subset(df$results$lists,display_name=='Science',select = books)[[1]]
subset(book[[1]],select=c(author,title,book_image,contributor,primary_isbn10,publisher,rank))
## author title
## 1 Neil deGrasse Tyson ASTROPHYSICS FOR PEOPLE IN A HURRY
## 2 Dale Bredesen THE END OF ALZHEIMER'S
## 3 Atul Gawande BEING MORTAL
## 4 Yuval Noah Harari SAPIENS
## 5 Douglas Preston THE LOST CITY OF THE MONKEY GOD
## book_image
## 1 https://s1.nyt.com/du/books/images/9780393609394.jpg
## 2 https://s1.nyt.com/du/books/images/9780735216204.jpg
## 3 https://s1.nyt.com/du/books/images/9780805095159.jpg
## 4 https://s1.nyt.com/du/books/images/9780062316097.jpg
## 5 https://s1.nyt.com/du/books/images/9781455540020.jpg
## contributor primary_isbn10 publisher rank
## 1 by Neil deGrasse Tyson 0393609391 Norton 1
## 2 by Dale Bredesen 0735216207 Avery 2
## 3 by Atul Gawande 1250076226 Metropolitan/Holt 3
## 4 by Yuval Noah Harari 0062316095 Harper 4
## 5 by Douglas Preston None Grand Central 5
Buy Link
book<-subset(df$results$lists,display_name=='Science',select = books)[[1]]
link<-subset(book[[1]],select=c(title,buy_links))
r<-link$buy_links[[1]]
for (i in 2:length(link$buy_links))
r<-rbind(r,link$buy_links[[i]])
r<-arrange(r,name)
r<-cbind(link$title,r)
names(r)[names(r)=="link$title"] <- "title"
r
## title name
## 1 ASTROPHYSICS FOR PEOPLE IN A HURRY Amazon
## 2 THE END OF ALZHEIMER'S Amazon
## 3 BEING MORTAL Amazon
## 4 SAPIENS Amazon
## 5 THE LOST CITY OF THE MONKEY GOD Amazon
## 6 ASTROPHYSICS FOR PEOPLE IN A HURRY Barnes and Noble
## 7 THE END OF ALZHEIMER'S Barnes and Noble
## 8 BEING MORTAL Barnes and Noble
## 9 SAPIENS Barnes and Noble
## 10 THE LOST CITY OF THE MONKEY GOD Barnes and Noble
## 11 ASTROPHYSICS FOR PEOPLE IN A HURRY Local Booksellers
## 12 THE END OF ALZHEIMER'S Local Booksellers
## 13 BEING MORTAL Local Booksellers
## 14 SAPIENS Local Booksellers
## 15 THE LOST CITY OF THE MONKEY GOD Local Booksellers
## url
## 1 https://www.amazon.com/Astrophysics-People-Hurry-deGrasse-Tyson/dp/0393609391?tag=NYTBS-20
## 2 https://www.amazon.com/End-Alzheimers-Program-Prevent-Cognitive/dp/0735216207?tag=NYTBS-20
## 3 http://www.amazon.com/Being-Mortal-Medicine-What-Matters/dp/0805095152?tag=NYTBS-20
## 4 http://www.amazon.com/Sapiens-A-Brief-History-Humankind-ebook/dp/B00ICN066A?tag=NYTBS-20
## 5 https://www.amazon.com/Lost-City-Monkey-God-Story-ebook/dp/B01G1K1RTA?tag=NYTBS-20
## 6 http://www.anrdoezrs.net/click-7990613-11819508?url=http%3A%2F%2Fwww.barnesandnoble.com%2Fw%2F%3Fean%3D9780393609394
## 7 http://www.anrdoezrs.net/click-7990613-11819508?url=http%3A%2F%2Fwww.barnesandnoble.com%2Fw%2F%3Fean%3D9780735216204
## 8 http://www.anrdoezrs.net/click-7990613-11819508?url=http%3A%2F%2Fwww.barnesandnoble.com%2Fw%2F%3Fean%3D9781250076229
## 9 http://www.anrdoezrs.net/click-7990613-11819508?url=http%3A%2F%2Fwww.barnesandnoble.com%2Fw%2F%3Fean%3D9780062316097
## 10 http://www.anrdoezrs.net/click-7990613-11819508?url=http%3A%2F%2Fwww.barnesandnoble.com%2Fw%2F%3Fean%3D9781538760833
## 11 http://www.indiebound.org/book/9780393609394?aff=NYT
## 12 http://www.indiebound.org/book/9780735216204?aff=NYT
## 13 http://www.indiebound.org/book/9781250076229?aff=NYT
## 14 http://www.indiebound.org/book/9780062316097?aff=NYT
## 15 http://www.indiebound.org/book/9781538760833?aff=NYT
Business
book<-subset(df$results$lists,display_name=='Business',select = books)[[1]]
subset(book[[1]],select=c(author,title,book_image,contributor,primary_isbn10,publisher,rank))
## author title
## 1 Ray Dalio PRINCIPLES
## 2 Tim Ferriss TOOLS OF TITANS
## 3 Angela Duckworth GRIT
## 4 Satya Nadella with Greg Shaw and Jill Tracie Nichols HIT REFRESH
## 5 Max Tegmark LIFE 3.0
## book_image
## 1 https://s1.nyt.com/du/books/images/9781501124020.jpg
## 2 https://s1.nyt.com/du/books/images/9781328683786.jpg
## 3 https://s1.nyt.com/du/books/images/9781501111129.jpg
## 4 https://s1.nyt.com/du/books/images/9780062652508.jpg
## 5 https://s1.nyt.com/du/books/images/9781101946596.jpg
## contributor primary_isbn10
## 1 by Ray Dalio 1501124021
## 2 by Tim Ferriss 1328684059
## 3 by Angela Duckworth 1501111108
## 4 by Satya Nadella with Greg Shaw and Jill Tracie Nichols 0062652508
## 5 by Max Tegmark 1101946598
## publisher rank
## 1 Simon & Schuster 1
## 2 Houghton Mifflin Harcourt 2
## 3 Scribner 3
## 4 Harper Business 4
## 5 Knopf 5
book<-subset(df$results$lists,display_name=='Business',select = books)[[1]]
link<-subset(book[[1]],select=c(title,buy_links))
r<-link$buy_links[[1]]
for (i in 2:length(link$buy_links))
r<-rbind(r,link$buy_links[[i]])
r<-arrange(r,name)
r<-cbind(link$title,r)
names(r)[names(r)=="link$title"] <- "title"
r
## title name
## 1 PRINCIPLES Amazon
## 2 TOOLS OF TITANS Amazon
## 3 GRIT Amazon
## 4 HIT REFRESH Amazon
## 5 LIFE 3.0 Amazon
## 6 PRINCIPLES Barnes and Noble
## 7 TOOLS OF TITANS Barnes and Noble
## 8 GRIT Barnes and Noble
## 9 HIT REFRESH Barnes and Noble
## 10 LIFE 3.0 Barnes and Noble
## 11 PRINCIPLES Local Booksellers
## 12 TOOLS OF TITANS Local Booksellers
## 13 GRIT Local Booksellers
## 14 HIT REFRESH Local Booksellers
## 15 LIFE 3.0 Local Booksellers
## url
## 1 https://www.amazon.com/Principles-Life-Work-Ray-Dalio/dp/1501124021?tag=NYTBS-20
## 2 https://www.amazon.com/Tools-Titans-Billionaires-World-Class-Performers/dp/1328683788?tag=NYTBS-20
## 3 http://www.amazon.com/Grit-The-Power-Passion-Perseverance-ebook/dp/B010MH9V3W?tag=NYTBS-20
## 4 https://www.amazon.com/Hit-Refresh-Rediscover-Microsofts-Everyone/dp/0062652508?tag=NYTBS-20
## 5 https://www.amazon.com/Life-3-0-Being-Artificial-Intelligence/dp/1101946598?tag=NYTBS-20
## 6 http://www.anrdoezrs.net/click-7990613-11819508?url=http%3A%2F%2Fwww.barnesandnoble.com%2Fw%2F%3Fean%3D9781501124020
## 7 http://www.anrdoezrs.net/click-7990613-11819508?url=http%3A%2F%2Fwww.barnesandnoble.com%2Fw%2F%3Fean%3D9781328684059
## 8 http://www.anrdoezrs.net/click-7990613-11819508?url=http%3A%2F%2Fwww.barnesandnoble.com%2Fw%2F%3Fean%3D9781501111105
## 9 http://www.anrdoezrs.net/click-7990613-11819508?url=http%3A%2F%2Fwww.barnesandnoble.com%2Fw%2F%3Fean%3D9780062652508
## 10 http://www.anrdoezrs.net/click-7990613-11819508?url=http%3A%2F%2Fwww.barnesandnoble.com%2Fw%2F%3Fean%3D9781101946596
## 11 http://www.indiebound.org/book/9781501124020?aff=NYT
## 12 http://www.indiebound.org/book/9781328684059?aff=NYT
## 13 http://www.indiebound.org/book/9781501111105?aff=NYT
## 14 http://www.indiebound.org/book/9780062652508?aff=NYT
## 15 http://www.indiebound.org/book/9781101946596?aff=NYT