Setup url and API key
url <- 'https://api.nytimes.com/svc/books/v3/lists/current/hardcover-fiction.json'
api <- 'GUz2FMGJsWSqNi5ZC8ZGDAUkqoscMzAI'
bookurl <- paste(url,'?api-key=',api, sep = '')
Change data from list to Dataframe
booksrough <- fromJSON(bookurl, flatten = TRUE)
books <- data.frame(booksrough$results$books)
View(books)
books <- books%>%
select(1,3,11,12,8)
books
## rank weeks_on_list title
## 1 1 1 THE BOYS FROM BILOXI
## 2 2 1 DEMON COPPERHEAD
## 3 3 7 FAIRY TALE
## 4 4 2 LONG SHADOWS
## 5 5 5 DREAMLAND
## 6 6 3 MAD HONEY
## 7 7 2 THE MAZE
## 8 8 4 VERITY
## 9 9 3 OUR MISSING HEARTS
## 10 10 1 LIBERATION DAY
## 11 11 1 THE LAST CHAIRLIFT
## 12 12 1 THE CHRISTMAS SPIRIT
## 13 13 3 RIGHTEOUS PREY
## 14 14 25 LESSONS IN CHEMISTRY
## 15 15 4 THE WINNERS
## author publisher
## 1 John Grisham Doubleday
## 2 Barbara Kingsolver Harper
## 3 Stephen King Scribner
## 4 David Baldacci Grand Central
## 5 Nicholas Sparks Random House
## 6 Jodi Picoult and Jennifer Finney Boylan Ballantine
## 7 Nelson DeMille Scribner
## 8 Colleen Hoover Grand Central
## 9 Celeste Ng Penguin Press
## 10 George Saunders Random House
## 11 John Irving Simon & Schuster
## 12 Debbie Macomber Ballantine
## 13 John Sandford Putnam
## 14 Bonnie Garmus Doubleday
## 15 Fredrik Backman Atria