Web Scraping Project- Bestselling books Amazon.com 2018 (1).ipynb

{
 "cells": [
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Best Selling Books 2018 from Amazon.com"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "#### This is a project where data is scraped from amazon.com for bestselling books in 2018. This notebook contains -\n",
    "\n",
    "1. Webscraping code for top 100 books sold on amazon.com for the year 2018.\n",
    "2. Webscraping code for top 100 books list from NYT.\n",
    "3. Analytics and Insights drawn from the above data."
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "###  Analytics & Insights on top 100 books sold by Amazon\n",
    "\n",
    "Some of the questions we can answer from the data are -\n",
    "\n",
    "1. Which books got the highest star ratings ?\n",
    "2. Which books got the max num of reviews ?\n",
    "3. Which book got the max star rating and reviews ?\n",
    "4. Which author's books has featured in the top 100 more than once ?\n",
    "5. Which type of book has sold a lot ? (paperback or hardcover)\n",
    "6. What is the price range, that is most present in the top 100 ?\n",
    "7. What is the price range seen in books on top 10, 11-20 .... so on till 90-100 ?\n",
    "8. which are the common books in the NYT list and Amazon top 100 books list ?\n",
    "9. Genre of books that are in the common list ?\n",
    "\n",
    "\n",
    "More questions which I would have liked to solve but didnt get credible data to verify for are - \n",
    "\n",
    "1. How many authors were women in the top 100 bestselling books list ?\n",
    "2. Genre of books in the top 100 ?\n",
    "3. Age-group of authors who made it to the top 100 books list.\n",
    "4. Ethnic origins of authors.\n",
    "5. Book Themes popular in 2018."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 1,
   "metadata": {},
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "Loading required package: dplyr\n",
      "\n",
      "Attaching package: 'dplyr'\n",
      "\n",
      "The following objects are masked from 'package:stats':\n",
      "\n",
      "    filter, lag\n",
      "\n",
      "The following objects are masked from 'package:base':\n",
      "\n",
      "    intersect, setdiff, setequal, union\n",
      "\n",
      "Loading required package: stringr\n",
      "Loading required package: rvest\n",
      "Loading required package: xml2\n",
      "Registered S3 method overwritten by 'rvest':\n",
      "  method            from\n",
      "  read_xml.response xml2\n",
      "Loading required package: RCurl\n",
      "Warning message in library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE, :\n",
      "\"there is no package called 'RCurl'\"Loading required package: maps\n",
      "Loading required package: XML\n",
      "Warning message in library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE, :\n",
      "\"there is no package called 'XML'\"Loading required package: ggplot2\n",
      "Registered S3 methods overwritten by 'ggplot2':\n",
      "  method         from \n",
      "  [.quosures     rlang\n",
      "  c.quosures     rlang\n",
      "  print.quosures rlang\n",
      "Loading required package: plotly\n",
      "Warning message in library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE, :\n",
      "\"there is no package called 'plotly'\""
     ]
    },
    {
     "data": {
      "text/html": [
       "<dl class=dl-horizontal>\n",
       "\t<dt>dplyr</dt>\n",
       "\t\t<dd>TRUE</dd>\n",
       "\t<dt>stringr</dt>\n",
       "\t\t<dd>TRUE</dd>\n",
       "\t<dt>rvest</dt>\n",
       "\t\t<dd>TRUE</dd>\n",
       "\t<dt>RCurl</dt>\n",
       "\t\t<dd>FALSE</dd>\n",
       "\t<dt>maps</dt>\n",
       "\t\t<dd>TRUE</dd>\n",
       "\t<dt>XML</dt>\n",
       "\t\t<dd>FALSE</dd>\n",
       "\t<dt>xml2</dt>\n",
       "\t\t<dd>TRUE</dd>\n",
       "\t<dt>ggplot2</dt>\n",
       "\t\t<dd>TRUE</dd>\n",
       "\t<dt>plotly</dt>\n",
       "\t\t<dd>FALSE</dd>\n",
       "</dl>\n"
      ],
      "text/latex": [
       "\\begin{description*}\n",
       "\\item[dplyr] TRUE\n",
       "\\item[stringr] TRUE\n",
       "\\item[rvest] TRUE\n",
       "\\item[RCurl] FALSE\n",
       "\\item[maps] TRUE\n",
       "\\item[XML] FALSE\n",
       "\\item[xml2] TRUE\n",
       "\\item[ggplot2] TRUE\n",
       "\\item[plotly] FALSE\n",
       "\\end{description*}\n"
      ],
      "text/markdown": [
       "dplyr\n",
       ":   TRUEstringr\n",
       ":   TRUErvest\n",
       ":   TRUERCurl\n",
       ":   FALSEmaps\n",
       ":   TRUEXML\n",
       ":   FALSExml2\n",
       ":   TRUEggplot2\n",
       ":   TRUEplotly\n",
       ":   FALSE\n",
       "\n"
      ],
      "text/plain": [
       "  dplyr stringr   rvest   RCurl    maps     XML    xml2 ggplot2  plotly \n",
       "   TRUE    TRUE    TRUE   FALSE    TRUE   FALSE    TRUE    TRUE   FALSE "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>1</li>\n",
       "\t<li>2</li>\n",
       "\t<li>3</li>\n",
       "\t<li>4</li>\n",
       "\t<li>5</li>\n",
       "\t<li>6</li>\n",
       "\t<li>7</li>\n",
       "\t<li>8</li>\n",
       "\t<li>9</li>\n",
       "\t<li>10</li>\n",
       "\t<li>11</li>\n",
       "\t<li>12</li>\n",
       "\t<li>13</li>\n",
       "\t<li>14</li>\n",
       "\t<li>15</li>\n",
       "\t<li>16</li>\n",
       "\t<li>17</li>\n",
       "\t<li>18</li>\n",
       "\t<li>19</li>\n",
       "\t<li>20</li>\n",
       "\t<li>21</li>\n",
       "\t<li>22</li>\n",
       "\t<li>23</li>\n",
       "\t<li>24</li>\n",
       "\t<li>25</li>\n",
       "\t<li>26</li>\n",
       "\t<li>27</li>\n",
       "\t<li>28</li>\n",
       "\t<li>29</li>\n",
       "\t<li>30</li>\n",
       "\t<li>31</li>\n",
       "\t<li>32</li>\n",
       "\t<li>33</li>\n",
       "\t<li>34</li>\n",
       "\t<li>35</li>\n",
       "\t<li>36</li>\n",
       "\t<li>37</li>\n",
       "\t<li>38</li>\n",
       "\t<li>39</li>\n",
       "\t<li>40</li>\n",
       "\t<li>41</li>\n",
       "\t<li>42</li>\n",
       "\t<li>43</li>\n",
       "\t<li>44</li>\n",
       "\t<li>45</li>\n",
       "\t<li>46</li>\n",
       "\t<li>47</li>\n",
       "\t<li>48</li>\n",
       "\t<li>49</li>\n",
       "\t<li>50</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 1\n",
       "\\item 2\n",
       "\\item 3\n",
       "\\item 4\n",
       "\\item 5\n",
       "\\item 6\n",
       "\\item 7\n",
       "\\item 8\n",
       "\\item 9\n",
       "\\item 10\n",
       "\\item 11\n",
       "\\item 12\n",
       "\\item 13\n",
       "\\item 14\n",
       "\\item 15\n",
       "\\item 16\n",
       "\\item 17\n",
       "\\item 18\n",
       "\\item 19\n",
       "\\item 20\n",
       "\\item 21\n",
       "\\item 22\n",
       "\\item 23\n",
       "\\item 24\n",
       "\\item 25\n",
       "\\item 26\n",
       "\\item 27\n",
       "\\item 28\n",
       "\\item 29\n",
       "\\item 30\n",
       "\\item 31\n",
       "\\item 32\n",
       "\\item 33\n",
       "\\item 34\n",
       "\\item 35\n",
       "\\item 36\n",
       "\\item 37\n",
       "\\item 38\n",
       "\\item 39\n",
       "\\item 40\n",
       "\\item 41\n",
       "\\item 42\n",
       "\\item 43\n",
       "\\item 44\n",
       "\\item 45\n",
       "\\item 46\n",
       "\\item 47\n",
       "\\item 48\n",
       "\\item 49\n",
       "\\item 50\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 1\n",
       "2. 2\n",
       "3. 3\n",
       "4. 4\n",
       "5. 5\n",
       "6. 6\n",
       "7. 7\n",
       "8. 8\n",
       "9. 9\n",
       "10. 10\n",
       "11. 11\n",
       "12. 12\n",
       "13. 13\n",
       "14. 14\n",
       "15. 15\n",
       "16. 16\n",
       "17. 17\n",
       "18. 18\n",
       "19. 19\n",
       "20. 20\n",
       "21. 21\n",
       "22. 22\n",
       "23. 23\n",
       "24. 24\n",
       "25. 25\n",
       "26. 26\n",
       "27. 27\n",
       "28. 28\n",
       "29. 29\n",
       "30. 30\n",
       "31. 31\n",
       "32. 32\n",
       "33. 33\n",
       "34. 34\n",
       "35. 35\n",
       "36. 36\n",
       "37. 37\n",
       "38. 38\n",
       "39. 39\n",
       "40. 40\n",
       "41. 41\n",
       "42. 42\n",
       "43. 43\n",
       "44. 44\n",
       "45. 45\n",
       "46. 46\n",
       "47. 47\n",
       "48. 48\n",
       "49. 49\n",
       "50. 50\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25\n",
       "[26] 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "'list'"
      ],
      "text/latex": [
       "'list'"
      ],
      "text/markdown": [
       "'list'"
      ],
      "text/plain": [
       "[1] \"list\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<ol>\n",
       "\t<li>'Becoming'</li>\n",
       "\t<li>'Girl, Wash Your Face'</li>\n",
       "\t<li>'The Wonky Donkey'</li>\n",
       "\t<li>'Fire and Fury'</li>\n",
       "\t<li>'Fear'</li>\n",
       "\t<li>'Last Week Tonight with John Oliver Presents A Day in the Life of Marlon Bundo (Better Bundo Book, LGBT Children\\u0092s Book)'</li>\n",
       "\t<li>'12 Rules for Life'</li>\n",
       "\t<li>'Magnolia Table'</li>\n",
       "\t<li>'Whose Boat Is This Boat?'</li>\n",
       "\t<li>'The Subtle Art of Not Giving a F*ck'</li>\n",
       "\t<li>'A Higher Loyalty'</li>\n",
       "\t<li>'The Complete Ketogenic Diet for Beginners'</li>\n",
       "\t<li>'Diary of a Wimpy Kid #13'</li>\n",
       "\t<li>'The 5 Love Languages'</li>\n",
       "\t<li>'First 100 Words'</li>\n",
       "\t<li>'Dog Man'</li>\n",
       "\t<li>'Educated'</li>\n",
       "\t<li>'You Are a Badass®'</li>\n",
       "\t<li>'The Plant Paradox'</li>\n",
       "\t<li>'Giraffes Can\\'t Dance'</li>\n",
       "\t<li>'Player\\'s Handbook (Dungeons &amp; Dragons)'</li>\n",
       "\t<li>'Homebody'</li>\n",
       "\t<li>'The Very Hungry Caterpillar'</li>\n",
       "\t<li>'Crazy Rich Asians (Crazy Rich Asians Trilogy)'</li>\n",
       "\t<li>'The Hate U Give'</li>\n",
       "\t<li>'The Instant Pot Electric Pressure Cooker Cookbook'</li>\n",
       "\t<li>'The Four Agreements'</li>\n",
       "\t<li>'The Wonderful Things You Will Be'</li>\n",
       "\t<li>'P is for Potty! (Sesame Street) (Lift-the-Flap)'</li>\n",
       "\t<li>'The Pout-Pout Fish'</li>\n",
       "\t<li>'Lettering and Modern Calligraphy'</li>\n",
       "\t<li>'Publication Manual of the American Psychological Association, 6th Edition'</li>\n",
       "\t<li>'Dear Zoo'</li>\n",
       "\t<li>'Oh, the Places You\\'ll Go!'</li>\n",
       "\t<li>'Dog Man and Cat Kid'</li>\n",
       "\t<li>'Goodnight Moon'</li>\n",
       "\t<li>'Salt, Fat, Acid, Heat'</li>\n",
       "\t<li>'A Wrinkle in Time (Time Quintet)'</li>\n",
       "\t<li>'How to Win Friends &amp; Influence People'</li>\n",
       "\t<li>'Dog Man'</li>\n",
       "\t<li>'Instant Pot Pressure Cooker Cookbook'</li>\n",
       "\t<li>'Milk and Honey'</li>\n",
       "\t<li>'Little Fires Everywhere'</li>\n",
       "\t<li>'Kitchen Confidential Updated Edition'</li>\n",
       "\t<li>'The President Is Missing'</li>\n",
       "\t<li>'School Zone - Big Preschool Workbook - Ages 3 to 5, Colors, Shapes, Numbers 1-10, Alphabet, Pre-Writing, Pre-Reading, and Phonics (School Zone Big Workbook Series)'</li>\n",
       "\t<li>'The Plant Paradox Cookbook'</li>\n",
       "\t<li>'Ready Player One'</li>\n",
       "\t<li>'Fahrenheit 451'</li>\n",
       "\t<li>'Ship of Fools'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate}\n",
       "\\item 'Becoming'\n",
       "\\item 'Girl, Wash Your Face'\n",
       "\\item 'The Wonky Donkey'\n",
       "\\item 'Fire and Fury'\n",
       "\\item 'Fear'\n",
       "\\item 'Last Week Tonight with John Oliver Presents A Day in the Life of Marlon Bundo (Better Bundo Book, LGBT Children\\textbackslash{}u0092s Book)'\n",
       "\\item '12 Rules for Life'\n",
       "\\item 'Magnolia Table'\n",
       "\\item 'Whose Boat Is This Boat?'\n",
       "\\item 'The Subtle Art of Not Giving a F*ck'\n",
       "\\item 'A Higher Loyalty'\n",
       "\\item 'The Complete Ketogenic Diet for Beginners'\n",
       "\\item 'Diary of a Wimpy Kid \\#13'\n",
       "\\item 'The 5 Love Languages'\n",
       "\\item 'First 100 Words'\n",
       "\\item 'Dog Man'\n",
       "\\item 'Educated'\n",
       "\\item 'You Are a Badass®'\n",
       "\\item 'The Plant Paradox'\n",
       "\\item 'Giraffes Can\\textbackslash{}'t Dance'\n",
       "\\item 'Player\\textbackslash{}'s Handbook (Dungeons \\& Dragons)'\n",
       "\\item 'Homebody'\n",
       "\\item 'The Very Hungry Caterpillar'\n",
       "\\item 'Crazy Rich Asians (Crazy Rich Asians Trilogy)'\n",
       "\\item 'The Hate U Give'\n",
       "\\item 'The Instant Pot Electric Pressure Cooker Cookbook'\n",
       "\\item 'The Four Agreements'\n",
       "\\item 'The Wonderful Things You Will Be'\n",
       "\\item 'P is for Potty! (Sesame Street) (Lift-the-Flap)'\n",
       "\\item 'The Pout-Pout Fish'\n",
       "\\item 'Lettering and Modern Calligraphy'\n",
       "\\item 'Publication Manual of the American Psychological Association, 6th Edition'\n",
       "\\item 'Dear Zoo'\n",
       "\\item 'Oh, the Places You\\textbackslash{}'ll Go!'\n",
       "\\item 'Dog Man and Cat Kid'\n",
       "\\item 'Goodnight Moon'\n",
       "\\item 'Salt, Fat, Acid, Heat'\n",
       "\\item 'A Wrinkle in Time (Time Quintet)'\n",
       "\\item 'How to Win Friends \\& Influence People'\n",
       "\\item 'Dog Man'\n",
       "\\item 'Instant Pot Pressure Cooker Cookbook'\n",
       "\\item 'Milk and Honey'\n",
       "\\item 'Little Fires Everywhere'\n",
       "\\item 'Kitchen Confidential Updated Edition'\n",
       "\\item 'The President Is Missing'\n",
       "\\item 'School Zone - Big Preschool Workbook - Ages 3 to 5, Colors, Shapes, Numbers 1-10, Alphabet, Pre-Writing, Pre-Reading, and Phonics (School Zone Big Workbook Series)'\n",
       "\\item 'The Plant Paradox Cookbook'\n",
       "\\item 'Ready Player One'\n",
       "\\item 'Fahrenheit 451'\n",
       "\\item 'Ship of Fools'\n",
       "\\end{enumerate}\n"
      ],
      "text/markdown": [
       "1. 'Becoming'\n",
       "2. 'Girl, Wash Your Face'\n",
       "3. 'The Wonky Donkey'\n",
       "4. 'Fire and Fury'\n",
       "5. 'Fear'\n",
       "6. 'Last Week Tonight with John Oliver Presents A Day in the Life of Marlon Bundo (Better Bundo Book, LGBT Children\\u0092s Book)'\n",
       "7. '12 Rules for Life'\n",
       "8. 'Magnolia Table'\n",
       "9. 'Whose Boat Is This Boat?'\n",
       "10. 'The Subtle Art of Not Giving a F*ck'\n",
       "11. 'A Higher Loyalty'\n",
       "12. 'The Complete Ketogenic Diet for Beginners'\n",
       "13. 'Diary of a Wimpy Kid #13'\n",
       "14. 'The 5 Love Languages'\n",
       "15. 'First 100 Words'\n",
       "16. 'Dog Man'\n",
       "17. 'Educated'\n",
       "18. 'You Are a Badass®'\n",
       "19. 'The Plant Paradox'\n",
       "20. 'Giraffes Can\\'t Dance'\n",
       "21. 'Player\\'s Handbook (Dungeons &amp; Dragons)'\n",
       "22. 'Homebody'\n",
       "23. 'The Very Hungry Caterpillar'\n",
       "24. 'Crazy Rich Asians (Crazy Rich Asians Trilogy)'\n",
       "25. 'The Hate U Give'\n",
       "26. 'The Instant Pot Electric Pressure Cooker Cookbook'\n",
       "27. 'The Four Agreements'\n",
       "28. 'The Wonderful Things You Will Be'\n",
       "29. 'P is for Potty! (Sesame Street) (Lift-the-Flap)'\n",
       "30. 'The Pout-Pout Fish'\n",
       "31. 'Lettering and Modern Calligraphy'\n",
       "32. 'Publication Manual of the American Psychological Association, 6th Edition'\n",
       "33. 'Dear Zoo'\n",
       "34. 'Oh, the Places You\\'ll Go!'\n",
       "35. 'Dog Man and Cat Kid'\n",
       "36. 'Goodnight Moon'\n",
       "37. 'Salt, Fat, Acid, Heat'\n",
       "38. 'A Wrinkle in Time (Time Quintet)'\n",
       "39. 'How to Win Friends &amp; Influence People'\n",
       "40. 'Dog Man'\n",
       "41. 'Instant Pot Pressure Cooker Cookbook'\n",
       "42. 'Milk and Honey'\n",
       "43. 'Little Fires Everywhere'\n",
       "44. 'Kitchen Confidential Updated Edition'\n",
       "45. 'The President Is Missing'\n",
       "46. 'School Zone - Big Preschool Workbook - Ages 3 to 5, Colors, Shapes, Numbers 1-10, Alphabet, Pre-Writing, Pre-Reading, and Phonics (School Zone Big Workbook Series)'\n",
       "47. 'The Plant Paradox Cookbook'\n",
       "48. 'Ready Player One'\n",
       "49. 'Fahrenheit 451'\n",
       "50. 'Ship of Fools'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[[1]]\n",
       "[1] \"Becoming\"\n",
       "\n",
       "[[2]]\n",
       "[1] \"Girl, Wash Your Face\"\n",
       "\n",
       "[[3]]\n",
       "[1] \"The Wonky Donkey\"\n",
       "\n",
       "[[4]]\n",
       "[1] \"Fire and Fury\"\n",
       "\n",
       "[[5]]\n",
       "[1] \"Fear\"\n",
       "\n",
       "[[6]]\n",
       "[1] \"Last Week Tonight with John Oliver Presents A Day in the Life of Marlon Bundo (Better Bundo Book, LGBT Children<U+0092>s Book)\"\n",
       "\n",
       "[[7]]\n",
       "[1] \"12 Rules for Life\"\n",
       "\n",
       "[[8]]\n",
       "[1] \"Magnolia Table\"\n",
       "\n",
       "[[9]]\n",
       "[1] \"Whose Boat Is This Boat?\"\n",
       "\n",
       "[[10]]\n",
       "[1] \"The Subtle Art of Not Giving a F*ck\"\n",
       "\n",
       "[[11]]\n",
       "[1] \"A Higher Loyalty\"\n",
       "\n",
       "[[12]]\n",
       "[1] \"The Complete Ketogenic Diet for Beginners\"\n",
       "\n",
       "[[13]]\n",
       "[1] \"Diary of a Wimpy Kid #13\"\n",
       "\n",
       "[[14]]\n",
       "[1] \"The 5 Love Languages\"\n",
       "\n",
       "[[15]]\n",
       "[1] \"First 100 Words\"\n",
       "\n",
       "[[16]]\n",
       "[1] \"Dog Man\"\n",
       "\n",
       "[[17]]\n",
       "[1] \"Educated\"\n",
       "\n",
       "[[18]]\n",
       "[1] \"You Are a Badass®\"\n",
       "\n",
       "[[19]]\n",
       "[1] \"The Plant Paradox\"\n",
       "\n",
       "[[20]]\n",
       "[1] \"Giraffes Can't Dance\"\n",
       "\n",
       "[[21]]\n",
       "[1] \"Player's Handbook (Dungeons & Dragons)\"\n",
       "\n",
       "[[22]]\n",
       "[1] \"Homebody\"\n",
       "\n",
       "[[23]]\n",
       "[1] \"The Very Hungry Caterpillar\"\n",
       "\n",
       "[[24]]\n",
       "[1] \"Crazy Rich Asians (Crazy Rich Asians Trilogy)\"\n",
       "\n",
       "[[25]]\n",
       "[1] \"The Hate U Give\"\n",
       "\n",
       "[[26]]\n",
       "[1] \"The Instant Pot Electric Pressure Cooker Cookbook\"\n",
       "\n",
       "[[27]]\n",
       "[1] \"The Four Agreements\"\n",
       "\n",
       "[[28]]\n",
       "[1] \"The Wonderful Things You Will Be\"\n",
       "\n",
       "[[29]]\n",
       "[1] \"P is for Potty! (Sesame Street) (Lift-the-Flap)\"\n",
       "\n",
       "[[30]]\n",
       "[1] \"The Pout-Pout Fish\"\n",
       "\n",
       "[[31]]\n",
       "[1] \"Lettering and Modern Calligraphy\"\n",
       "\n",
       "[[32]]\n",
       "[1] \"Publication Manual of the American Psychological Association, 6th Edition\"\n",
       "\n",
       "[[33]]\n",
       "[1] \"Dear Zoo\"\n",
       "\n",
       "[[34]]\n",
       "[1] \"Oh, the Places You'll Go!\"\n",
       "\n",
       "[[35]]\n",
       "[1] \"Dog Man and Cat Kid\"\n",
       "\n",
       "[[36]]\n",
       "[1] \"Goodnight Moon\"\n",
       "\n",
       "[[37]]\n",
       "[1] \"Salt, Fat, Acid, Heat\"\n",
       "\n",
       "[[38]]\n",
       "[1] \"A Wrinkle in Time (Time Quintet)\"\n",
       "\n",
       "[[39]]\n",
       "[1] \"How to Win Friends & Influence People\"\n",
       "\n",
       "[[40]]\n",
       "[1] \"Dog Man\"\n",
       "\n",
       "[[41]]\n",
       "[1] \"Instant Pot Pressure Cooker Cookbook\"\n",
       "\n",
       "[[42]]\n",
       "[1] \"Milk and Honey\"\n",
       "\n",
       "[[43]]\n",
       "[1] \"Little Fires Everywhere\"\n",
       "\n",
       "[[44]]\n",
       "[1] \"Kitchen Confidential Updated Edition\"\n",
       "\n",
       "[[45]]\n",
       "[1] \"The President Is Missing\"\n",
       "\n",
       "[[46]]\n",
       "[1] \"School Zone - Big Preschool Workbook - Ages 3 to 5, Colors, Shapes, Numbers 1-10, Alphabet, Pre-Writing, Pre-Reading, and Phonics (School Zone Big Workbook Series)\"\n",
       "\n",
       "[[47]]\n",
       "[1] \"The Plant Paradox Cookbook\"\n",
       "\n",
       "[[48]]\n",
       "[1] \"Ready Player One\"\n",
       "\n",
       "[[49]]\n",
       "[1] \"Fahrenheit 451\"\n",
       "\n",
       "[[50]]\n",
       "[1] \"Ship of Fools\"\n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "[1] 1\n",
      "[1] \"Michelle Obama\"\n",
      "[1] 2\n",
      "[1] \"Rachel Hollis\"\n",
      "[1] 3\n",
      "[1] \"Craig Smith\"\n",
      "[1] 4\n",
      "[1] \"Michael Wolff\"\n",
      "[1] 5\n",
      "[1] \"Bob Woodward\"\n",
      "[1] 6\n",
      "[1] \"Jill Twiss\"\n",
      "[1] 7\n",
      "[1] \"Jordan B. Peterson\"\n",
      "[1] 8\n",
      "[1] \"Joanna Gaines\"\n",
      "[1] 9\n",
      "[1] \"The Staff of The Late Show with<U+0085>\"\n",
      "[1] 10\n",
      "[1] \"Mark Manson\"\n",
      "[1] 11\n",
      "[1] \"James Comey\"\n",
      "[1] 12\n",
      "[1] \"Amy Ramos\"\n",
      "[1] 13\n",
      "[1] \"Jeff Kinney\"\n",
      "[1] 14\n",
      "[1] \"Gary Chapman\"\n",
      "[1] 15\n",
      "[1] \"Roger Priddy\"\n",
      "[1] 16\n",
      "[1] \"Dav Pilkey\"\n",
      "[1] 17\n",
      "[1] \"Tara Westover\"\n",
      "[1] 18\n",
      "[1] \"Jen Sincero\"\n",
      "[1] 19\n",
      "[1] \"Dr. Steven R Gundry MD\"\n",
      "[1] 20\n",
      "[1] \"Giles Andreae\"\n",
      "[1] 21\n",
      "[1] \"Wizards RPG Team\"\n",
      "[1] 22\n",
      "[1] \"Joanna Gaines\"\n",
      "[1] 23\n",
      "[1] \"Eric Carle\"\n",
      "[1] 24\n",
      "[1] \"Kevin Kwan\"\n",
      "[1] 25\n",
      "[1] \"Angie Thomas\"\n",
      "[1] 26\n",
      "[1] \"\\n                4.0 out of 5 stars\\n            \"\n",
      "[2] \"2,810\"                                             \n",
      "[1] 27\n",
      "[1] \"Don Miguel Ruiz\"\n",
      "[1] 28\n",
      "[1] \"Emily Winfield Martin\"\n",
      "[1] 29\n",
      "character(0)\n",
      "[1] 30\n",
      "[1] \"Deborah Diesen\"\n",
      "[1] 31\n",
      "character(0)\n",
      "[1] 32\n",
      "character(0)\n",
      "[1] 33\n",
      "[1] \"Rod Campbell\"\n",
      "[1] 34\n",
      "[1] \"Dr. Seuss\"\n",
      "[1] 35\n",
      "[1] \"Dav Pilkey\"\n",
      "[1] 36\n",
      "[1] \"Margaret Wise Brown\"\n",
      "[1] 37\n",
      "[1] \"Samin Nosrat\"\n",
      "[1] 38\n",
      "[1] \"Madeleine L'Engle\"\n",
      "[1] 39\n",
      "[1] \"Dale Carnegie\"\n",
      "[1] 40\n",
      "[1] \"Dav Pilkey\"\n",
      "[1] 41\n",
      "character(0)\n",
      "[1] 42\n",
      "[1] \"Rupi Kaur\"\n",
      "[1] 43\n",
      "[1] \"Celeste Ng\"\n",
      "[1] 44\n",
      "[1] \"Anthony Bourdain\"\n",
      "[1] 45\n",
      "[1] \"James Patterson\"\n",
      "[1] 46\n",
      "[1] \"School Zone\"\n",
      "[1] 47\n",
      "[1] \"Dr. Steven R Gundry MD\"\n",
      "[1] 48\n",
      "[1] \"Ernest Cline\"\n",
      "[1] 49\n",
      "[1] \"Ray Bradbury\"\n",
      "[1] 50\n",
      "[1] \"Tucker Carlson\"\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'1'</li>\n",
       "\t<li>'2'</li>\n",
       "\t<li>'3'</li>\n",
       "\t<li>'4'</li>\n",
       "\t<li>'5'</li>\n",
       "\t<li>'6'</li>\n",
       "\t<li>'7'</li>\n",
       "\t<li>'8'</li>\n",
       "\t<li>'9'</li>\n",
       "\t<li>'10'</li>\n",
       "\t<li>'11'</li>\n",
       "\t<li>'12'</li>\n",
       "\t<li>'13'</li>\n",
       "\t<li>'14'</li>\n",
       "\t<li>'15'</li>\n",
       "\t<li>'16'</li>\n",
       "\t<li>'17'</li>\n",
       "\t<li>'18'</li>\n",
       "\t<li>'19'</li>\n",
       "\t<li>'20'</li>\n",
       "\t<li>'21'</li>\n",
       "\t<li>'22'</li>\n",
       "\t<li>'23'</li>\n",
       "\t<li>'24'</li>\n",
       "\t<li>'25'</li>\n",
       "\t<li>'26'</li>\n",
       "\t<li>'27'</li>\n",
       "\t<li>'28'</li>\n",
       "\t<li>'29'</li>\n",
       "\t<li>'30'</li>\n",
       "\t<li>'31'</li>\n",
       "\t<li>'32'</li>\n",
       "\t<li>'33'</li>\n",
       "\t<li>'34'</li>\n",
       "\t<li>'35'</li>\n",
       "\t<li>'36'</li>\n",
       "\t<li>'37'</li>\n",
       "\t<li>'38'</li>\n",
       "\t<li>'39'</li>\n",
       "\t<li>'40'</li>\n",
       "\t<li>'41'</li>\n",
       "\t<li>'42'</li>\n",
       "\t<li>'43'</li>\n",
       "\t<li>'44'</li>\n",
       "\t<li>'45'</li>\n",
       "\t<li>'46'</li>\n",
       "\t<li>'47'</li>\n",
       "\t<li>'48'</li>\n",
       "\t<li>'49'</li>\n",
       "\t<li>'50'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item '1'\n",
       "\\item '2'\n",
       "\\item '3'\n",
       "\\item '4'\n",
       "\\item '5'\n",
       "\\item '6'\n",
       "\\item '7'\n",
       "\\item '8'\n",
       "\\item '9'\n",
       "\\item '10'\n",
       "\\item '11'\n",
       "\\item '12'\n",
       "\\item '13'\n",
       "\\item '14'\n",
       "\\item '15'\n",
       "\\item '16'\n",
       "\\item '17'\n",
       "\\item '18'\n",
       "\\item '19'\n",
       "\\item '20'\n",
       "\\item '21'\n",
       "\\item '22'\n",
       "\\item '23'\n",
       "\\item '24'\n",
       "\\item '25'\n",
       "\\item '26'\n",
       "\\item '27'\n",
       "\\item '28'\n",
       "\\item '29'\n",
       "\\item '30'\n",
       "\\item '31'\n",
       "\\item '32'\n",
       "\\item '33'\n",
       "\\item '34'\n",
       "\\item '35'\n",
       "\\item '36'\n",
       "\\item '37'\n",
       "\\item '38'\n",
       "\\item '39'\n",
       "\\item '40'\n",
       "\\item '41'\n",
       "\\item '42'\n",
       "\\item '43'\n",
       "\\item '44'\n",
       "\\item '45'\n",
       "\\item '46'\n",
       "\\item '47'\n",
       "\\item '48'\n",
       "\\item '49'\n",
       "\\item '50'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. '1'\n",
       "2. '2'\n",
       "3. '3'\n",
       "4. '4'\n",
       "5. '5'\n",
       "6. '6'\n",
       "7. '7'\n",
       "8. '8'\n",
       "9. '9'\n",
       "10. '10'\n",
       "11. '11'\n",
       "12. '12'\n",
       "13. '13'\n",
       "14. '14'\n",
       "15. '15'\n",
       "16. '16'\n",
       "17. '17'\n",
       "18. '18'\n",
       "19. '19'\n",
       "20. '20'\n",
       "21. '21'\n",
       "22. '22'\n",
       "23. '23'\n",
       "24. '24'\n",
       "25. '25'\n",
       "26. '26'\n",
       "27. '27'\n",
       "28. '28'\n",
       "29. '29'\n",
       "30. '30'\n",
       "31. '31'\n",
       "32. '32'\n",
       "33. '33'\n",
       "34. '34'\n",
       "35. '35'\n",
       "36. '36'\n",
       "37. '37'\n",
       "38. '38'\n",
       "39. '39'\n",
       "40. '40'\n",
       "41. '41'\n",
       "42. '42'\n",
       "43. '43'\n",
       "44. '44'\n",
       "45. '45'\n",
       "46. '46'\n",
       "47. '47'\n",
       "48. '48'\n",
       "49. '49'\n",
       "50. '50'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] \"1\"  \"2\"  \"3\"  \"4\"  \"5\"  \"6\"  \"7\"  \"8\"  \"9\"  \"10\" \"11\" \"12\" \"13\" \"14\" \"15\"\n",
       "[16] \"16\" \"17\" \"18\" \"19\" \"20\" \"21\" \"22\" \"23\" \"24\" \"25\" \"26\" \"27\" \"28\" \"29\" \"30\"\n",
       "[31] \"31\" \"32\" \"33\" \"34\" \"35\" \"36\" \"37\" \"38\" \"39\" \"40\" \"41\" \"42\" \"43\" \"44\" \"45\"\n",
       "[46] \"46\" \"47\" \"48\" \"49\" \"50\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'Michelle Obama'</li>\n",
       "\t<li>'Rachel Hollis'</li>\n",
       "\t<li>'Craig Smith'</li>\n",
       "\t<li>'Michael Wolff'</li>\n",
       "\t<li>'Bob Woodward'</li>\n",
       "\t<li>'Jill Twiss'</li>\n",
       "\t<li>'Jordan B. Peterson'</li>\n",
       "\t<li>'Joanna Gaines'</li>\n",
       "\t<li>'The Staff of The Late Show with\\u0085'</li>\n",
       "\t<li>'Mark Manson'</li>\n",
       "\t<li>'James Comey'</li>\n",
       "\t<li>'Amy Ramos'</li>\n",
       "\t<li>'Jeff Kinney'</li>\n",
       "\t<li>'Gary Chapman'</li>\n",
       "\t<li>'Roger Priddy'</li>\n",
       "\t<li>'Dav Pilkey'</li>\n",
       "\t<li>'Tara Westover'</li>\n",
       "\t<li>'Jen Sincero'</li>\n",
       "\t<li>'Dr. Steven R Gundry MD'</li>\n",
       "\t<li>'Giles Andreae'</li>\n",
       "\t<li>'Wizards RPG Team'</li>\n",
       "\t<li>'Joanna Gaines'</li>\n",
       "\t<li>'Eric Carle'</li>\n",
       "\t<li>'Kevin Kwan'</li>\n",
       "\t<li>'Angie Thomas'</li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.0 out of 5 stars\\n            '</span></li>\n",
       "\t<li>'Don Miguel Ruiz'</li>\n",
       "\t<li>'Emily Winfield Martin'</li>\n",
       "\t<li>''</li>\n",
       "\t<li>'Deborah Diesen'</li>\n",
       "\t<li>''</li>\n",
       "\t<li>''</li>\n",
       "\t<li>'Rod Campbell'</li>\n",
       "\t<li>'Dr. Seuss'</li>\n",
       "\t<li>'Dav Pilkey'</li>\n",
       "\t<li>'Margaret Wise Brown'</li>\n",
       "\t<li>'Samin Nosrat'</li>\n",
       "\t<li>'Madeleine L\\'Engle'</li>\n",
       "\t<li>'Dale Carnegie'</li>\n",
       "\t<li>'Dav Pilkey'</li>\n",
       "\t<li>''</li>\n",
       "\t<li>'Rupi Kaur'</li>\n",
       "\t<li>'Celeste Ng'</li>\n",
       "\t<li>'Anthony Bourdain'</li>\n",
       "\t<li>'James Patterson'</li>\n",
       "\t<li>'School Zone'</li>\n",
       "\t<li>'Dr. Steven R Gundry MD'</li>\n",
       "\t<li>'Ernest Cline'</li>\n",
       "\t<li>'Ray Bradbury'</li>\n",
       "\t<li>'Tucker Carlson'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'Michelle Obama'\n",
       "\\item 'Rachel Hollis'\n",
       "\\item 'Craig Smith'\n",
       "\\item 'Michael Wolff'\n",
       "\\item 'Bob Woodward'\n",
       "\\item 'Jill Twiss'\n",
       "\\item 'Jordan B. Peterson'\n",
       "\\item 'Joanna Gaines'\n",
       "\\item 'The Staff of The Late Show with\\textbackslash{}u0085'\n",
       "\\item 'Mark Manson'\n",
       "\\item 'James Comey'\n",
       "\\item 'Amy Ramos'\n",
       "\\item 'Jeff Kinney'\n",
       "\\item 'Gary Chapman'\n",
       "\\item 'Roger Priddy'\n",
       "\\item 'Dav Pilkey'\n",
       "\\item 'Tara Westover'\n",
       "\\item 'Jen Sincero'\n",
       "\\item 'Dr. Steven R Gundry MD'\n",
       "\\item 'Giles Andreae'\n",
       "\\item 'Wizards RPG Team'\n",
       "\\item 'Joanna Gaines'\n",
       "\\item 'Eric Carle'\n",
       "\\item 'Kevin Kwan'\n",
       "\\item 'Angie Thomas'\n",
       "\\item '\\textbackslash{}n                4.0 out of 5 stars\\textbackslash{}n            '\n",
       "\\item 'Don Miguel Ruiz'\n",
       "\\item 'Emily Winfield Martin'\n",
       "\\item ''\n",
       "\\item 'Deborah Diesen'\n",
       "\\item ''\n",
       "\\item ''\n",
       "\\item 'Rod Campbell'\n",
       "\\item 'Dr. Seuss'\n",
       "\\item 'Dav Pilkey'\n",
       "\\item 'Margaret Wise Brown'\n",
       "\\item 'Samin Nosrat'\n",
       "\\item 'Madeleine L\\textbackslash{}'Engle'\n",
       "\\item 'Dale Carnegie'\n",
       "\\item 'Dav Pilkey'\n",
       "\\item ''\n",
       "\\item 'Rupi Kaur'\n",
       "\\item 'Celeste Ng'\n",
       "\\item 'Anthony Bourdain'\n",
       "\\item 'James Patterson'\n",
       "\\item 'School Zone'\n",
       "\\item 'Dr. Steven R Gundry MD'\n",
       "\\item 'Ernest Cline'\n",
       "\\item 'Ray Bradbury'\n",
       "\\item 'Tucker Carlson'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'Michelle Obama'\n",
       "2. 'Rachel Hollis'\n",
       "3. 'Craig Smith'\n",
       "4. 'Michael Wolff'\n",
       "5. 'Bob Woodward'\n",
       "6. 'Jill Twiss'\n",
       "7. 'Jordan B. Peterson'\n",
       "8. 'Joanna Gaines'\n",
       "9. 'The Staff of The Late Show with\\u0085'\n",
       "10. 'Mark Manson'\n",
       "11. 'James Comey'\n",
       "12. 'Amy Ramos'\n",
       "13. 'Jeff Kinney'\n",
       "14. 'Gary Chapman'\n",
       "15. 'Roger Priddy'\n",
       "16. 'Dav Pilkey'\n",
       "17. 'Tara Westover'\n",
       "18. 'Jen Sincero'\n",
       "19. 'Dr. Steven R Gundry MD'\n",
       "20. 'Giles Andreae'\n",
       "21. 'Wizards RPG Team'\n",
       "22. 'Joanna Gaines'\n",
       "23. 'Eric Carle'\n",
       "24. 'Kevin Kwan'\n",
       "25. 'Angie Thomas'\n",
       "26. <span style=white-space:pre-wrap>'\\n                4.0 out of 5 stars\\n            '</span>\n",
       "27. 'Don Miguel Ruiz'\n",
       "28. 'Emily Winfield Martin'\n",
       "29. ''\n",
       "30. 'Deborah Diesen'\n",
       "31. ''\n",
       "32. ''\n",
       "33. 'Rod Campbell'\n",
       "34. 'Dr. Seuss'\n",
       "35. 'Dav Pilkey'\n",
       "36. 'Margaret Wise Brown'\n",
       "37. 'Samin Nosrat'\n",
       "38. 'Madeleine L\\'Engle'\n",
       "39. 'Dale Carnegie'\n",
       "40. 'Dav Pilkey'\n",
       "41. ''\n",
       "42. 'Rupi Kaur'\n",
       "43. 'Celeste Ng'\n",
       "44. 'Anthony Bourdain'\n",
       "45. 'James Patterson'\n",
       "46. 'School Zone'\n",
       "47. 'Dr. Steven R Gundry MD'\n",
       "48. 'Ernest Cline'\n",
       "49. 'Ray Bradbury'\n",
       "50. 'Tucker Carlson'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] \"Michelle Obama\"                                    \n",
       " [2] \"Rachel Hollis\"                                     \n",
       " [3] \"Craig Smith\"                                       \n",
       " [4] \"Michael Wolff\"                                     \n",
       " [5] \"Bob Woodward\"                                      \n",
       " [6] \"Jill Twiss\"                                        \n",
       " [7] \"Jordan B. Peterson\"                                \n",
       " [8] \"Joanna Gaines\"                                     \n",
       " [9] \"The Staff of The Late Show with<U+0085>\"           \n",
       "[10] \"Mark Manson\"                                       \n",
       "[11] \"James Comey\"                                       \n",
       "[12] \"Amy Ramos\"                                         \n",
       "[13] \"Jeff Kinney\"                                       \n",
       "[14] \"Gary Chapman\"                                      \n",
       "[15] \"Roger Priddy\"                                      \n",
       "[16] \"Dav Pilkey\"                                        \n",
       "[17] \"Tara Westover\"                                     \n",
       "[18] \"Jen Sincero\"                                       \n",
       "[19] \"Dr. Steven R Gundry MD\"                            \n",
       "[20] \"Giles Andreae\"                                     \n",
       "[21] \"Wizards RPG Team\"                                  \n",
       "[22] \"Joanna Gaines\"                                     \n",
       "[23] \"Eric Carle\"                                        \n",
       "[24] \"Kevin Kwan\"                                        \n",
       "[25] \"Angie Thomas\"                                      \n",
       "[26] \"\\n                4.0 out of 5 stars\\n            \"\n",
       "[27] \"Don Miguel Ruiz\"                                   \n",
       "[28] \"Emily Winfield Martin\"                             \n",
       "[29] \"\"                                                  \n",
       "[30] \"Deborah Diesen\"                                    \n",
       "[31] \"\"                                                  \n",
       "[32] \"\"                                                  \n",
       "[33] \"Rod Campbell\"                                      \n",
       "[34] \"Dr. Seuss\"                                         \n",
       "[35] \"Dav Pilkey\"                                        \n",
       "[36] \"Margaret Wise Brown\"                               \n",
       "[37] \"Samin Nosrat\"                                      \n",
       "[38] \"Madeleine L'Engle\"                                 \n",
       "[39] \"Dale Carnegie\"                                     \n",
       "[40] \"Dav Pilkey\"                                        \n",
       "[41] \"\"                                                  \n",
       "[42] \"Rupi Kaur\"                                         \n",
       "[43] \"Celeste Ng\"                                        \n",
       "[44] \"Anthony Bourdain\"                                  \n",
       "[45] \"James Patterson\"                                   \n",
       "[46] \"School Zone\"                                       \n",
       "[47] \"Dr. Steven R Gundry MD\"                            \n",
       "[48] \"Ernest Cline\"                                      \n",
       "[49] \"Ray Bradbury\"                                      \n",
       "[50] \"Tucker Carlson\"                                    "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "[1] 1\n",
      "[1] \"\\n                4.9 out of 5 stars\\n            \"\n",
      "[1] 2\n",
      "[1] \"\\n                4.6 out of 5 stars\\n            \"\n",
      "[1] 3\n",
      "[1] \"\\n                4.7 out of 5 stars\\n            \"\n",
      "[1] 4\n",
      "[1] \"\\n                4.2 out of 5 stars\\n            \"\n",
      "[1] 5\n",
      "[1] \"\\n                4.5 out of 5 stars\\n            \"\n",
      "[1] 6\n",
      "[1] \"\\n                4.9 out of 5 stars\\n            \"\n",
      "[1] 7\n",
      "[1] \"\\n                4.6 out of 5 stars\\n            \"\n",
      "[1] 8\n",
      "[1] \"\\n                4.7 out of 5 stars\\n            \"\n",
      "[1] 9\n",
      "[1] \"\\n                4.5 out of 5 stars\\n            \"\n",
      "[1] 10\n",
      "[1] \"\\n                4.4 out of 5 stars\\n            \"\n",
      "[1] 11\n",
      "[1] \"\\n                4.7 out of 5 stars\\n            \"\n",
      "[1] 12\n",
      "[1] \"\\n                4.1 out of 5 stars\\n            \"\n",
      "[1] 13\n",
      "[1] \"\\n                4.8 out of 5 stars\\n            \"\n",
      "[1] 14\n",
      "[1] \"\\n                4.8 out of 5 stars\\n            \"\n",
      "[1] 15\n",
      "[1] \"\\n                4.6 out of 5 stars\\n            \"\n",
      "[1] 16\n",
      "[1] \"\\n                4.9 out of 5 stars\\n            \"\n",
      "[1] 17\n",
      "[1] \"\\n                4.7 out of 5 stars\\n            \"\n",
      "[1] 18\n",
      "[1] \"\\n                4.6 out of 5 stars\\n            \"\n",
      "[1] 19\n",
      "[1] \"\\n                4.3 out of 5 stars\\n            \"\n",
      "[1] 20\n",
      "[1] \"\\n                4.6 out of 5 stars\\n            \"\n",
      "[1] 21\n",
      "[1] \"\\n                4.6 out of 5 stars\\n            \"\n",
      "[1] 22\n",
      "[1] \"\\n                4.6 out of 5 stars\\n            \"\n",
      "[1] 23\n",
      "[1] \"\\n                4.6 out of 5 stars\\n            \"\n",
      "[1] 24\n",
      "[1] \"\\n                4.2 out of 5 stars\\n            \"\n",
      "[1] 25\n",
      "[1] \"\\n                4.8 out of 5 stars\\n            \"\n",
      "[1] 26\n",
      "[1] \"$12.62\"\n",
      "[1] 27\n",
      "[1] \"\\n                4.6 out of 5 stars\\n            \"\n",
      "[1] 28\n",
      "[1] \"\\n                4.8 out of 5 stars\\n            \"\n",
      "[1] 29\n",
      "[1] \"\\n                4.4 out of 5 stars\\n            \"\n",
      "[1] 30\n",
      "[1] \"\\n                4.8 out of 5 stars\\n            \"\n",
      "[1] 31\n",
      "[1] \"\\n                4.3 out of 5 stars\\n            \"\n",
      "[1] 32\n",
      "[1] \"\\n                4.3 out of 5 stars\\n            \"\n",
      "[1] 33\n",
      "[1] \"\\n                4.8 out of 5 stars\\n            \"\n",
      "[1] 34\n",
      "[1] \"\\n                4.8 out of 5 stars\\n            \"\n",
      "[1] 35\n",
      "[1] \"\\n                4.9 out of 5 stars\\n            \"\n",
      "[1] 36\n",
      "[1] \"\\n                4.7 out of 5 stars\\n            \"\n",
      "[1] 37\n",
      "[1] \"\\n                4.8 out of 5 stars\\n            \"\n",
      "[1] 38\n",
      "[1] \"\\n                4.5 out of 5 stars\\n            \"\n",
      "[1] 39\n",
      "[1] \"\\n                4.6 out of 5 stars\\n            \"\n",
      "[1] 40\n",
      "[1] \"\\n                4.9 out of 5 stars\\n            \"\n",
      "[1] 41\n",
      "[1] \"\\n                4.5 out of 5 stars\\n            \"\n",
      "[1] 42\n",
      "[1] \"\\n                4.6 out of 5 stars\\n            \"\n",
      "[1] 43\n",
      "[1] \"\\n                4.3 out of 5 stars\\n            \"\n",
      "[1] 44\n",
      "[1] \"\\n                4.6 out of 5 stars\\n            \"\n",
      "[1] 45\n",
      "[1] \"\\n                4.3 out of 5 stars\\n            \"\n",
      "[1] 46\n",
      "[1] \"\\n                4.8 out of 5 stars\\n            \"\n",
      "[1] 47\n",
      "[1] \"\\n                4.3 out of 5 stars\\n            \"\n",
      "[1] 48\n",
      "[1] \"\\n                4.6 out of 5 stars\\n            \"\n",
      "[1] 49\n",
      "[1] \"\\n                4.4 out of 5 stars\\n            \"\n",
      "[1] 50\n",
      "[1] \"\\n                4.8 out of 5 stars\\n            \"\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.9 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.7 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.2 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.5 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.9 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.7 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.5 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.4 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.7 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.1 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.8 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.8 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.9 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.7 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.3 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.2 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.8 out of 5 stars\\n            '</span></li>\n",
       "\t<li>'$12.62'</li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.8 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.4 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.8 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.3 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.3 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.8 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.8 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.9 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.7 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.8 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.5 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.9 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.5 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.3 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.3 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.8 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.3 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.4 out of 5 stars\\n            '</span></li>\n",
       "\t<li><span style=white-space:pre-wrap>'\\n                4.8 out of 5 stars\\n            '</span></li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item '\\textbackslash{}n                4.9 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.6 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.7 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.2 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.5 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.9 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.6 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.7 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.5 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.4 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.7 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.1 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.8 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.8 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.6 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.9 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.7 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.6 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.3 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.6 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.6 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.6 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.6 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.2 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.8 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\$12.62'\n",
       "\\item '\\textbackslash{}n                4.6 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.8 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.4 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.8 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.3 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.3 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.8 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.8 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.9 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.7 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.8 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.5 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.6 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.9 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.5 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.6 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.3 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.6 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.3 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.8 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.3 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.6 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.4 out of 5 stars\\textbackslash{}n            '\n",
       "\\item '\\textbackslash{}n                4.8 out of 5 stars\\textbackslash{}n            '\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. <span style=white-space:pre-wrap>'\\n                4.9 out of 5 stars\\n            '</span>\n",
       "2. <span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span>\n",
       "3. <span style=white-space:pre-wrap>'\\n                4.7 out of 5 stars\\n            '</span>\n",
       "4. <span style=white-space:pre-wrap>'\\n                4.2 out of 5 stars\\n            '</span>\n",
       "5. <span style=white-space:pre-wrap>'\\n                4.5 out of 5 stars\\n            '</span>\n",
       "6. <span style=white-space:pre-wrap>'\\n                4.9 out of 5 stars\\n            '</span>\n",
       "7. <span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span>\n",
       "8. <span style=white-space:pre-wrap>'\\n                4.7 out of 5 stars\\n            '</span>\n",
       "9. <span style=white-space:pre-wrap>'\\n                4.5 out of 5 stars\\n            '</span>\n",
       "10. <span style=white-space:pre-wrap>'\\n                4.4 out of 5 stars\\n            '</span>\n",
       "11. <span style=white-space:pre-wrap>'\\n                4.7 out of 5 stars\\n            '</span>\n",
       "12. <span style=white-space:pre-wrap>'\\n                4.1 out of 5 stars\\n            '</span>\n",
       "13. <span style=white-space:pre-wrap>'\\n                4.8 out of 5 stars\\n            '</span>\n",
       "14. <span style=white-space:pre-wrap>'\\n                4.8 out of 5 stars\\n            '</span>\n",
       "15. <span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span>\n",
       "16. <span style=white-space:pre-wrap>'\\n                4.9 out of 5 stars\\n            '</span>\n",
       "17. <span style=white-space:pre-wrap>'\\n                4.7 out of 5 stars\\n            '</span>\n",
       "18. <span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span>\n",
       "19. <span style=white-space:pre-wrap>'\\n                4.3 out of 5 stars\\n            '</span>\n",
       "20. <span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span>\n",
       "21. <span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span>\n",
       "22. <span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span>\n",
       "23. <span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span>\n",
       "24. <span style=white-space:pre-wrap>'\\n                4.2 out of 5 stars\\n            '</span>\n",
       "25. <span style=white-space:pre-wrap>'\\n                4.8 out of 5 stars\\n            '</span>\n",
       "26. '$12.62'\n",
       "27. <span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span>\n",
       "28. <span style=white-space:pre-wrap>'\\n                4.8 out of 5 stars\\n            '</span>\n",
       "29. <span style=white-space:pre-wrap>'\\n                4.4 out of 5 stars\\n            '</span>\n",
       "30. <span style=white-space:pre-wrap>'\\n                4.8 out of 5 stars\\n            '</span>\n",
       "31. <span style=white-space:pre-wrap>'\\n                4.3 out of 5 stars\\n            '</span>\n",
       "32. <span style=white-space:pre-wrap>'\\n                4.3 out of 5 stars\\n            '</span>\n",
       "33. <span style=white-space:pre-wrap>'\\n                4.8 out of 5 stars\\n            '</span>\n",
       "34. <span style=white-space:pre-wrap>'\\n                4.8 out of 5 stars\\n            '</span>\n",
       "35. <span style=white-space:pre-wrap>'\\n                4.9 out of 5 stars\\n            '</span>\n",
       "36. <span style=white-space:pre-wrap>'\\n                4.7 out of 5 stars\\n            '</span>\n",
       "37. <span style=white-space:pre-wrap>'\\n                4.8 out of 5 stars\\n            '</span>\n",
       "38. <span style=white-space:pre-wrap>'\\n                4.5 out of 5 stars\\n            '</span>\n",
       "39. <span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span>\n",
       "40. <span style=white-space:pre-wrap>'\\n                4.9 out of 5 stars\\n            '</span>\n",
       "41. <span style=white-space:pre-wrap>'\\n                4.5 out of 5 stars\\n            '</span>\n",
       "42. <span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span>\n",
       "43. <span style=white-space:pre-wrap>'\\n                4.3 out of 5 stars\\n            '</span>\n",
       "44. <span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span>\n",
       "45. <span style=white-space:pre-wrap>'\\n                4.3 out of 5 stars\\n            '</span>\n",
       "46. <span style=white-space:pre-wrap>'\\n                4.8 out of 5 stars\\n            '</span>\n",
       "47. <span style=white-space:pre-wrap>'\\n                4.3 out of 5 stars\\n            '</span>\n",
       "48. <span style=white-space:pre-wrap>'\\n                4.6 out of 5 stars\\n            '</span>\n",
       "49. <span style=white-space:pre-wrap>'\\n                4.4 out of 5 stars\\n            '</span>\n",
       "50. <span style=white-space:pre-wrap>'\\n                4.8 out of 5 stars\\n            '</span>\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] \"\\n                4.9 out of 5 stars\\n            \"\n",
       " [2] \"\\n                4.6 out of 5 stars\\n            \"\n",
       " [3] \"\\n                4.7 out of 5 stars\\n            \"\n",
       " [4] \"\\n                4.2 out of 5 stars\\n            \"\n",
       " [5] \"\\n                4.5 out of 5 stars\\n            \"\n",
       " [6] \"\\n                4.9 out of 5 stars\\n            \"\n",
       " [7] \"\\n                4.6 out of 5 stars\\n            \"\n",
       " [8] \"\\n                4.7 out of 5 stars\\n            \"\n",
       " [9] \"\\n                4.5 out of 5 stars\\n            \"\n",
       "[10] \"\\n                4.4 out of 5 stars\\n            \"\n",
       "[11] \"\\n                4.7 out of 5 stars\\n            \"\n",
       "[12] \"\\n                4.1 out of 5 stars\\n            \"\n",
       "[13] \"\\n                4.8 out of 5 stars\\n            \"\n",
       "[14] \"\\n                4.8 out of 5 stars\\n            \"\n",
       "[15] \"\\n                4.6 out of 5 stars\\n            \"\n",
       "[16] \"\\n                4.9 out of 5 stars\\n            \"\n",
       "[17] \"\\n                4.7 out of 5 stars\\n            \"\n",
       "[18] \"\\n                4.6 out of 5 stars\\n            \"\n",
       "[19] \"\\n                4.3 out of 5 stars\\n            \"\n",
       "[20] \"\\n                4.6 out of 5 stars\\n            \"\n",
       "[21] \"\\n                4.6 out of 5 stars\\n            \"\n",
       "[22] \"\\n                4.6 out of 5 stars\\n            \"\n",
       "[23] \"\\n                4.6 out of 5 stars\\n            \"\n",
       "[24] \"\\n                4.2 out of 5 stars\\n            \"\n",
       "[25] \"\\n                4.8 out of 5 stars\\n            \"\n",
       "[26] \"$12.62\"                                            \n",
       "[27] \"\\n                4.6 out of 5 stars\\n            \"\n",
       "[28] \"\\n                4.8 out of 5 stars\\n            \"\n",
       "[29] \"\\n                4.4 out of 5 stars\\n            \"\n",
       "[30] \"\\n                4.8 out of 5 stars\\n            \"\n",
       "[31] \"\\n                4.3 out of 5 stars\\n            \"\n",
       "[32] \"\\n                4.3 out of 5 stars\\n            \"\n",
       "[33] \"\\n                4.8 out of 5 stars\\n            \"\n",
       "[34] \"\\n                4.8 out of 5 stars\\n            \"\n",
       "[35] \"\\n                4.9 out of 5 stars\\n            \"\n",
       "[36] \"\\n                4.7 out of 5 stars\\n            \"\n",
       "[37] \"\\n                4.8 out of 5 stars\\n            \"\n",
       "[38] \"\\n                4.5 out of 5 stars\\n            \"\n",
       "[39] \"\\n                4.6 out of 5 stars\\n            \"\n",
       "[40] \"\\n                4.9 out of 5 stars\\n            \"\n",
       "[41] \"\\n                4.5 out of 5 stars\\n            \"\n",
       "[42] \"\\n                4.6 out of 5 stars\\n            \"\n",
       "[43] \"\\n                4.3 out of 5 stars\\n            \"\n",
       "[44] \"\\n                4.6 out of 5 stars\\n            \"\n",
       "[45] \"\\n                4.3 out of 5 stars\\n            \"\n",
       "[46] \"\\n                4.8 out of 5 stars\\n            \"\n",
       "[47] \"\\n                4.3 out of 5 stars\\n            \"\n",
       "[48] \"\\n                4.6 out of 5 stars\\n            \"\n",
       "[49] \"\\n                4.4 out of 5 stars\\n            \"\n",
       "[50] \"\\n                4.8 out of 5 stars\\n            \""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "Warning message in eval(expr, envir, enclos):\n",
      "\"NAs introduced by coercion\""
     ]
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "[1] 1\n",
      "[1] \"14,110\"\n",
      "[1] 2\n",
      "[1] \"10,393\"\n",
      "[1] 3\n",
      "[1] \"5,313\"\n",
      "[1] 4\n",
      "[1] \"9,908\"\n",
      "[1] 5\n",
      "[1] \"3,181\"\n",
      "[1] 6\n",
      "[1] \"8,506\"\n",
      "[1] 7\n",
      "[1] \"4,989\"\n",
      "[1] 8\n",
      "[1] \"1,935\"\n",
      "[1] 9\n",
      "[1] \"2,471\"\n",
      "[1] 10\n",
      "[1] \"5,380\"\n",
      "[1] 11\n",
      "[1] \"4,738\"\n",
      "[1] 12\n",
      "[1] \"2,027\"\n",
      "[1] 13\n",
      "[1] \"632\"\n",
      "[1] 14\n",
      "[1] \"14,526\"\n",
      "[1] 15\n",
      "[1] \"9,986\"\n",
      "[1] 16\n",
      "[1] \"660\"\n",
      "[1] 17\n",
      "[1] \"7,507\"\n",
      "[1] 18\n",
      "[1] \"4,464\"\n",
      "[1] 19\n",
      "[1] \"2,187\"\n",
      "[1] 20\n",
      "[1] \"3,863\"\n",
      "[1] 21\n",
      "[1] \"3,356\"\n",
      "[1] 22\n",
      "[1] \"552\"\n",
      "[1] 23\n",
      "[1] \"4,557\"\n",
      "[1] 24\n",
      "[1] \"3,617\"\n",
      "[1] 25\n",
      "[1] \"3,446\"\n",
      "[1] 26\n",
      "character(0)\n",
      "[1] 27\n",
      "[1] \"7,854\"\n",
      "[1] 28\n",
      "[1] \"1,955\"\n",
      "[1] 29\n",
      "[1] \"1,581\"\n",
      "[1] 30\n",
      "[1] \"2,981\"\n",
      "[1] 31\n",
      "[1] \"869\"\n",
      "[1] 32\n",
      "[1] \"4,612\"\n",
      "[1] 33\n",
      "[1] \"2,949\"\n",
      "[1] 34\n",
      "[1] \"7,662\"\n",
      "[1] 35\n",
      "[1] \"707\"\n",
      "[1] 36\n",
      "[1] \"3,412\"\n",
      "[1] 37\n",
      "[1] \"818\"\n",
      "[1] 38\n",
      "[1] \"3,597\"\n",
      "[1] 39\n",
      "[1] \"7,880\"\n",
      "[1] 40\n",
      "[1] \"677\"\n",
      "[1] 41\n",
      "[1] \"2,150\"\n",
      "[1] 42\n",
      "[1] \"6,499\"\n",
      "[1] 43\n",
      "[1] \"4,037\"\n",
      "[1] 44\n",
      "[1] \"3,425\"\n",
      "[1] 45\n",
      "[1] \"6,358\"\n",
      "[1] 46\n",
      "[1] \"1,165\"\n",
      "[1] 47\n",
      "[1] \"563\"\n",
      "[1] 48\n",
      "[1] \"18,911\"\n",
      "[1] 49\n",
      "[1] \"3,468\"\n",
      "[1] 50\n",
      "[1] \"1,767\"\n",
      "[1] 1\n",
      "[1] \"Hardcover\"\n",
      "[1] 2\n",
      "[1] \"Hardcover\"\n",
      "[1] 3\n",
      "[1] \"Paperback\"\n",
      "[1] 4\n",
      "[1] \"Hardcover\"\n",
      "[1] 5\n",
      "[1] \"Hardcover\"\n",
      "[1] 6\n",
      "[1] \"Hardcover\"\n",
      "[1] 7\n",
      "[1] \"Hardcover\"\n",
      "[1] 8\n",
      "[1] \"Hardcover\"\n",
      "[1] 9\n",
      "[1] \"Hardcover\"\n",
      "[1] 10\n",
      "[1] \"Hardcover\"\n",
      "[1] 11\n",
      "[1] \"Hardcover\"\n",
      "[1] 12\n",
      "[1] \"Paperback\"\n",
      "[1] 13\n",
      "[1] \"Hardcover\"\n",
      "[1] 14\n",
      "[1] \"Paperback\"\n",
      "[1] 15\n",
      "[1] \"Board book\"\n",
      "[1] 16\n",
      "[1] \"Hardcover\"\n",
      "[1] 17\n",
      "[1] \"Hardcover\"\n",
      "[1] 18\n",
      "[1] \"Paperback\"\n",
      "[1] 19\n",
      "[1] \"Hardcover\"\n",
      "[1] 20\n",
      "[1] \"Board book\"\n",
      "[1] 21\n",
      "[1] \"Hardcover\"\n",
      "[1] 22\n",
      "[1] \"Hardcover\"\n",
      "[1] 23\n",
      "[1] \"Board book\"\n",
      "[1] 24\n",
      "[1] \"Paperback\"\n",
      "[1] 25\n",
      "[1] \"Hardcover\"\n",
      "[1] 26\n",
      "character(0)\n",
      "[1] 27\n",
      "[1] \"Paperback\"\n",
      "[1] 28\n",
      "[1] \"Hardcover\"\n",
      "[1] 29\n",
      "[1] \"Board book\"\n",
      "[1] 30\n",
      "[1] \"Board book\"\n",
      "[1] 31\n",
      "[1] \"Paperback\"\n",
      "[1] 32\n",
      "[1] \"Paperback\"\n",
      "[1] 33\n",
      "[1] \"Board book\"\n",
      "[1] 34\n",
      "[1] \"Hardcover\"\n",
      "[1] 35\n",
      "[1] \"Hardcover\"\n",
      "[1] 36\n",
      "[1] \"Board book\"\n",
      "[1] 37\n",
      "[1] \"Hardcover\"\n",
      "[1] 38\n",
      "[1] \"Paperback\"\n",
      "[1] 39\n",
      "[1] \"Paperback\"\n",
      "[1] 40\n",
      "[1] \"Hardcover\"\n",
      "[1] 41\n",
      "[1] \"Paperback\"\n",
      "[1] 42\n",
      "[1] \"Paperback\"\n",
      "[1] 43\n",
      "[1] \"Hardcover\"\n",
      "[1] 44\n",
      "[1] \"Paperback\"\n",
      "[1] 45\n",
      "[1] \"Hardcover\"\n",
      "[1] 46\n",
      "[1] \"Paperback\"\n",
      "[1] 47\n",
      "[1] \"Hardcover\"\n",
      "[1] 48\n",
      "[1] \"Paperback\"\n",
      "[1] 49\n",
      "[1] \"Paperback\"\n",
      "[1] 50\n",
      "[1] \"Hardcover\"\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'Hardcover'</li>\n",
       "\t<li>'Hardcover'</li>\n",
       "\t<li>'Paperback'</li>\n",
       "\t<li>'Hardcover'</li>\n",
       "\t<li>'Hardcover'</li>\n",
       "\t<li>'Hardcover'</li>\n",
       "\t<li>'Hardcover'</li>\n",
       "\t<li>'Hardcover'</li>\n",
       "\t<li>'Hardcover'</li>\n",
       "\t<li>'Hardcover'</li>\n",
       "\t<li>'Hardcover'</li>\n",
       "\t<li>'Paperback'</li>\n",
       "\t<li>'Hardcover'</li>\n",
       "\t<li>'Paperback'</li>\n",
       "\t<li>'Board book'</li>\n",
       "\t<li>'Hardcover'</li>\n",
       "\t<li>'Hardcover'</li>\n",
       "\t<li>'Paperback'</li>\n",
       "\t<li>'Hardcover'</li>\n",
       "\t<li>'Board book'</li>\n",
       "\t<li>'Hardcover'</li>\n",
       "\t<li>'Hardcover'</li>\n",
       "\t<li>'Board book'</li>\n",
       "\t<li>'Paperback'</li>\n",
       "\t<li>'Hardcover'</li>\n",
       "\t<li>''</li>\n",
       "\t<li>'Paperback'</li>\n",
       "\t<li>'Hardcover'</li>\n",
       "\t<li>'Board book'</li>\n",
       "\t<li>'Board book'</li>\n",
       "\t<li>'Paperback'</li>\n",
       "\t<li>'Paperback'</li>\n",
       "\t<li>'Board book'</li>\n",
       "\t<li>'Hardcover'</li>\n",
       "\t<li>'Hardcover'</li>\n",
       "\t<li>'Board book'</li>\n",
       "\t<li>'Hardcover'</li>\n",
       "\t<li>'Paperback'</li>\n",
       "\t<li>'Paperback'</li>\n",
       "\t<li>'Hardcover'</li>\n",
       "\t<li>'Paperback'</li>\n",
       "\t<li>'Paperback'</li>\n",
       "\t<li>'Hardcover'</li>\n",
       "\t<li>'Paperback'</li>\n",
       "\t<li>'Hardcover'</li>\n",
       "\t<li>'Paperback'</li>\n",
       "\t<li>'Hardcover'</li>\n",
       "\t<li>'Paperback'</li>\n",
       "\t<li>'Paperback'</li>\n",
       "\t<li>'Hardcover'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'Hardcover'\n",
       "\\item 'Hardcover'\n",
       "\\item 'Paperback'\n",
       "\\item 'Hardcover'\n",
       "\\item 'Hardcover'\n",
       "\\item 'Hardcover'\n",
       "\\item 'Hardcover'\n",
       "\\item 'Hardcover'\n",
       "\\item 'Hardcover'\n",
       "\\item 'Hardcover'\n",
       "\\item 'Hardcover'\n",
       "\\item 'Paperback'\n",
       "\\item 'Hardcover'\n",
       "\\item 'Paperback'\n",
       "\\item 'Board book'\n",
       "\\item 'Hardcover'\n",
       "\\item 'Hardcover'\n",
       "\\item 'Paperback'\n",
       "\\item 'Hardcover'\n",
       "\\item 'Board book'\n",
       "\\item 'Hardcover'\n",
       "\\item 'Hardcover'\n",
       "\\item 'Board book'\n",
       "\\item 'Paperback'\n",
       "\\item 'Hardcover'\n",
       "\\item ''\n",
       "\\item 'Paperback'\n",
       "\\item 'Hardcover'\n",
       "\\item 'Board book'\n",
       "\\item 'Board book'\n",
       "\\item 'Paperback'\n",
       "\\item 'Paperback'\n",
       "\\item 'Board book'\n",
       "\\item 'Hardcover'\n",
       "\\item 'Hardcover'\n",
       "\\item 'Board book'\n",
       "\\item 'Hardcover'\n",
       "\\item 'Paperback'\n",
       "\\item 'Paperback'\n",
       "\\item 'Hardcover'\n",
       "\\item 'Paperback'\n",
       "\\item 'Paperback'\n",
       "\\item 'Hardcover'\n",
       "\\item 'Paperback'\n",
       "\\item 'Hardcover'\n",
       "\\item 'Paperback'\n",
       "\\item 'Hardcover'\n",
       "\\item 'Paperback'\n",
       "\\item 'Paperback'\n",
       "\\item 'Hardcover'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'Hardcover'\n",
       "2. 'Hardcover'\n",
       "3. 'Paperback'\n",
       "4. 'Hardcover'\n",
       "5. 'Hardcover'\n",
       "6. 'Hardcover'\n",
       "7. 'Hardcover'\n",
       "8. 'Hardcover'\n",
       "9. 'Hardcover'\n",
       "10. 'Hardcover'\n",
       "11. 'Hardcover'\n",
       "12. 'Paperback'\n",
       "13. 'Hardcover'\n",
       "14. 'Paperback'\n",
       "15. 'Board book'\n",
       "16. 'Hardcover'\n",
       "17. 'Hardcover'\n",
       "18. 'Paperback'\n",
       "19. 'Hardcover'\n",
       "20. 'Board book'\n",
       "21. 'Hardcover'\n",
       "22. 'Hardcover'\n",
       "23. 'Board book'\n",
       "24. 'Paperback'\n",
       "25. 'Hardcover'\n",
       "26. ''\n",
       "27. 'Paperback'\n",
       "28. 'Hardcover'\n",
       "29. 'Board book'\n",
       "30. 'Board book'\n",
       "31. 'Paperback'\n",
       "32. 'Paperback'\n",
       "33. 'Board book'\n",
       "34. 'Hardcover'\n",
       "35. 'Hardcover'\n",
       "36. 'Board book'\n",
       "37. 'Hardcover'\n",
       "38. 'Paperback'\n",
       "39. 'Paperback'\n",
       "40. 'Hardcover'\n",
       "41. 'Paperback'\n",
       "42. 'Paperback'\n",
       "43. 'Hardcover'\n",
       "44. 'Paperback'\n",
       "45. 'Hardcover'\n",
       "46. 'Paperback'\n",
       "47. 'Hardcover'\n",
       "48. 'Paperback'\n",
       "49. 'Paperback'\n",
       "50. 'Hardcover'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] \"Hardcover\"  \"Hardcover\"  \"Paperback\"  \"Hardcover\"  \"Hardcover\" \n",
       " [6] \"Hardcover\"  \"Hardcover\"  \"Hardcover\"  \"Hardcover\"  \"Hardcover\" \n",
       "[11] \"Hardcover\"  \"Paperback\"  \"Hardcover\"  \"Paperback\"  \"Board book\"\n",
       "[16] \"Hardcover\"  \"Hardcover\"  \"Paperback\"  \"Hardcover\"  \"Board book\"\n",
       "[21] \"Hardcover\"  \"Hardcover\"  \"Board book\" \"Paperback\"  \"Hardcover\" \n",
       "[26] \"\"           \"Paperback\"  \"Hardcover\"  \"Board book\" \"Board book\"\n",
       "[31] \"Paperback\"  \"Paperback\"  \"Board book\" \"Hardcover\"  \"Hardcover\" \n",
       "[36] \"Board book\" \"Hardcover\"  \"Paperback\"  \"Paperback\"  \"Hardcover\" \n",
       "[41] \"Paperback\"  \"Paperback\"  \"Hardcover\"  \"Paperback\"  \"Hardcover\" \n",
       "[46] \"Paperback\"  \"Hardcover\"  \"Paperback\"  \"Paperback\"  \"Hardcover\" "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "[1] 1\n",
      "[1] \"$19.50\"\n",
      "[1] 2\n",
      "[1] \"$13.63\"\n",
      "[1] 3\n",
      "[1] \"$4.99\"\n",
      "[1] 4\n",
      "[1] \"$16.79\"\n",
      "[1] 5\n",
      "[1] \"$16.49\"\n",
      "[1] 6\n",
      "[1] \"$10.33\"\n",
      "[1] 7\n",
      "[1] \"$15.57\"\n",
      "[1] 8\n",
      "[1] \"$19.98\"\n",
      "[1] 9\n",
      "[1] \"$11.62\"\n",
      "[1] 10\n",
      "[1] \"$14.99\"\n",
      "[1] 11\n",
      "[1] \"$13.95\"\n",
      "[1] 12\n",
      "[1] \"$7.19\"\n",
      "[1] 13\n",
      "[1] \"$11.51\"\n",
      "[1] 14\n",
      "[1] \"$9.59\"\n",
      "[1] 15\n",
      "[1] \"$4.99\"\n",
      "[1] 16\n",
      "[1] \"$9.85\"\n",
      "[1] 17\n",
      "[1] \"$15.18\"\n",
      "[1] 18\n",
      "[1] \"$8.98\"\n",
      "[1] 19\n",
      "[1] \"$14.81\"\n",
      "[1] 20\n",
      "[1] \"$5.00\"\n",
      "[1] 21\n",
      "[1] \"$29.08\"\n",
      "[1] 22\n",
      "[1] \"$28.38\"\n",
      "[1] 23\n",
      "[1] \"$5.60\"\n",
      "[1] 24\n",
      "[1] \"$8.80\"\n",
      "[1] 25\n",
      "[1] \"$13.95\"\n",
      "[1] 26\n",
      "character(0)\n",
      "[1] 27\n",
      "[1] \"$6.48\"\n",
      "[1] 28\n",
      "[1] \"$10.79\"\n",
      "[1] 29\n",
      "[1] \"$5.99\"\n",
      "[1] 30\n",
      "[1] \"$5.00\"\n",
      "[1] 31\n",
      "[1] \"$6.02\"\n",
      "[1] 32\n",
      "[1] \"$27.99\"\n",
      "[1] 33\n",
      "[1] \"$5.00\"\n",
      "[1] 34\n",
      "[1] \"$10.99\"\n",
      "[1] 35\n",
      "[1] \"$8.38\"\n",
      "[1] 36\n",
      "[1] \"$6.53\"\n",
      "[1] 37\n",
      "[1] \"$21.87\"\n",
      "[1] 38\n",
      "[1] \"$6.19\"\n",
      "[1] 39\n",
      "[1] \"$9.60\"\n",
      "[1] 40\n",
      "[1] \"$6.35\"\n",
      "[1] 41\n",
      "[1] \"$12.05\"\n",
      "[1] 42\n",
      "[1] \"$7.08\"\n",
      "[1] 43\n",
      "[1] \"$14.99\"\n",
      "[1] 44\n",
      "[1] \"$11.69\"\n",
      "[1] 45\n",
      "[1] \"$15.21\"\n",
      "[1] 46\n",
      "[1] \"$6.69\"\n",
      "[1] 47\n",
      "[1] \"$18.11\"\n",
      "[1] 48\n",
      "[1] \"$12.51\"\n",
      "[1] 49\n",
      "[1] \"$8.27\"\n",
      "[1] 50\n",
      "[1] \"$19.50\"\n",
      "[1] 1\n",
      "[1] \"Paulo Coelho\"\n",
      "[1] 2\n",
      "[1] \"R. J. Palacio\"\n",
      "[1] 3\n",
      "[1] \"Harper Lee\"\n",
      "[1] 4\n",
      "character(0)\n",
      "[1] 5\n",
      "[1] \"Leanne Vogel\"\n",
      "[1] 6\n",
      "[1] \"Bob Goff\"\n",
      "[1] 7\n",
      "[1] \"Lisa Wingate\"\n",
      "[1] 8\n",
      "[1] \"John Grisham\"\n",
      "[1] 9\n",
      "character(0)\n",
      "[1] 10\n",
      "[1] \"Mark Sullivan\"\n",
      "[1] 11\n",
      "[1] \"Heidi Murkoff\"\n",
      "[1] 12\n",
      "[1] \"Ray Dalio\"\n",
      "[1] 13\n",
      "[1] \"Neil deGrasse Tyson\"\n",
      "[1] 14\n",
      "[1] \"Rob Elliott\"\n",
      "[1] 15\n",
      "[1] \"Anthony William\"\n",
      "[1] 16\n",
      "[1] \"The College Board\"\n",
      "[1] 17\n",
      "[1] \"Sasha O'Hara\"\n",
      "[1] 18\n",
      "character(0)\n",
      "[1] 19\n",
      "[1] \"Stephen King\"\n",
      "[1] 20\n",
      "[1] \"Delia Owens\"\n",
      "[1] 21\n",
      "[1] \"Wizards RPG Team\"\n",
      "[1] 22\n",
      "[1] \"Yuval Noah Harari\"\n",
      "[1] 23\n",
      "[1] \"Robert Munsch\"\n",
      "[1] 24\n",
      "[1] \"Adam Rubin\"\n",
      "[1] 25\n",
      "[1] \"A. J. Finn\"\n",
      "[1] 26\n",
      "[1] \"Wizards RPG Team\"\n",
      "[1] 27\n",
      "[1] \"Suzanne Ryan\"\n",
      "[1] 28\n",
      "[1] \"Tom Rath\"\n",
      "[1] 29\n",
      "[1] \"Jocko Willink\"\n",
      "[1] 30\n",
      "[1] \"Gregg Jarrett\"\n",
      "[1] 31\n",
      "[1] \"Dan Green\"\n",
      "[1] 32\n",
      "[1] \"Rupi Kaur\"\n",
      "[1] 33\n",
      "[1] \"Marie Kondo\"\n",
      "[1] 34\n",
      "[1] \"Jen Fisch\"\n",
      "[1] 35\n",
      "[1] \"Brianna Caplan Sayres\"\n",
      "[1] 36\n",
      "[1] \"Stephen R. Covey\"\n",
      "[1] 37\n",
      "[1] \"Reese Witherspoon\"\n",
      "[1] 38\n",
      "[1] \"Viktor E. Frankl\"\n",
      "[1] 39\n",
      "[1] \"Kristin Hannah\"\n",
      "[1] 40\n",
      "[1] \"Dave Ramsey\"\n",
      "[1] 41\n",
      "[1] \"Chrissy Teigen\"\n",
      "[1] 42\n",
      "[1] \"Margaret Atwood\"\n",
      "[1] 43\n",
      "[1] \"Brené Brown\"\n",
      "[1] 44\n",
      "[1] \"F. Scott Fitzgerald\"\n",
      "[1] 45\n",
      "character(0)\n",
      "[1] 46\n",
      "[1] \"Lin-Manuel Miranda\"\n",
      "[1] 47\n",
      "[1] \"Robert T. Kiyosaki\"\n",
      "[1] 48\n",
      "[1] \"William H. McRaven\"\n",
      "[1] 49\n",
      "[1] \"J. K. Rowling\"\n",
      "[1] 50\n",
      "[1] \"Wizards RPG Team\"\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'Paulo Coelho'</li>\n",
       "\t<li>'R. J. Palacio'</li>\n",
       "\t<li>'Harper Lee'</li>\n",
       "\t<li>''</li>\n",
       "\t<li>'Leanne Vogel'</li>\n",
       "\t<li>'Bob Goff'</li>\n",
       "\t<li>'Lisa Wingate'</li>\n",
       "\t<li>'John Grisham'</li>\n",
       "\t<li>''</li>\n",
       "\t<li>'Mark Sullivan'</li>\n",
       "\t<li>'Heidi Murkoff'</li>\n",
       "\t<li>'Ray Dalio'</li>\n",
       "\t<li>'Neil deGrasse Tyson'</li>\n",
       "\t<li>'Rob Elliott'</li>\n",
       "\t<li>'Anthony William'</li>\n",
       "\t<li>'The College Board'</li>\n",
       "\t<li>'Sasha O\\'Hara'</li>\n",
       "\t<li>''</li>\n",
       "\t<li>'Stephen King'</li>\n",
       "\t<li>'Delia Owens'</li>\n",
       "\t<li>'Wizards RPG Team'</li>\n",
       "\t<li>'Yuval Noah Harari'</li>\n",
       "\t<li>'Robert Munsch'</li>\n",
       "\t<li>'Adam Rubin'</li>\n",
       "\t<li>'A. J. Finn'</li>\n",
       "\t<li>'Wizards RPG Team'</li>\n",
       "\t<li>'Suzanne Ryan'</li>\n",
       "\t<li>'Tom Rath'</li>\n",
       "\t<li>'Jocko Willink'</li>\n",
       "\t<li>'Gregg Jarrett'</li>\n",
       "\t<li>'Dan Green'</li>\n",
       "\t<li>'Rupi Kaur'</li>\n",
       "\t<li>'Marie Kondō'</li>\n",
       "\t<li>'Jen Fisch'</li>\n",
       "\t<li>'Brianna Caplan Sayres'</li>\n",
       "\t<li>'Stephen R. Covey'</li>\n",
       "\t<li>'Reese Witherspoon'</li>\n",
       "\t<li>'Viktor E. Frankl'</li>\n",
       "\t<li>'Kristin Hannah'</li>\n",
       "\t<li>'Dave Ramsey'</li>\n",
       "\t<li>'Chrissy Teigen'</li>\n",
       "\t<li>'Margaret Atwood'</li>\n",
       "\t<li>'Brené Brown'</li>\n",
       "\t<li>'F. Scott Fitzgerald'</li>\n",
       "\t<li>''</li>\n",
       "\t<li>'Lin-Manuel Miranda'</li>\n",
       "\t<li>'Robert T. Kiyosaki'</li>\n",
       "\t<li>'William H. McRaven'</li>\n",
       "\t<li>'J. K. Rowling'</li>\n",
       "\t<li>'Wizards RPG Team'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'Paulo Coelho'\n",
       "\\item 'R. J. Palacio'\n",
       "\\item 'Harper Lee'\n",
       "\\item ''\n",
       "\\item 'Leanne Vogel'\n",
       "\\item 'Bob Goff'\n",
       "\\item 'Lisa Wingate'\n",
       "\\item 'John Grisham'\n",
       "\\item ''\n",
       "\\item 'Mark Sullivan'\n",
       "\\item 'Heidi Murkoff'\n",
       "\\item 'Ray Dalio'\n",
       "\\item 'Neil deGrasse Tyson'\n",
       "\\item 'Rob Elliott'\n",
       "\\item 'Anthony William'\n",
       "\\item 'The College Board'\n",
       "\\item 'Sasha O\\textbackslash{}'Hara'\n",
       "\\item ''\n",
       "\\item 'Stephen King'\n",
       "\\item 'Delia Owens'\n",
       "\\item 'Wizards RPG Team'\n",
       "\\item 'Yuval Noah Harari'\n",
       "\\item 'Robert Munsch'\n",
       "\\item 'Adam Rubin'\n",
       "\\item 'A. J. Finn'\n",
       "\\item 'Wizards RPG Team'\n",
       "\\item 'Suzanne Ryan'\n",
       "\\item 'Tom Rath'\n",
       "\\item 'Jocko Willink'\n",
       "\\item 'Gregg Jarrett'\n",
       "\\item 'Dan Green'\n",
       "\\item 'Rupi Kaur'\n",
       "\\item 'Marie Kondō'\n",
       "\\item 'Jen Fisch'\n",
       "\\item 'Brianna Caplan Sayres'\n",
       "\\item 'Stephen R. Covey'\n",
       "\\item 'Reese Witherspoon'\n",
       "\\item 'Viktor E. Frankl'\n",
       "\\item 'Kristin Hannah'\n",
       "\\item 'Dave Ramsey'\n",
       "\\item 'Chrissy Teigen'\n",
       "\\item 'Margaret Atwood'\n",
       "\\item 'Brené Brown'\n",
       "\\item 'F. Scott Fitzgerald'\n",
       "\\item ''\n",
       "\\item 'Lin-Manuel Miranda'\n",
       "\\item 'Robert T. Kiyosaki'\n",
       "\\item 'William H. McRaven'\n",
       "\\item 'J. K. Rowling'\n",
       "\\item 'Wizards RPG Team'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'Paulo Coelho'\n",
       "2. 'R. J. Palacio'\n",
       "3. 'Harper Lee'\n",
       "4. ''\n",
       "5. 'Leanne Vogel'\n",
       "6. 'Bob Goff'\n",
       "7. 'Lisa Wingate'\n",
       "8. 'John Grisham'\n",
       "9. ''\n",
       "10. 'Mark Sullivan'\n",
       "11. 'Heidi Murkoff'\n",
       "12. 'Ray Dalio'\n",
       "13. 'Neil deGrasse Tyson'\n",
       "14. 'Rob Elliott'\n",
       "15. 'Anthony William'\n",
       "16. 'The College Board'\n",
       "17. 'Sasha O\\'Hara'\n",
       "18. ''\n",
       "19. 'Stephen King'\n",
       "20. 'Delia Owens'\n",
       "21. 'Wizards RPG Team'\n",
       "22. 'Yuval Noah Harari'\n",
       "23. 'Robert Munsch'\n",
       "24. 'Adam Rubin'\n",
       "25. 'A. J. Finn'\n",
       "26. 'Wizards RPG Team'\n",
       "27. 'Suzanne Ryan'\n",
       "28. 'Tom Rath'\n",
       "29. 'Jocko Willink'\n",
       "30. 'Gregg Jarrett'\n",
       "31. 'Dan Green'\n",
       "32. 'Rupi Kaur'\n",
       "33. 'Marie Kondō'\n",
       "34. 'Jen Fisch'\n",
       "35. 'Brianna Caplan Sayres'\n",
       "36. 'Stephen R. Covey'\n",
       "37. 'Reese Witherspoon'\n",
       "38. 'Viktor E. Frankl'\n",
       "39. 'Kristin Hannah'\n",
       "40. 'Dave Ramsey'\n",
       "41. 'Chrissy Teigen'\n",
       "42. 'Margaret Atwood'\n",
       "43. 'Brené Brown'\n",
       "44. 'F. Scott Fitzgerald'\n",
       "45. ''\n",
       "46. 'Lin-Manuel Miranda'\n",
       "47. 'Robert T. Kiyosaki'\n",
       "48. 'William H. McRaven'\n",
       "49. 'J. K. Rowling'\n",
       "50. 'Wizards RPG Team'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] \"Paulo Coelho\"          \"R. J. Palacio\"         \"Harper Lee\"           \n",
       " [4] \"\"                      \"Leanne Vogel\"          \"Bob Goff\"             \n",
       " [7] \"Lisa Wingate\"          \"John Grisham\"          \"\"                     \n",
       "[10] \"Mark Sullivan\"         \"Heidi Murkoff\"         \"Ray Dalio\"            \n",
       "[13] \"Neil deGrasse Tyson\"   \"Rob Elliott\"           \"Anthony William\"      \n",
       "[16] \"The College Board\"     \"Sasha O'Hara\"          \"\"                     \n",
       "[19] \"Stephen King\"          \"Delia Owens\"           \"Wizards RPG Team\"     \n",
       "[22] \"Yuval Noah Harari\"     \"Robert Munsch\"         \"Adam Rubin\"           \n",
       "[25] \"A. J. Finn\"            \"Wizards RPG Team\"      \"Suzanne Ryan\"         \n",
       "[28] \"Tom Rath\"              \"Jocko Willink\"         \"Gregg Jarrett\"        \n",
       "[31] \"Dan Green\"             \"Rupi Kaur\"             \"Marie Kondo\"          \n",
       "[34] \"Jen Fisch\"             \"Brianna Caplan Sayres\" \"Stephen R. Covey\"     \n",
       "[37] \"Reese Witherspoon\"     \"Viktor E. Frankl\"      \"Kristin Hannah\"       \n",
       "[40] \"Dave Ramsey\"           \"Chrissy Teigen\"        \"Margaret Atwood\"      \n",
       "[43] \"Brené Brown\"           \"F. Scott Fitzgerald\"   \"\"                     \n",
       "[46] \"Lin-Manuel Miranda\"    \"Robert T. Kiyosaki\"    \"William H. McRaven\"   \n",
       "[49] \"J. K. Rowling\"         \"Wizards RPG Team\"     "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Code for Scraping Data from Amazon website\n",
    "\n",
    "# Code to scrape first 50 books present in first page on the website\n",
    "\n",
    "# load the packages\n",
    "\n",
    "Pckgs_For_This_R_Script = c( 'dplyr',    # Grammar of Data Manipulation\n",
    "                               'stringr',  # Package for String handling \n",
    "                               'rvest',    # Package for Web Scraping \n",
    "                               'RCurl',    # Package for handling URLs\n",
    "                               'maps',     # Drawing Maps in R \n",
    "                               'XML',      # Packages for processing XML\n",
    "                               'xml2',\n",
    "                               'ggplot2',\n",
    "                               'plotly')   # Package for interactive Plotting\n",
    "  \n",
    "  \n",
    "  sapply(Pckgs_For_This_R_Script , require , character.only = T)\n",
    "\n",
    "#define the url\n",
    "url <- \"https://www.amazon.com/gp/bestsellers/2018/books\"\n",
    "\n",
    "#read the corresponding HTML for the url\n",
    "amazon_html_page <- xml2::read_html(url)\n",
    "\n",
    "# 1. Extract the 50 book rankings\n",
    "\n",
    "Tag_Name <- '.zg-badge-text' \n",
    "amazon_Node <- html_nodes(amazon_html_page,Tag_Name)\n",
    "amazon_book_Rank <- html_text(amazon_Node)\n",
    "\n",
    "amazon_book_Rank <- str_replace_all(amazon_book_Rank,\"\\\\#\" ,\"\")\n",
    "amazon_book_Rank <- as.numeric(amazon_book_Rank)\n",
    "amazon_book_Rank\n",
    "\n",
    "# 2. Extract Book names for top 50 books\n",
    "\n",
    "Tag_book_name <- url %>%\n",
    "  read_html() %>%\n",
    "  html_nodes(xpath='//*[@id=\"zg-ordered-list\"]/li/span/div/span/a/div') %>%\n",
    "  html_text()\n",
    "  \n",
    "Tag_book_name <- str_replace_all(Tag_book_name,\"\\\\n\",\"\")\n",
    "Tag_book_name <- str_squish(Tag_book_name)\n",
    "Tag_book_name <- str_split(Tag_book_name,\":\")\n",
    "class(Tag_book_name)\n",
    "\n",
    "for (i in 1:length(Tag_book_name)) {\n",
    "  Tag_book_name[i] = Tag_book_name[[i]][1]\n",
    "  \n",
    "}\n",
    "\n",
    "Tag_book_name\n",
    "Tag_book_name <- unlist(Tag_book_name)\n",
    "\n",
    "\n",
    "# 3. Extract Author names for each book\n",
    "# here the website deign is complicated, hence use loop for xpath and then extract the names\n",
    "\n",
    "author_num<- c(\"\")\n",
    "author_name <- character(0)\n",
    "\n",
    "\n",
    "\n",
    "for (i in 1:50) {\n",
    "\n",
    "  \n",
    "  Xpath_Author <- str_c('//*[@id=\"zg-ordered-list\"]/li[',\n",
    "                        i,\"]/span/div/span/div[1]/a\")  \n",
    "    \n",
    "    temp <- amazon_html_page%>%\n",
    "    html_nodes(xpath=Xpath_Author) %>%\n",
    "    html_text()\n",
    "    \n",
    "    author_name <- c(author_name, if_else(\n",
    "                    length(temp)>0,temp[1],\"\"))\n",
    "  \n",
    "}\n",
    "\n",
    "author_num\n",
    "author_name\n",
    "\n",
    "# 4. Extract star ratings for each book\n",
    "#xpath_stars <- '//*[@id=\"zg-ordered-list\"]/li[1]/span/div/span/div[2]/a[1]'\n",
    "star_ratings <- character(0)\n",
    "for (i in 1:50){\n",
    "  \n",
    "  xpath_stars <- str_c('//*[@id=\"zg-ordered-list\"]/li[',i,']/span/div/span/div[2]/a[1]')\n",
    "  star_ratings[i] <- amazon_html_page %>% html_nodes(xpath = xpath_stars) %>%\n",
    "    html_text()\n",
    "}\n",
    "\n",
    "star_ratings\n",
    "\n",
    "star_ratings <- str_replace_all(star_ratings,\"\\\\n\",\"\")\n",
    "star_ratings <- str_squish(star_ratings)\n",
    "star_ratings <- str_sub(star_ratings,1,3)\n",
    "#there r 2 NA values as it is cost instead of ratings\n",
    "star_ratings <- as.numeric(star_ratings)\n",
    "star_ratings <- ifelse(is.na(star_ratings),0,star_ratings)\n",
    "\n",
    "# 5. Extract number of reviews for each book\n",
    "#41 , 26 has character(0) value so na and then convrted to zero.\n",
    "reviews <- character(0)\n",
    "for (i in 1:50) {\n",
    "  \n",
    "  xpath_reviews <- str_c('//*[@id=\"zg-ordered-list\"]/li[',i,']/span/div/span/div[2]/a[2]')\n",
    "    \n",
    "  temp <- amazon_html_page %>%\n",
    "                html_nodes(xpath=xpath_reviews) %>% html_text()\n",
    "  reviews <- c(reviews,if_else(length(temp)>0,temp[1],\"\"))\n",
    "  \n",
    "}\n",
    "reviews <- str_replace(reviews,\",\",\"\")\n",
    "reviews <- as.numeric(reviews)\n",
    "reviews <- ifelse(is.na(reviews),0,reviews)\n",
    "\n",
    "# 6. Extract type of book\n",
    "type <- character(0)\n",
    "\n",
    "for (i in 1:50) {\n",
    "xpath_type <- str_c('//*[@id=\"zg-ordered-list\"]/li[',i,']/span/div/span/div[3]/span')\n",
    "temp <- amazon_html_page %>%\n",
    "  html_nodes(xpath=xpath_type) %>% html_text()\n",
    "\n",
    "type <- c(type,if_else(length(temp)>0, temp[1], \"\"))\n",
    "\n",
    "\n",
    "}\n",
    "\n",
    "type\n",
    "\n",
    "# 7. Extract price of book\n",
    "# 2 missing values @ 26 and @ 41\n",
    "\n",
    "price1 <- character(0)\n",
    "\n",
    "for (i in 1:50) {\n",
    "xpath_price <- str_c('//*[@id=\"zg-ordered-list\"]/li[',i,']/span/div/span/div[4]/a/span/span')\n",
    "\n",
    "temp <- amazon_html_page %>%\n",
    "                     html_nodes(xpath=xpath_price) %>% html_text()\n",
    "                     \n",
    "                     price1 <- c(price1,if_else(length(temp)>0, temp[1], \"\"))\n",
    "                     \n",
    "}\n",
    "\n",
    "price1 <- str_sub(price1,2,-1)\n",
    "price1 <- as.numeric(price1)\n",
    "\n",
    "# handle na which occurs during coercion\n",
    "price1 <- ifelse(is.na(price1),0,price1)\n",
    "\n",
    "\n",
    "#####################################################################################################################\n",
    "# Web scraping for books 51 to 100 presend in second page\n",
    "######################################################################################################################\n",
    "\n",
    "url2 <- 'https://www.amazon.com/gp/bestsellers/2018/books/ref=zg_bsar_pg_2?ie=UTF8&pg=2'\n",
    "\n",
    "# 1. Book Rank\n",
    "xpath_rank2 <- '//*[@id=\"zg-ordered-list\"]/li/span/div/div/span[1]/span'\n",
    "\n",
    "rank2 <- url2 %>% read_html() %>% html_nodes(xpath = xpath_rank2) %>% \n",
    "          html_text()\n",
    "rank2 <- str_remove(rank2,'#') %>% as.numeric()\n",
    "\n",
    "#-----------------------------------------------------------------\n",
    "\n",
    "# 2. Book Name\n",
    "xpath_name2 <- '//*[@id=\"zg-ordered-list\"]/li/span/div/span/a/div'\n",
    "\n",
    "book2 <- url2 %>% read_html() %>% html_nodes(xpath = xpath_name2) %>% \n",
    "  html_text()\n",
    "\n",
    "book2 <- str_remove_all(book2,'\\n') %>% str_trim()\n",
    "book2 <- str_split(book2,\":\") %>% lapply(function(x){x[1]}) %>% unlist()\n",
    "\n",
    "#----------------------------------------------------------------------\n",
    "\n",
    "# 3. Author\n",
    "author2 <- character(0)\n",
    "html_url2 <- url2 %>% read_html()\n",
    "for(i in 1:50) {\n",
    "  \n",
    "  xpath_author2 <- str_c('//*[@id=\"zg-ordered-list\"]/li[',i,']/span/div/span/div[1]/a')  \n",
    "  print(i)\n",
    "  \n",
    "  temp_auth <- html_url2 %>% html_nodes(xpath = xpath_author2) %>% \n",
    "  html_text()\n",
    "\n",
    "  author2 <- c(author2,if_else(length(temp_auth)>0, temp_auth[1],\"\"))\n",
    "             }\n",
    "author2\n",
    "#-------------------------------------------------\n",
    "# 4. Star ratings\n",
    "xpath_star2 <- '//*[@id=\"zg-ordered-list\"]/li/span/div/span/div[2]/a[1]/i/span'\n",
    "\n",
    "ratings2 <- url2 %>% read_html() %>% html_nodes(xpath = xpath_star2) %>% \n",
    "  html_text()\n",
    "\n",
    "ratings2 <- str_sub(ratings2,1,3) %>% as.numeric()\n",
    "\n",
    "#--------------------------------------------------------------------------\n",
    "  \n",
    "# 5. Number of reviews\n",
    "xpath_reviews <- '//*[@id=\"zg-ordered-list\"]/li/span/div/span/div[2]/a[2]'\n",
    "reviews2 <- url2 %>% read_html() %>% html_nodes(xpath = xpath_reviews) %>% \n",
    "  html_text()\n",
    "\n",
    "reviews2 <- str_remove(reviews2,\",\") %>% as.numeric()\n",
    "\n",
    "#--------------------------------------------------------------------------\n",
    "\n",
    "# 6. Type of book\n",
    "\n",
    "xpath_booktype <- '//*[@id=\"zg-ordered-list\"]/li/span/div/span/div[3]/span'\n",
    "type2 <- url2 %>% read_html() %>% html_nodes(xpath = xpath_booktype) %>% \n",
    "  html_text()\n",
    "\n",
    "#------------------------------------------------------------------------\n",
    "\n",
    "# 7. Price\n",
    "\n",
    "price2 <- character(0)\n",
    "html_var <- read_html(url2)\n",
    "for (i in 1:50) {\n",
    "  \n",
    "xpath_price <-str_c('//*[@id=\"zg-ordered-list\"]/li[',i,']/span/div/span/div[4]/a/span/span')\n",
    "temp_price <- html_var %>% html_nodes(xpath = xpath_price) %>% \n",
    "  html_text()\n",
    "\n",
    "price2 <- c(price2, ifelse(length(temp_price)>0,temp_price[1],\"\"))\n",
    "\n",
    "}\n",
    "\n",
    "price2 <- str_sub(price2,2,-1) %>% as.numeric()\n",
    "price2 <- ifelse(is.na(price2),0,price2)\n",
    "\n",
    "\n",
    "\n",
    "\n",
    "\n",
    "#######################################################################\n",
    "#                   Combined data for 100 books                   #\n",
    "####################################################################\n",
    "\n",
    "# 1. Book rank\n",
    "book_rank <- c(amazon_book_Rank,rank2 ) \n",
    "\n",
    "# 2. Book name\n",
    "book_name <- c(Tag_book_name,book2)\n",
    "\n",
    "# 3. Author Name\n",
    "author <- c(author_name,author2)\n",
    "\n",
    "# 4. star ratings\n",
    "stars <- c(star_ratings,ratings2)\n",
    "\n",
    "# 5. Number of reviews\n",
    "reviews <- c(reviews,reviews2)\n",
    "\n",
    "# 6. Type of book\n",
    "book_type <- c(type,type2)\n",
    "# 7. Price\n",
    "price <- character(0)\n",
    "price <- c(price1,price2)\n",
    "\n",
    "# create combined tibble for all 100 books. \n",
    "amazon_books <- tibble(book_rank,book_name,author,stars,\n",
    "                       reviews,book_type,price)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 13,
   "metadata": {},
   "outputs": [],
   "source": [
    "# code to scrape data from NYT website\n",
    "\n",
    "\n",
    "# 1. Hardcover fiction (hcf)\n",
    "url1 <- 'https://www.barnesandnoble.com/b/the-new-york-times-bestsellers-hardcover-fiction/_/N-1p3r'\n",
    "hcf_xpath <- '//*[@id=\"listView_\"]/ol/li/div/div[3]/div[1]/h3/a'\n",
    "\n",
    "hc_fiction <- url1 %>% read_html() %>% html_nodes(xpath = hcf_xpath) %>%\n",
    "                  html_text()\n",
    "\n",
    "\n",
    "# 2. Hardcover nonfiction\n",
    "url2 <- 'https://www.barnesandnoble.com/b/the-new-york-times-bestsellers-hardcover-nonfiction/_/N-1p5q'\n",
    "hc_nfic_xpath <- '//*[@id=\"listView_\"]/ol/li/div/div[3]/div[1]/h3/a'\n",
    "\n",
    "hc_non_fiction <- url2 %>% read_html() %>% html_nodes(xpath = hc_nfic_xpath) %>%\n",
    "  html_text()\n",
    "\n",
    "# 3. paperback fiction\n",
    "\n",
    "url3 <- 'https://www.barnesandnoble.com/b/the-new-york-times-bestsellers-trade-paperback-fiction/_/N-1p3v'\n",
    "pb_fic_xpath <- '//*[@id=\"listView_\"]/ol/li/div/div[3]/div[1]/h3/a'\n",
    "\n",
    "pb_fiction <- url3 %>% read_html() %>% html_nodes(xpath = pb_fic_xpath) %>%\n",
    "  html_text()\n",
    "\n",
    "# 4. paperback nonfiction\n",
    "\n",
    "url4 <- 'https://www.barnesandnoble.com/b/the-new-york-times-bestsellers-paperback-nonfiction/_/N-1p3u'\n",
    "pb_nonfic_xpath <- '//*[@id=\"listView_\"]/ol/li/div/div[3]/div[1]/h3/a'\n",
    "\n",
    "pb_non_fiction <- url4 %>% read_html() %>% html_nodes(xpath = pb_nonfic_xpath) %>%\n",
    "  html_text()\n",
    "\n",
    "# 5. Advice, How-To & Miscellaneous\n",
    "\n",
    "url5 <- 'https://www.barnesandnoble.com/b/the-new-york-times-bestsellers-advice-how-to-miscellaneous/_/N-1p3o'\n",
    "misc_xpath <- '//*[@id=\"listView_\"]/ol/li/div/div[3]/div[1]/h3/a'\n",
    "\n",
    "misc <- url5 %>% read_html() %>% html_nodes(xpath = misc_xpath) %>%\n",
    "  html_text()\n",
    "\n",
    "# 6. Children's Picture books\n",
    "\n",
    "url6 <- 'https://www.barnesandnoble.com/b/the-new-york-times-bestsellers-childrens-picture-books/_/N-1p3p'\n",
    "children_pic_xpath <- '//*[@id=\"listView_\"]/ol/li/div/div[3]/div[1]/h3/a'\n",
    "\n",
    "children1 <- url6 %>% read_html() %>% html_nodes(xpath = children_pic_xpath) %>%\n",
    "  html_text()\n",
    "\n",
    "# 7. Middle grade hardcover\n",
    "url7 <- 'https://www.barnesandnoble.com/b/the-new-york-times-bestsellers-middle-grade-hardcover/_/N-1p3t'\n",
    "mid_grade_xpath <- '//*[@id=\"listView_\"]/ol/li/div/div[3]/div[1]/h3/a'\n",
    "\n",
    "middle_grade <- url7 %>% read_html() %>% html_nodes(xpath = mid_grade_xpath) %>%\n",
    "  html_text()\n",
    "\n",
    "# 8. Young Adult hardcover\n",
    "\n",
    "url8 <- 'https://www.barnesandnoble.com/b/the-new-york-times-bestsellers-young-adult-hardcover/_/N-1p3w'\n",
    "young_adult_xpath <- '//*[@id=\"listView_\"]/ol/li/div/div[3]/div[1]/h3/a'\n",
    "\n",
    "young_adult <- url8 %>% read_html() %>% html_nodes(xpath = young_adult_xpath) %>%\n",
    "  html_text()\n",
    "\n",
    "# 9. Children's series\n",
    "\n",
    "url9 <- 'https://www.barnesandnoble.com/b/the-new-york-times-bestsellers-childrens-series/_/N-1p3q'\n",
    "children2_xpath <- '//*[@id=\"listView_\"]/ol/li/div/div[3]/div[1]/h3/a'\n",
    "\n",
    "children2 <- url9 %>% read_html() %>% html_nodes(xpath = children2_xpath) %>%\n",
    "  html_text()\n",
    "\n",
    "# combining similar genres\n",
    "children <- c(children1,children2)\n",
    "children <- c(children,middle_grade)\n",
    "genre <- rep(\"children\",30)\n",
    "\n",
    "# create tibble with book name and genre\n",
    "nyt_tibble <- tibble(book_name = children, genre)\n",
    "\n",
    "\n",
    "fiction <- c(hc_fiction,pb_fiction)\n",
    "genre_fic <- rep(\"fiction\",30)\n",
    "fict_tibble <- tibble(book_name = fiction, genre = genre_fic)\n",
    "\n",
    "non_fiction <- c(hc_non_fiction,pb_non_fiction)\n",
    "genre_nonfic <- rep(\"non-fiction\",30)\n",
    "nonfic_tibble <- tibble(book_name = non_fiction, genre = genre_nonfic)\n",
    "\n",
    "genre_misc <- rep(\"misc\",10)\n",
    "misc_tibble <- tibble(book_name = misc, genre = genre_misc)\n",
    "\n",
    "genre_youngAdult <- rep(\"young_adult\",10)\n",
    "youngAdult_tibble <- tibble(book_name = young_adult, genre = genre_youngAdult)\n",
    "\n",
    "# combine all genre tibbles\n",
    "\n",
    "nyt_tibble <- bind_rows(nyt_tibble,fict_tibble,nonfic_tibble,misc_tibble,youngAdult_tibble)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 14,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>book_name</th><th scope=col>genre</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>The Wonderful Things You Will Be                                                                                                       </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>Dragons Love Tacos                                                                                                                     </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>I Wish You More                                                                                                                        </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>I Love Dad with The Very Hungry Caterpillar                                                                                            </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>Grumpy Monkey                                                                                                                          </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>What Do You Do with a Chance?                                                                                                          </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>Dear Girl,                                                                                                                             </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>My Heart                                                                                                                               </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>Because I Had a Teacher                                                                                                                </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>The Day the Crayons Quit                                                                                                               </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>Brawl of the Wild (Dog Man Series #6)                                                                                                  </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>The Lightning Thief (Percy Jackson and the Olympians Series #1)                                                                        </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>The Meltdown (Diary of a Wimpy Kid Series #13)                                                                                         </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>Duel at Araluen (Ranger's Apprentice: The Royal Ranger Series #3)                                                                      </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>Harry Potter and the Sorcerer's Stone (Harry Potter Series #1)                                                                         </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>Captain Underpants and the Big, Bad Battle of the Bionic Booger Boy, Part 2: The Revenge of the Ridiculous Robo-Boogers (Color Edition)</td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>The Bad Guys (The Bad Guys Series #1)                                                                                                  </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>P.S. I Still Love You (To All the Boys I've Loved Before Series #2)                                                                    </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>Ghost (Defenders Track Team Series #1)                                                                                                 </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>Tales from a Not-So-Glam TV Star (Dork Diaries Series #7)                                                                              </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>Diary of an Awesome Friendly Kid: Rowley Jefferson's Journal                                                                           </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>Refugee                                                                                                                                </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>Wonder                                                                                                                                 </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>Wishtree                                                                                                                               </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>Katt vs. Dogg                                                                                                                          </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>The First (Endling Series #2)                                                                                                          </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>The Creature of the Pines (Unicorn Rescue Society Series #1)                                                                           </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>Batting Order                                                                                                                          </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>Aru Shah and the Song of Death (Pandava Series #2)                                                                                     </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>A Wolf Called Wander                                                                                                                   </td><td>children                                                                                                                               </td></tr>\n",
       "\t<tr><td>...</td><td>...</td></tr>\n",
       "\t<tr><td>Sapiens: A Brief History of Humankind                                                                                             </td><td>non-fiction                                                                                                                       </td></tr>\n",
       "\t<tr><td>The Mueller Report: Report on the Investigation into Russian Interference in the 2016 Presidential Election                       </td><td>non-fiction                                                                                                                       </td></tr>\n",
       "\t<tr><td>The Body Keeps the Score: Brain, Mind, and Body in the Healing of Trauma                                                          </td><td>non-fiction                                                                                                                       </td></tr>\n",
       "\t<tr><td>Just Mercy: A Story of Justice and Redemption                                                                                     </td><td>non-fiction                                                                                                                       </td></tr>\n",
       "\t<tr><td>Grit: The Power of Passion and Perseverance                                                                                       </td><td>non-fiction                                                                                                                       </td></tr>\n",
       "\t<tr><td>The Soul of America: The Battle for Our Better Angels                                                                             </td><td>non-fiction                                                                                                                       </td></tr>\n",
       "\t<tr><td>Indianapolis: The True Story of the Worst Sea Disaster in U.S. Naval History and the Fifty-Year Fight to Exonerate an Innocent Man</td><td>non-fiction                                                                                                                       </td></tr>\n",
       "\t<tr><td>Outliers: The Story of Success                                                                                                    </td><td>non-fiction                                                                                                                       </td></tr>\n",
       "\t<tr><td>Being Mortal: Medicine and What Matters in the End                                                                                </td><td>non-fiction                                                                                                                       </td></tr>\n",
       "\t<tr><td>Why We Sleep: Unlocking the Power of Sleep and Dreams                                                                             </td><td>non-fiction                                                                                                                       </td></tr>\n",
       "\t<tr><td><span style=white-space:pre-wrap>Stay Sexy &amp; Don't Get Murdered: The Definitive How-to Guide                                                                       </span></td><td><span style=white-space:pre-wrap>misc       </span>                                                                                                                           </td></tr>\n",
       "\t<tr><td>Make Your Bed: Little Things That Can Change Your Life...And Maybe the World                                                      </td><td>misc                                                                                                                              </td></tr>\n",
       "\t<tr><td>The Subtle Art of Not Giving a F*ck: A Counterintuitive Approach to Living a Good Life                                            </td><td>misc                                                                                                                              </td></tr>\n",
       "\t<tr><td>Girl, Wash Your Face: Stop Believing the Lies about Who You Are So You Can Become Who You Were Meant to Be                        </td><td>misc                                                                                                                              </td></tr>\n",
       "\t<tr><td>Everything Is F*cked: A Book about Hope                                                                                           </td><td>misc                                                                                                                              </td></tr>\n",
       "\t<tr><td>Girl, Stop Apologizing: A Shame-Free Plan for Embracing and Achieving Your Goals                                                  </td><td>misc                                                                                                                              </td></tr>\n",
       "\t<tr><td>Medical Medium Celery Juice: The Most Powerful Medicine of Our Time Healing Millions Worldwide                                    </td><td>misc                                                                                                                              </td></tr>\n",
       "\t<tr><td>Dare to Lead: Brave Work. Tough Conversations. Whole Hearts.                                                                      </td><td>misc                                                                                                                              </td></tr>\n",
       "\t<tr><td>You Are a Badass: How to Stop Doubting Your Greatness and Start Living an Awesome Life                                            </td><td>misc                                                                                                                              </td></tr>\n",
       "\t<tr><td>Daring Greatly: How the Courage to Be Vulnerable Transforms the Way We Live, Love, Parent, and Lead                               </td><td>misc                                                                                                                              </td></tr>\n",
       "\t<tr><td>Five Feet Apart                                                                                                                   </td><td>young_adult                                                                                                                       </td></tr>\n",
       "\t<tr><td>The Hate U Give                                                                                                                   </td><td>young_adult                                                                                                                       </td></tr>\n",
       "\t<tr><td>Children of Blood and Bone (Legacy of Orïsha Series #1)                                                                           </td><td>young_adult                                                                                                                       </td></tr>\n",
       "\t<tr><td>With the Fire on High                                                                                                             </td><td>young_adult                                                                                                                       </td></tr>\n",
       "\t<tr><td>On the Come Up                                                                                                                    </td><td>young_adult                                                                                                                       </td></tr>\n",
       "\t<tr><td>The Red Scrolls of Magic                                                                                                          </td><td>young_adult                                                                                                                       </td></tr>\n",
       "\t<tr><td>Stepsister                                                                                                                        </td><td>young_adult                                                                                                                       </td></tr>\n",
       "\t<tr><td>Dear Evan Hansen: The Novel                                                                                                       </td><td>young_adult                                                                                                                       </td></tr>\n",
       "\t<tr><td>The Fork, the Witch, and the Worm: Tales from Alagaesia (Volume 1: Eragon)                                                        </td><td>young_adult                                                                                                                       </td></tr>\n",
       "\t<tr><td>The Fall of Crazy House                                                                                                           </td><td>young_adult                                                                                                                       </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|ll}\n",
       " book\\_name & genre\\\\\n",
       "\\hline\n",
       "\t The Wonderful Things You Will Be                                                                                                        & children                                                                                                                               \\\\\n",
       "\t Dragons Love Tacos                                                                                                                      & children                                                                                                                               \\\\\n",
       "\t I Wish You More                                                                                                                         & children                                                                                                                               \\\\\n",
       "\t I Love Dad with The Very Hungry Caterpillar                                                                                             & children                                                                                                                               \\\\\n",
       "\t Grumpy Monkey                                                                                                                           & children                                                                                                                               \\\\\n",
       "\t What Do You Do with a Chance?                                                                                                           & children                                                                                                                               \\\\\n",
       "\t Dear Girl,                                                                                                                              & children                                                                                                                               \\\\\n",
       "\t My Heart                                                                                                                                & children                                                                                                                               \\\\\n",
       "\t Because I Had a Teacher                                                                                                                 & children                                                                                                                               \\\\\n",
       "\t The Day the Crayons Quit                                                                                                                & children                                                                                                                               \\\\\n",
       "\t Brawl of the Wild (Dog Man Series \\#6)                                                                                                   & children                                                                                                                                 \\\\\n",
       "\t The Lightning Thief (Percy Jackson and the Olympians Series \\#1)                                                                         & children                                                                                                                                 \\\\\n",
       "\t The Meltdown (Diary of a Wimpy Kid Series \\#13)                                                                                          & children                                                                                                                                 \\\\\n",
       "\t Duel at Araluen (Ranger's Apprentice: The Royal Ranger Series \\#3)                                                                       & children                                                                                                                                 \\\\\n",
       "\t Harry Potter and the Sorcerer's Stone (Harry Potter Series \\#1)                                                                          & children                                                                                                                                 \\\\\n",
       "\t Captain Underpants and the Big, Bad Battle of the Bionic Booger Boy, Part 2: The Revenge of the Ridiculous Robo-Boogers (Color Edition) & children                                                                                                                               \\\\\n",
       "\t The Bad Guys (The Bad Guys Series \\#1)                                                                                                   & children                                                                                                                                 \\\\\n",
       "\t P.S. I Still Love You (To All the Boys I've Loved Before Series \\#2)                                                                     & children                                                                                                                                 \\\\\n",
       "\t Ghost (Defenders Track Team Series \\#1)                                                                                                  & children                                                                                                                                 \\\\\n",
       "\t Tales from a Not-So-Glam TV Star (Dork Diaries Series \\#7)                                                                               & children                                                                                                                                 \\\\\n",
       "\t Diary of an Awesome Friendly Kid: Rowley Jefferson's Journal                                                                            & children                                                                                                                               \\\\\n",
       "\t Refugee                                                                                                                                 & children                                                                                                                               \\\\\n",
       "\t Wonder                                                                                                                                  & children                                                                                                                               \\\\\n",
       "\t Wishtree                                                                                                                                & children                                                                                                                               \\\\\n",
       "\t Katt vs. Dogg                                                                                                                           & children                                                                                                                               \\\\\n",
       "\t The First (Endling Series \\#2)                                                                                                           & children                                                                                                                                 \\\\\n",
       "\t The Creature of the Pines (Unicorn Rescue Society Series \\#1)                                                                            & children                                                                                                                                 \\\\\n",
       "\t Batting Order                                                                                                                           & children                                                                                                                               \\\\\n",
       "\t Aru Shah and the Song of Death (Pandava Series \\#2)                                                                                      & children                                                                                                                                 \\\\\n",
       "\t A Wolf Called Wander                                                                                                                    & children                                                                                                                               \\\\\n",
       "\t ... & ...\\\\\n",
       "\t Sapiens: A Brief History of Humankind                                                                                              & non-fiction                                                                                                                       \\\\\n",
       "\t The Mueller Report: Report on the Investigation into Russian Interference in the 2016 Presidential Election                        & non-fiction                                                                                                                       \\\\\n",
       "\t The Body Keeps the Score: Brain, Mind, and Body in the Healing of Trauma                                                           & non-fiction                                                                                                                       \\\\\n",
       "\t Just Mercy: A Story of Justice and Redemption                                                                                      & non-fiction                                                                                                                       \\\\\n",
       "\t Grit: The Power of Passion and Perseverance                                                                                        & non-fiction                                                                                                                       \\\\\n",
       "\t The Soul of America: The Battle for Our Better Angels                                                                              & non-fiction                                                                                                                       \\\\\n",
       "\t Indianapolis: The True Story of the Worst Sea Disaster in U.S. Naval History and the Fifty-Year Fight to Exonerate an Innocent Man & non-fiction                                                                                                                       \\\\\n",
       "\t Outliers: The Story of Success                                                                                                     & non-fiction                                                                                                                       \\\\\n",
       "\t Being Mortal: Medicine and What Matters in the End                                                                                 & non-fiction                                                                                                                       \\\\\n",
       "\t Why We Sleep: Unlocking the Power of Sleep and Dreams                                                                              & non-fiction                                                                                                                       \\\\\n",
       "\t Stay Sexy \\& Don't Get Murdered: The Definitive How-to Guide                                                                        & misc                                                                                                                                \\\\\n",
       "\t Make Your Bed: Little Things That Can Change Your Life...And Maybe the World                                                       & misc                                                                                                                              \\\\\n",
       "\t The Subtle Art of Not Giving a F*ck: A Counterintuitive Approach to Living a Good Life                                             & misc                                                                                                                              \\\\\n",
       "\t Girl, Wash Your Face: Stop Believing the Lies about Who You Are So You Can Become Who You Were Meant to Be                         & misc                                                                                                                              \\\\\n",
       "\t Everything Is F*cked: A Book about Hope                                                                                            & misc                                                                                                                              \\\\\n",
       "\t Girl, Stop Apologizing: A Shame-Free Plan for Embracing and Achieving Your Goals                                                   & misc                                                                                                                              \\\\\n",
       "\t Medical Medium Celery Juice: The Most Powerful Medicine of Our Time Healing Millions Worldwide                                     & misc                                                                                                                              \\\\\n",
       "\t Dare to Lead: Brave Work. Tough Conversations. Whole Hearts.                                                                       & misc                                                                                                                              \\\\\n",
       "\t You Are a Badass: How to Stop Doubting Your Greatness and Start Living an Awesome Life                                             & misc                                                                                                                              \\\\\n",
       "\t Daring Greatly: How the Courage to Be Vulnerable Transforms the Way We Live, Love, Parent, and Lead                                & misc                                                                                                                              \\\\\n",
       "\t Five Feet Apart                                                                                                                    & young\\_adult                                                                                                                     \\\\\n",
       "\t The Hate U Give                                                                                                                    & young\\_adult                                                                                                                     \\\\\n",
       "\t Children of Blood and Bone (Legacy of Orïsha Series \\#1)                                                                            & young\\_adult                                                                                                                       \\\\\n",
       "\t With the Fire on High                                                                                                              & young\\_adult                                                                                                                     \\\\\n",
       "\t On the Come Up                                                                                                                     & young\\_adult                                                                                                                     \\\\\n",
       "\t The Red Scrolls of Magic                                                                                                           & young\\_adult                                                                                                                     \\\\\n",
       "\t Stepsister                                                                                                                         & young\\_adult                                                                                                                     \\\\\n",
       "\t Dear Evan Hansen: The Novel                                                                                                        & young\\_adult                                                                                                                     \\\\\n",
       "\t The Fork, the Witch, and the Worm: Tales from Alagaesia (Volume 1: Eragon)                                                         & young\\_adult                                                                                                                     \\\\\n",
       "\t The Fall of Crazy House                                                                                                            & young\\_adult                                                                                                                     \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| book_name | genre |\n",
       "|---|---|\n",
       "| The Wonderful Things You Will Be                                                                                                        | children                                                                                                                                |\n",
       "| Dragons Love Tacos                                                                                                                      | children                                                                                                                                |\n",
       "| I Wish You More                                                                                                                         | children                                                                                                                                |\n",
       "| I Love Dad with The Very Hungry Caterpillar                                                                                             | children                                                                                                                                |\n",
       "| Grumpy Monkey                                                                                                                           | children                                                                                                                                |\n",
       "| What Do You Do with a Chance?                                                                                                           | children                                                                                                                                |\n",
       "| Dear Girl,                                                                                                                              | children                                                                                                                                |\n",
       "| My Heart                                                                                                                                | children                                                                                                                                |\n",
       "| Because I Had a Teacher                                                                                                                 | children                                                                                                                                |\n",
       "| The Day the Crayons Quit                                                                                                                | children                                                                                                                                |\n",
       "| Brawl of the Wild (Dog Man Series #6)                                                                                                   | children                                                                                                                                |\n",
       "| The Lightning Thief (Percy Jackson and the Olympians Series #1)                                                                         | children                                                                                                                                |\n",
       "| The Meltdown (Diary of a Wimpy Kid Series #13)                                                                                          | children                                                                                                                                |\n",
       "| Duel at Araluen (Ranger's Apprentice: The Royal Ranger Series #3)                                                                       | children                                                                                                                                |\n",
       "| Harry Potter and the Sorcerer's Stone (Harry Potter Series #1)                                                                          | children                                                                                                                                |\n",
       "| Captain Underpants and the Big, Bad Battle of the Bionic Booger Boy, Part 2: The Revenge of the Ridiculous Robo-Boogers (Color Edition) | children                                                                                                                                |\n",
       "| The Bad Guys (The Bad Guys Series #1)                                                                                                   | children                                                                                                                                |\n",
       "| P.S. I Still Love You (To All the Boys I've Loved Before Series #2)                                                                     | children                                                                                                                                |\n",
       "| Ghost (Defenders Track Team Series #1)                                                                                                  | children                                                                                                                                |\n",
       "| Tales from a Not-So-Glam TV Star (Dork Diaries Series #7)                                                                               | children                                                                                                                                |\n",
       "| Diary of an Awesome Friendly Kid: Rowley Jefferson's Journal                                                                            | children                                                                                                                                |\n",
       "| Refugee                                                                                                                                 | children                                                                                                                                |\n",
       "| Wonder                                                                                                                                  | children                                                                                                                                |\n",
       "| Wishtree                                                                                                                                | children                                                                                                                                |\n",
       "| Katt vs. Dogg                                                                                                                           | children                                                                                                                                |\n",
       "| The First (Endling Series #2)                                                                                                           | children                                                                                                                                |\n",
       "| The Creature of the Pines (Unicorn Rescue Society Series #1)                                                                            | children                                                                                                                                |\n",
       "| Batting Order                                                                                                                           | children                                                                                                                                |\n",
       "| Aru Shah and the Song of Death (Pandava Series #2)                                                                                      | children                                                                                                                                |\n",
       "| A Wolf Called Wander                                                                                                                    | children                                                                                                                                |\n",
       "| ... | ... |\n",
       "| Sapiens: A Brief History of Humankind                                                                                              | non-fiction                                                                                                                        |\n",
       "| The Mueller Report: Report on the Investigation into Russian Interference in the 2016 Presidential Election                        | non-fiction                                                                                                                        |\n",
       "| The Body Keeps the Score: Brain, Mind, and Body in the Healing of Trauma                                                           | non-fiction                                                                                                                        |\n",
       "| Just Mercy: A Story of Justice and Redemption                                                                                      | non-fiction                                                                                                                        |\n",
       "| Grit: The Power of Passion and Perseverance                                                                                        | non-fiction                                                                                                                        |\n",
       "| The Soul of America: The Battle for Our Better Angels                                                                              | non-fiction                                                                                                                        |\n",
       "| Indianapolis: The True Story of the Worst Sea Disaster in U.S. Naval History and the Fifty-Year Fight to Exonerate an Innocent Man | non-fiction                                                                                                                        |\n",
       "| Outliers: The Story of Success                                                                                                     | non-fiction                                                                                                                        |\n",
       "| Being Mortal: Medicine and What Matters in the End                                                                                 | non-fiction                                                                                                                        |\n",
       "| Why We Sleep: Unlocking the Power of Sleep and Dreams                                                                              | non-fiction                                                                                                                        |\n",
       "| Stay Sexy & Don't Get Murdered: The Definitive How-to Guide                                                                        | misc                                                                                                                               |\n",
       "| Make Your Bed: Little Things That Can Change Your Life...And Maybe the World                                                       | misc                                                                                                                               |\n",
       "| The Subtle Art of Not Giving a F*ck: A Counterintuitive Approach to Living a Good Life                                             | misc                                                                                                                               |\n",
       "| Girl, Wash Your Face: Stop Believing the Lies about Who You Are So You Can Become Who You Were Meant to Be                         | misc                                                                                                                               |\n",
       "| Everything Is F*cked: A Book about Hope                                                                                            | misc                                                                                                                               |\n",
       "| Girl, Stop Apologizing: A Shame-Free Plan for Embracing and Achieving Your Goals                                                   | misc                                                                                                                               |\n",
       "| Medical Medium Celery Juice: The Most Powerful Medicine of Our Time Healing Millions Worldwide                                     | misc                                                                                                                               |\n",
       "| Dare to Lead: Brave Work. Tough Conversations. Whole Hearts.                                                                       | misc                                                                                                                               |\n",
       "| You Are a Badass: How to Stop Doubting Your Greatness and Start Living an Awesome Life                                             | misc                                                                                                                               |\n",
       "| Daring Greatly: How the Courage to Be Vulnerable Transforms the Way We Live, Love, Parent, and Lead                                | misc                                                                                                                               |\n",
       "| Five Feet Apart                                                                                                                    | young_adult                                                                                                                        |\n",
       "| The Hate U Give                                                                                                                    | young_adult                                                                                                                        |\n",
       "| Children of Blood and Bone (Legacy of Orïsha Series #1)                                                                            | young_adult                                                                                                                        |\n",
       "| With the Fire on High                                                                                                              | young_adult                                                                                                                        |\n",
       "| On the Come Up                                                                                                                     | young_adult                                                                                                                        |\n",
       "| The Red Scrolls of Magic                                                                                                           | young_adult                                                                                                                        |\n",
       "| Stepsister                                                                                                                         | young_adult                                                                                                                        |\n",
       "| Dear Evan Hansen: The Novel                                                                                                        | young_adult                                                                                                                        |\n",
       "| The Fork, the Witch, and the Worm: Tales from Alagaesia (Volume 1: Eragon)                                                         | young_adult                                                                                                                        |\n",
       "| The Fall of Crazy House                                                                                                            | young_adult                                                                                                                        |\n",
       "\n"
      ],
      "text/plain": [
       "    book_name                                                                                                                              \n",
       "1   The Wonderful Things You Will Be                                                                                                       \n",
       "2   Dragons Love Tacos                                                                                                                     \n",
       "3   I Wish You More                                                                                                                        \n",
       "4   I Love Dad with The Very Hungry Caterpillar                                                                                            \n",
       "5   Grumpy Monkey                                                                                                                          \n",
       "6   What Do You Do with a Chance?                                                                                                          \n",
       "7   Dear Girl,                                                                                                                             \n",
       "8   My Heart                                                                                                                               \n",
       "9   Because I Had a Teacher                                                                                                                \n",
       "10  The Day the Crayons Quit                                                                                                               \n",
       "11  Brawl of the Wild (Dog Man Series #6)                                                                                                  \n",
       "12  The Lightning Thief (Percy Jackson and the Olympians Series #1)                                                                        \n",
       "13  The Meltdown (Diary of a Wimpy Kid Series #13)                                                                                         \n",
       "14  Duel at Araluen (Ranger's Apprentice: The Royal Ranger Series #3)                                                                      \n",
       "15  Harry Potter and the Sorcerer's Stone (Harry Potter Series #1)                                                                         \n",
       "16  Captain Underpants and the Big, Bad Battle of the Bionic Booger Boy, Part 2: The Revenge of the Ridiculous Robo-Boogers (Color Edition)\n",
       "17  The Bad Guys (The Bad Guys Series #1)                                                                                                  \n",
       "18  P.S. I Still Love You (To All the Boys I've Loved Before Series #2)                                                                    \n",
       "19  Ghost (Defenders Track Team Series #1)                                                                                                 \n",
       "20  Tales from a Not-So-Glam TV Star (Dork Diaries Series #7)                                                                              \n",
       "21  Diary of an Awesome Friendly Kid: Rowley Jefferson's Journal                                                                           \n",
       "22  Refugee                                                                                                                                \n",
       "23  Wonder                                                                                                                                 \n",
       "24  Wishtree                                                                                                                               \n",
       "25  Katt vs. Dogg                                                                                                                          \n",
       "26  The First (Endling Series #2)                                                                                                          \n",
       "27  The Creature of the Pines (Unicorn Rescue Society Series #1)                                                                           \n",
       "28  Batting Order                                                                                                                          \n",
       "29  Aru Shah and the Song of Death (Pandava Series #2)                                                                                     \n",
       "30  A Wolf Called Wander                                                                                                                   \n",
       "... ...                                                                                                                                    \n",
       "81  Sapiens: A Brief History of Humankind                                                                                                  \n",
       "82  The Mueller Report: Report on the Investigation into Russian Interference in the 2016 Presidential Election                            \n",
       "83  The Body Keeps the Score: Brain, Mind, and Body in the Healing of Trauma                                                               \n",
       "84  Just Mercy: A Story of Justice and Redemption                                                                                          \n",
       "85  Grit: The Power of Passion and Perseverance                                                                                            \n",
       "86  The Soul of America: The Battle for Our Better Angels                                                                                  \n",
       "87  Indianapolis: The True Story of the Worst Sea Disaster in U.S. Naval History and the Fifty-Year Fight to Exonerate an Innocent Man     \n",
       "88  Outliers: The Story of Success                                                                                                         \n",
       "89  Being Mortal: Medicine and What Matters in the End                                                                                     \n",
       "90  Why We Sleep: Unlocking the Power of Sleep and Dreams                                                                                  \n",
       "91  Stay Sexy & Don't Get Murdered: The Definitive How-to Guide                                                                            \n",
       "92  Make Your Bed: Little Things That Can Change Your Life...And Maybe the World                                                           \n",
       "93  The Subtle Art of Not Giving a F*ck: A Counterintuitive Approach to Living a Good Life                                                 \n",
       "94  Girl, Wash Your Face: Stop Believing the Lies about Who You Are So You Can Become Who You Were Meant to Be                             \n",
       "95  Everything Is F*cked: A Book about Hope                                                                                                \n",
       "96  Girl, Stop Apologizing: A Shame-Free Plan for Embracing and Achieving Your Goals                                                       \n",
       "97  Medical Medium Celery Juice: The Most Powerful Medicine of Our Time Healing Millions Worldwide                                         \n",
       "98  Dare to Lead: Brave Work. Tough Conversations. Whole Hearts.                                                                           \n",
       "99  You Are a Badass: How to Stop Doubting Your Greatness and Start Living an Awesome Life                                                 \n",
       "100 Daring Greatly: How the Courage to Be Vulnerable Transforms the Way We Live, Love, Parent, and Lead                                    \n",
       "101 Five Feet Apart                                                                                                                        \n",
       "102 The Hate U Give                                                                                                                        \n",
       "103 Children of Blood and Bone (Legacy of Orïsha Series #1)                                                                                \n",
       "104 With the Fire on High                                                                                                                  \n",
       "105 On the Come Up                                                                                                                         \n",
       "106 The Red Scrolls of Magic                                                                                                               \n",
       "107 Stepsister                                                                                                                             \n",
       "108 Dear Evan Hansen: The Novel                                                                                                            \n",
       "109 The Fork, the Witch, and the Worm: Tales from Alagaesia (Volume 1: Eragon)                                                             \n",
       "110 The Fall of Crazy House                                                                                                                \n",
       "    genre      \n",
       "1   children   \n",
       "2   children   \n",
       "3   children   \n",
       "4   children   \n",
       "5   children   \n",
       "6   children   \n",
       "7   children   \n",
       "8   children   \n",
       "9   children   \n",
       "10  children   \n",
       "11  children   \n",
       "12  children   \n",
       "13  children   \n",
       "14  children   \n",
       "15  children   \n",
       "16  children   \n",
       "17  children   \n",
       "18  children   \n",
       "19  children   \n",
       "20  children   \n",
       "21  children   \n",
       "22  children   \n",
       "23  children   \n",
       "24  children   \n",
       "25  children   \n",
       "26  children   \n",
       "27  children   \n",
       "28  children   \n",
       "29  children   \n",
       "30  children   \n",
       "... ...        \n",
       "81  non-fiction\n",
       "82  non-fiction\n",
       "83  non-fiction\n",
       "84  non-fiction\n",
       "85  non-fiction\n",
       "86  non-fiction\n",
       "87  non-fiction\n",
       "88  non-fiction\n",
       "89  non-fiction\n",
       "90  non-fiction\n",
       "91  misc       \n",
       "92  misc       \n",
       "93  misc       \n",
       "94  misc       \n",
       "95  misc       \n",
       "96  misc       \n",
       "97  misc       \n",
       "98  misc       \n",
       "99  misc       \n",
       "100 misc       \n",
       "101 young_adult\n",
       "102 young_adult\n",
       "103 young_adult\n",
       "104 young_adult\n",
       "105 young_adult\n",
       "106 young_adult\n",
       "107 young_adult\n",
       "108 young_adult\n",
       "109 young_adult\n",
       "110 young_adult"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "nyt_tibble"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### EDA "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 15,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "0"
      ],
      "text/latex": [
       "0"
      ],
      "text/markdown": [
       "0"
      ],
      "text/plain": [
       "[1] 0"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "0"
      ],
      "text/latex": [
       "0"
      ],
      "text/markdown": [
       "0"
      ],
      "text/plain": [
       "[1] 0"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "0"
      ],
      "text/latex": [
       "0"
      ],
      "text/markdown": [
       "0"
      ],
      "text/plain": [
       "[1] 0"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "0"
      ],
      "text/latex": [
       "0"
      ],
      "text/markdown": [
       "0"
      ],
      "text/plain": [
       "[1] 0"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "0"
      ],
      "text/latex": [
       "0"
      ],
      "text/markdown": [
       "0"
      ],
      "text/plain": [
       "[1] 0"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "0"
      ],
      "text/latex": [
       "0"
      ],
      "text/markdown": [
       "0"
      ],
      "text/plain": [
       "[1] 0"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "0"
      ],
      "text/latex": [
       "0"
      ],
      "text/markdown": [
       "0"
      ],
      "text/plain": [
       "[1] 0"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# 1. Are there any na values in the data frame ?\n",
    "#checking column wise\n",
    "is.na(amazon_books$book_rank) %>% sum()\n",
    "is.na(amazon_books$book_name) %>% sum()\n",
    "is.na(amazon_books$author) %>% sum()\n",
    "is.na(amazon_books$stars) %>% sum()\n",
    "is.na(amazon_books$reviews) %>% sum()\n",
    "is.na(amazon_books$book_type) %>% sum()\n",
    "is.na(amazon_books$price) %>% sum()\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 17,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "100"
      ],
      "text/latex": [
       "100"
      ],
      "text/markdown": [
       "100"
      ],
      "text/plain": [
       "[1] 100"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# 2. Are there any missing values(NAs) in the data frame ?\n",
    "\n",
    "complete.cases(amazon_books) %>% sum()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 21,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>book_rank</th><th scope=col>book_name</th><th scope=col>author</th><th scope=col>stars</th><th scope=col>reviews</th><th scope=col>book_type</th><th scope=col>price</th></tr></thead>\n",
       "<tbody>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllll}\n",
       " book\\_rank & book\\_name & author & stars & reviews & book\\_type & price\\\\\n",
       "\\hline\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| book_rank | book_name | author | stars | reviews | book_type | price |\n",
       "|---|---|---|---|---|---|---|\n",
       "\n"
      ],
      "text/plain": [
       "     book_rank book_name author stars reviews book_type price"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>book_rank</th><th scope=col>book_name</th><th scope=col>author</th><th scope=col>stars</th><th scope=col>reviews</th><th scope=col>book_type</th><th scope=col>price</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>26                                                </td><td>The Instant Pot Electric Pressure Cooker Cookbook </td><td>\n",
       "                4.0 out of 5 stars\n",
       "            </td><td>0                                                 </td><td>0                                                 </td><td>                                                  </td><td>12.62                                             </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllll}\n",
       " book\\_rank & book\\_name & author & stars & reviews & book\\_type & price\\\\\n",
       "\\hline\n",
       "\t 26                                                 & The Instant Pot Electric Pressure Cooker Cookbook  & \n",
       "                4.0 out of 5 stars\n",
       "             & 0                                                  & 0                                                  &                                                    & 12.62                                             \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| book_rank | book_name | author | stars | reviews | book_type | price |\n",
       "|---|---|---|---|---|---|---|\n",
       "| 26                                                 | The Instant Pot Electric Pressure Cooker Cookbook  | \n",
       "                4.0 out of 5 stars\n",
       "             | 0                                                  | 0                                                  |                                                    | 12.62                                              |\n",
       "\n"
      ],
      "text/plain": [
       "  book_rank book_name                                        \n",
       "1 26        The Instant Pot Electric Pressure Cooker Cookbook\n",
       "  author                                             stars reviews book_type\n",
       "1 \\n                4.0 out of 5 stars\\n             0     0                \n",
       "  price\n",
       "1 12.62"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>book_rank</th><th scope=col>book_name</th><th scope=col>author</th><th scope=col>stars</th><th scope=col>reviews</th><th scope=col>book_type</th><th scope=col>price</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>26                                                </td><td>The Instant Pot Electric Pressure Cooker Cookbook </td><td>\n",
       "                4.0 out of 5 stars\n",
       "            </td><td>4                                                 </td><td>0                                                 </td><td>                                                  </td><td>12.62                                             </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllll}\n",
       " book\\_rank & book\\_name & author & stars & reviews & book\\_type & price\\\\\n",
       "\\hline\n",
       "\t 26                                                 & The Instant Pot Electric Pressure Cooker Cookbook  & \n",
       "                4.0 out of 5 stars\n",
       "             & 4                                                  & 0                                                  &                                                    & 12.62                                             \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| book_rank | book_name | author | stars | reviews | book_type | price |\n",
       "|---|---|---|---|---|---|---|\n",
       "| 26                                                 | The Instant Pot Electric Pressure Cooker Cookbook  | \n",
       "                4.0 out of 5 stars\n",
       "             | 4                                                  | 0                                                  |                                                    | 12.62                                              |\n",
       "\n"
      ],
      "text/plain": [
       "  book_rank book_name                                        \n",
       "1 26        The Instant Pot Electric Pressure Cooker Cookbook\n",
       "  author                                             stars reviews book_type\n",
       "1 \\n                4.0 out of 5 stars\\n             4     0                \n",
       "  price\n",
       "1 12.62"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>book_rank</th><th scope=col>book_name</th><th scope=col>author</th><th scope=col>stars</th><th scope=col>reviews</th><th scope=col>book_type</th><th scope=col>price</th></tr></thead>\n",
       "<tbody>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllll}\n",
       " book\\_rank & book\\_name & author & stars & reviews & book\\_type & price\\\\\n",
       "\\hline\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| book_rank | book_name | author | stars | reviews | book_type | price |\n",
       "|---|---|---|---|---|---|---|\n",
       "\n"
      ],
      "text/plain": [
       "     book_rank book_name author stars reviews book_type price"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>book_rank</th><th scope=col>book_name</th><th scope=col>author</th><th scope=col>stars</th><th scope=col>reviews</th><th scope=col>book_type</th><th scope=col>price</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>29                                                                       </td><td>P is for Potty! (Sesame Street) (Lift-the-Flap)                          </td><td>                                                                         </td><td>4.4                                                                      </td><td>1581                                                                     </td><td>Board book                                                               </td><td> 5.99                                                                    </td></tr>\n",
       "\t<tr><td>31                                                                       </td><td>Lettering and Modern Calligraphy                                         </td><td>                                                                         </td><td>4.3                                                                      </td><td> 869                                                                     </td><td>Paperback                                                                </td><td> 6.02                                                                    </td></tr>\n",
       "\t<tr><td>32                                                                       </td><td>Publication Manual of the American Psychological Association, 6th Edition</td><td>                                                                         </td><td>4.3                                                                      </td><td>4612                                                                     </td><td>Paperback                                                                </td><td>27.99                                                                    </td></tr>\n",
       "\t<tr><td>41                                                                       </td><td>Instant Pot Pressure Cooker Cookbook                                     </td><td>                                                                         </td><td>4.5                                                                      </td><td>2149                                                                     </td><td>Paperback                                                                </td><td>12.59                                                                    </td></tr>\n",
       "\t<tr><td>54                                                                       </td><td>The Whole30                                                              </td><td>                                                                         </td><td>4.6                                                                      </td><td>3474                                                                     </td><td>Hardcover                                                                </td><td>17.80                                                                    </td></tr>\n",
       "\t<tr><td>59                                                                       </td><td>Brown Bear, Brown Bear, What Do You See?                                 </td><td>                                                                         </td><td>4.8                                                                      </td><td>3027                                                                     </td><td>Board book                                                               </td><td> 7.99                                                                    </td></tr>\n",
       "\t<tr><td>68                                                                       </td><td>The Care and Keeping of You                                              </td><td>                                                                         </td><td>4.8                                                                      </td><td>2830                                                                     </td><td>Paperback                                                                </td><td> 8.89                                                                    </td></tr>\n",
       "\t<tr><td>95                                                                       </td><td>The Body Keeps the Score                                                 </td><td>                                                                         </td><td>4.8                                                                      </td><td>1979                                                                     </td><td>Paperback                                                                </td><td>10.80                                                                    </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllll}\n",
       " book\\_rank & book\\_name & author & stars & reviews & book\\_type & price\\\\\n",
       "\\hline\n",
       "\t 29                                                                        & P is for Potty! (Sesame Street) (Lift-the-Flap)                           &                                                                           & 4.4                                                                       & 1581                                                                      & Board book                                                                &  5.99                                                                    \\\\\n",
       "\t 31                                                                        & Lettering and Modern Calligraphy                                          &                                                                           & 4.3                                                                       &  869                                                                      & Paperback                                                                 &  6.02                                                                    \\\\\n",
       "\t 32                                                                        & Publication Manual of the American Psychological Association, 6th Edition &                                                                           & 4.3                                                                       & 4612                                                                      & Paperback                                                                 & 27.99                                                                    \\\\\n",
       "\t 41                                                                        & Instant Pot Pressure Cooker Cookbook                                      &                                                                           & 4.5                                                                       & 2149                                                                      & Paperback                                                                 & 12.59                                                                    \\\\\n",
       "\t 54                                                                        & The Whole30                                                               &                                                                           & 4.6                                                                       & 3474                                                                      & Hardcover                                                                 & 17.80                                                                    \\\\\n",
       "\t 59                                                                        & Brown Bear, Brown Bear, What Do You See?                                  &                                                                           & 4.8                                                                       & 3027                                                                      & Board book                                                                &  7.99                                                                    \\\\\n",
       "\t 68                                                                        & The Care and Keeping of You                                               &                                                                           & 4.8                                                                       & 2830                                                                      & Paperback                                                                 &  8.89                                                                    \\\\\n",
       "\t 95                                                                        & The Body Keeps the Score                                                  &                                                                           & 4.8                                                                       & 1979                                                                      & Paperback                                                                 & 10.80                                                                    \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| book_rank | book_name | author | stars | reviews | book_type | price |\n",
       "|---|---|---|---|---|---|---|\n",
       "| 29                                                                        | P is for Potty! (Sesame Street) (Lift-the-Flap)                           |                                                                           | 4.4                                                                       | 1581                                                                      | Board book                                                                |  5.99                                                                     |\n",
       "| 31                                                                        | Lettering and Modern Calligraphy                                          |                                                                           | 4.3                                                                       |  869                                                                      | Paperback                                                                 |  6.02                                                                     |\n",
       "| 32                                                                        | Publication Manual of the American Psychological Association, 6th Edition |                                                                           | 4.3                                                                       | 4612                                                                      | Paperback                                                                 | 27.99                                                                     |\n",
       "| 41                                                                        | Instant Pot Pressure Cooker Cookbook                                      |                                                                           | 4.5                                                                       | 2149                                                                      | Paperback                                                                 | 12.59                                                                     |\n",
       "| 54                                                                        | The Whole30                                                               |                                                                           | 4.6                                                                       | 3474                                                                      | Hardcover                                                                 | 17.80                                                                     |\n",
       "| 59                                                                        | Brown Bear, Brown Bear, What Do You See?                                  |                                                                           | 4.8                                                                       | 3027                                                                      | Board book                                                                |  7.99                                                                     |\n",
       "| 68                                                                        | The Care and Keeping of You                                               |                                                                           | 4.8                                                                       | 2830                                                                      | Paperback                                                                 |  8.89                                                                     |\n",
       "| 95                                                                        | The Body Keeps the Score                                                  |                                                                           | 4.8                                                                       | 1979                                                                      | Paperback                                                                 | 10.80                                                                     |\n",
       "\n"
      ],
      "text/plain": [
       "  book_rank\n",
       "1 29       \n",
       "2 31       \n",
       "3 32       \n",
       "4 41       \n",
       "5 54       \n",
       "6 59       \n",
       "7 68       \n",
       "8 95       \n",
       "  book_name                                                                \n",
       "1 P is for Potty! (Sesame Street) (Lift-the-Flap)                          \n",
       "2 Lettering and Modern Calligraphy                                         \n",
       "3 Publication Manual of the American Psychological Association, 6th Edition\n",
       "4 Instant Pot Pressure Cooker Cookbook                                     \n",
       "5 The Whole30                                                              \n",
       "6 Brown Bear, Brown Bear, What Do You See?                                 \n",
       "7 The Care and Keeping of You                                              \n",
       "8 The Body Keeps the Score                                                 \n",
       "  author stars reviews book_type  price\n",
       "1        4.4   1581    Board book  5.99\n",
       "2        4.3    869    Paperback   6.02\n",
       "3        4.3   4612    Paperback  27.99\n",
       "4        4.5   2149    Paperback  12.59\n",
       "5        4.6   3474    Hardcover  17.80\n",
       "6        4.8   3027    Board book  7.99\n",
       "7        4.8   2830    Paperback   8.89\n",
       "8        4.8   1979    Paperback  10.80"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>book_rank</th><th scope=col>book_name</th><th scope=col>author</th><th scope=col>stars</th><th scope=col>reviews</th><th scope=col>book_type</th><th scope=col>price</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>26                                                </td><td>The Instant Pot Electric Pressure Cooker Cookbook </td><td>\n",
       "                4.0 out of 5 stars\n",
       "            </td><td>4                                                 </td><td>2810                                              </td><td>                                                  </td><td>12.62                                             </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllll}\n",
       " book\\_rank & book\\_name & author & stars & reviews & book\\_type & price\\\\\n",
       "\\hline\n",
       "\t 26                                                 & The Instant Pot Electric Pressure Cooker Cookbook  & \n",
       "                4.0 out of 5 stars\n",
       "             & 4                                                  & 2810                                               &                                                    & 12.62                                             \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| book_rank | book_name | author | stars | reviews | book_type | price |\n",
       "|---|---|---|---|---|---|---|\n",
       "| 26                                                 | The Instant Pot Electric Pressure Cooker Cookbook  | \n",
       "                4.0 out of 5 stars\n",
       "             | 4                                                  | 2810                                               |                                                    | 12.62                                              |\n",
       "\n"
      ],
      "text/plain": [
       "  book_rank book_name                                        \n",
       "1 26        The Instant Pot Electric Pressure Cooker Cookbook\n",
       "  author                                             stars reviews book_type\n",
       "1 \\n                4.0 out of 5 stars\\n             4     2810             \n",
       "  price\n",
       "1 12.62"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>book_rank</th><th scope=col>book_name</th><th scope=col>author</th><th scope=col>stars</th><th scope=col>reviews</th><th scope=col>book_type</th><th scope=col>price</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>26                                               </td><td>The Instant Pot Electric Pressure Cooker Cookbook</td><td>Instant Pot CookBook                             </td><td>4                                                </td><td>2810                                             </td><td>                                                 </td><td>12.62                                            </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllll}\n",
       " book\\_rank & book\\_name & author & stars & reviews & book\\_type & price\\\\\n",
       "\\hline\n",
       "\t 26                                                & The Instant Pot Electric Pressure Cooker Cookbook & Instant Pot CookBook                              & 4                                                 & 2810                                              &                                                   & 12.62                                            \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| book_rank | book_name | author | stars | reviews | book_type | price |\n",
       "|---|---|---|---|---|---|---|\n",
       "| 26                                                | The Instant Pot Electric Pressure Cooker Cookbook | Instant Pot CookBook                              | 4                                                 | 2810                                              |                                                   | 12.62                                             |\n",
       "\n"
      ],
      "text/plain": [
       "  book_rank book_name                                        \n",
       "1 26        The Instant Pot Electric Pressure Cooker Cookbook\n",
       "  author               stars reviews book_type price\n",
       "1 Instant Pot CookBook 4     2810              12.62"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# 3. Update a few missing values manually\n",
    "\n",
    "#Deal with numeric values-----------------------\n",
    "\n",
    "amazon_books[which(amazon_books$price == 0),]\n",
    "\n",
    "#update PRICE values manually which was not captured by webscraping\n",
    "\n",
    "amazon_books$price[88] <- 3.79\n",
    "amazon_books$price[26] <- 12.62\n",
    "amazon_books$price[41] <- 12.59\n",
    "\n",
    "#STARS\n",
    "amazon_books[which(amazon_books$stars == 0),]\n",
    "amazon_books$stars[26] <- 4.0\n",
    "amazon_books$stars[41] <- 4.5\n",
    "\n",
    "#REVIEWS\n",
    "\n",
    "amazon_books[which(amazon_books$reviews == 0),]\n",
    "amazon_books$reviews[26] <- 2810\n",
    "amazon_books$reviews[41] <- 2149\n",
    "\n",
    "\n",
    "#deal with string values-----------------------------\n",
    "# BOOK NAME \n",
    "amazon_books[which(amazon_books$book_name == \"\"),]\n",
    "\n",
    "\n",
    "# AUTHOR\n",
    "amazon_books[which(amazon_books$author == \"\"),]\n",
    "\n",
    "\n",
    "amazon_books$author[29] <- \"Naomi Kleinberg\"\n",
    "amazon_books$author[31] <- \"Paper Peony Press\"\n",
    "amazon_books$author[32] <- \"6th Edition Publication Manual of the American Psychological Association (Author)\n",
    "\"\n",
    "amazon_books$author[54] <- \"Melissa Hartwig;Dallas Hartwig\"\n",
    "amazon_books$author[59] <- \"Bill Martin Jr.\"\n",
    "amazon_books$author[68] <- \"Valorie Schaefer\"\n",
    "amazon_books$author[95] <- \"Bessel van der Kolk M.D.\"\n",
    "\n",
    "amazon_books[which(str_detect(amazon_books$author,\"4\")),]\n",
    "\n",
    "amazon_books$author[26] <- \"Instant Pot CookBook\"\n",
    "amazon_books$author[41] <- \"Instant Pot CookBook\"\n",
    "\n",
    "# TYPE\n",
    "amazon_books[which(amazon_books$book_type == \"\"),]\n",
    "\n",
    "amazon_books$book_type[26] <- \"\"\n",
    "amazon_books$book_type[41] <- \"Paperback\"\n"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "###  Analytics & Insights on top 100 books sold by Amazon\n",
    "\n",
    "Some of the questions we can answer are -\n",
    "\n",
    "1. Which books got the highest star ratings ?\n",
    "2. Which books got the max num of reviews ?\n",
    "3. Which book got the max star rating and reviews ?\n",
    "4. Which author's books has featured in the top 100 more than once ?\n",
    "5. Which type of book has sold a lot ? (paperback or hardcover)\n",
    "6. What is the price range, that is most present in the top 100 ?\n",
    "7. What is the price range seen in books on top 10, 11-20 .... so on till 90-100 ?\n",
    "8. which are the common books in the NYT list and Amazon top 100 books list ?\n",
    "9. Genre of books that are in the common list ?\n",
    "\n",
    "\n",
    "More questions which I would have liked to solve but didnt get credible data to verify for ?\n",
    "\n",
    "1. How many authors were women in the top 100 bestselling books list ?\n",
    "2. Genre of books in the top 100 ?\n",
    "3. Age-group of authors who made it to the top 100 books list.\n",
    "4. Ethnic origins of authors.\n",
    "5. Book Themes popular in 2018.\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 29,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>book_rank</th><th scope=col>book_name</th><th scope=col>author</th><th scope=col>stars</th><th scope=col>reviews</th><th scope=col>book_type</th><th scope=col>price</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td> 1                                                                                                                            </td><td>Becoming                                                                                                                      </td><td>Michelle Obama                                                                                                                </td><td>4.9                                                                                                                           </td><td>14110                                                                                                                         </td><td>Hardcover                                                                                                                     </td><td>19.50                                                                                                                         </td></tr>\n",
       "\t<tr><td> 6                                                                                                                                  </td><td>Last Week Tonight with John Oliver Presents A Day in the Life of Marlon Bundo (Better Bundo Book, LGBT Children&lt;U+0092&gt;s Book)</td><td><span style=white-space:pre-wrap>Jill Twiss    </span>                                                                              </td><td>4.9                                                                                                                                 </td><td> 8506                                                                                                                               </td><td>Hardcover                                                                                                                           </td><td>10.33                                                                                                                               </td></tr>\n",
       "\t<tr><td>16                                                                                                                            </td><td>Dog Man                                                                                                                       </td><td>Dav Pilkey                                                                                                                    </td><td>4.9                                                                                                                           </td><td>  660                                                                                                                         </td><td>Hardcover                                                                                                                     </td><td> 9.85                                                                                                                         </td></tr>\n",
       "\t<tr><td>35                                                                                                                            </td><td>Dog Man and Cat Kid                                                                                                           </td><td>Dav Pilkey                                                                                                                    </td><td>4.9                                                                                                                           </td><td>  707                                                                                                                         </td><td>Hardcover                                                                                                                     </td><td> 8.38                                                                                                                         </td></tr>\n",
       "\t<tr><td>40                                                                                                                            </td><td>Dog Man                                                                                                                       </td><td>Dav Pilkey                                                                                                                    </td><td>4.9                                                                                                                           </td><td>  677                                                                                                                         </td><td>Hardcover                                                                                                                     </td><td> 6.35                                                                                                                         </td></tr>\n",
       "\t<tr><td>52                                                                                                                            </td><td>Wonder                                                                                                                        </td><td>R. J. Palacio                                                                                                                 </td><td>4.9                                                                                                                           </td><td>13303                                                                                                                         </td><td>Hardcover                                                                                                                     </td><td>12.72                                                                                                                         </td></tr>\n",
       "\t<tr><td>56                                                                                                                            </td><td>Everybody, Always                                                                                                             </td><td>Bob Goff                                                                                                                      </td><td>4.9                                                                                                                           </td><td> 1144                                                                                                                         </td><td>Paperback                                                                                                                     </td><td> 9.33                                                                                                                         </td></tr>\n",
       "\t<tr><td>77                                                                                                                            </td><td>Simply Keto                                                                                                                   </td><td>Suzanne Ryan                                                                                                                  </td><td>4.9                                                                                                                           </td><td> 1352                                                                                                                         </td><td>Paperback                                                                                                                     </td><td>22.74                                                                                                                         </td></tr>\n",
       "\t<tr><td>80                                                                                                                            </td><td>The Russia Hoax                                                                                                               </td><td>Gregg Jarrett                                                                                                                 </td><td>4.9                                                                                                                           </td><td> 1817                                                                                                                         </td><td>Hardcover                                                                                                                     </td><td>12.00                                                                                                                         </td></tr>\n",
       "\t<tr><td>13                                                                                                                            </td><td>Diary of a Wimpy Kid #13                                                                                                      </td><td>Jeff Kinney                                                                                                                   </td><td>4.8                                                                                                                           </td><td>  632                                                                                                                         </td><td>Hardcover                                                                                                                     </td><td>11.51                                                                                                                         </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllll}\n",
       " book\\_rank & book\\_name & author & stars & reviews & book\\_type & price\\\\\n",
       "\\hline\n",
       "\t  1                                                                                                                             & Becoming                                                                                                                       & Michelle Obama                                                                                                                 & 4.9                                                                                                                            & 14110                                                                                                                          & Hardcover                                                                                                                      & 19.50                                                                                                                         \\\\\n",
       "\t  6                                                                                                                             & Last Week Tonight with John Oliver Presents A Day in the Life of Marlon Bundo (Better Bundo Book, LGBT Children<U+0092>s Book) & Jill Twiss                                                                                                                     & 4.9                                                                                                                            &  8506                                                                                                                          & Hardcover                                                                                                                      & 10.33                                                                                                                         \\\\\n",
       "\t 16                                                                                                                             & Dog Man                                                                                                                        & Dav Pilkey                                                                                                                     & 4.9                                                                                                                            &   660                                                                                                                          & Hardcover                                                                                                                      &  9.85                                                                                                                         \\\\\n",
       "\t 35                                                                                                                             & Dog Man and Cat Kid                                                                                                            & Dav Pilkey                                                                                                                     & 4.9                                                                                                                            &   707                                                                                                                          & Hardcover                                                                                                                      &  8.38                                                                                                                         \\\\\n",
       "\t 40                                                                                                                             & Dog Man                                                                                                                        & Dav Pilkey                                                                                                                     & 4.9                                                                                                                            &   677                                                                                                                          & Hardcover                                                                                                                      &  6.35                                                                                                                         \\\\\n",
       "\t 52                                                                                                                             & Wonder                                                                                                                         & R. J. Palacio                                                                                                                  & 4.9                                                                                                                            & 13303                                                                                                                          & Hardcover                                                                                                                      & 12.72                                                                                                                         \\\\\n",
       "\t 56                                                                                                                             & Everybody, Always                                                                                                              & Bob Goff                                                                                                                       & 4.9                                                                                                                            &  1144                                                                                                                          & Paperback                                                                                                                      &  9.33                                                                                                                         \\\\\n",
       "\t 77                                                                                                                             & Simply Keto                                                                                                                    & Suzanne Ryan                                                                                                                   & 4.9                                                                                                                            &  1352                                                                                                                          & Paperback                                                                                                                      & 22.74                                                                                                                         \\\\\n",
       "\t 80                                                                                                                             & The Russia Hoax                                                                                                                & Gregg Jarrett                                                                                                                  & 4.9                                                                                                                            &  1817                                                                                                                          & Hardcover                                                                                                                      & 12.00                                                                                                                         \\\\\n",
       "\t 13                                                                                                                               & Diary of a Wimpy Kid \\#13                                                                                                       & Jeff Kinney                                                                                                                      & 4.8                                                                                                                              &   632                                                                                                                            & Hardcover                                                                                                                        & 11.51                                                                                                                           \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| book_rank | book_name | author | stars | reviews | book_type | price |\n",
       "|---|---|---|---|---|---|---|\n",
       "|  1                                                                                                                             | Becoming                                                                                                                       | Michelle Obama                                                                                                                 | 4.9                                                                                                                            | 14110                                                                                                                          | Hardcover                                                                                                                      | 19.50                                                                                                                          |\n",
       "|  6                                                                                                                             | Last Week Tonight with John Oliver Presents A Day in the Life of Marlon Bundo (Better Bundo Book, LGBT Children<U+0092>s Book) | Jill Twiss                                                                                                                     | 4.9                                                                                                                            |  8506                                                                                                                          | Hardcover                                                                                                                      | 10.33                                                                                                                          |\n",
       "| 16                                                                                                                             | Dog Man                                                                                                                        | Dav Pilkey                                                                                                                     | 4.9                                                                                                                            |   660                                                                                                                          | Hardcover                                                                                                                      |  9.85                                                                                                                          |\n",
       "| 35                                                                                                                             | Dog Man and Cat Kid                                                                                                            | Dav Pilkey                                                                                                                     | 4.9                                                                                                                            |   707                                                                                                                          | Hardcover                                                                                                                      |  8.38                                                                                                                          |\n",
       "| 40                                                                                                                             | Dog Man                                                                                                                        | Dav Pilkey                                                                                                                     | 4.9                                                                                                                            |   677                                                                                                                          | Hardcover                                                                                                                      |  6.35                                                                                                                          |\n",
       "| 52                                                                                                                             | Wonder                                                                                                                         | R. J. Palacio                                                                                                                  | 4.9                                                                                                                            | 13303                                                                                                                          | Hardcover                                                                                                                      | 12.72                                                                                                                          |\n",
       "| 56                                                                                                                             | Everybody, Always                                                                                                              | Bob Goff                                                                                                                       | 4.9                                                                                                                            |  1144                                                                                                                          | Paperback                                                                                                                      |  9.33                                                                                                                          |\n",
       "| 77                                                                                                                             | Simply Keto                                                                                                                    | Suzanne Ryan                                                                                                                   | 4.9                                                                                                                            |  1352                                                                                                                          | Paperback                                                                                                                      | 22.74                                                                                                                          |\n",
       "| 80                                                                                                                             | The Russia Hoax                                                                                                                | Gregg Jarrett                                                                                                                  | 4.9                                                                                                                            |  1817                                                                                                                          | Hardcover                                                                                                                      | 12.00                                                                                                                          |\n",
       "| 13                                                                                                                             | Diary of a Wimpy Kid #13                                                                                                       | Jeff Kinney                                                                                                                    | 4.8                                                                                                                            |   632                                                                                                                          | Hardcover                                                                                                                      | 11.51                                                                                                                          |\n",
       "\n"
      ],
      "text/plain": [
       "   book_rank\n",
       "1   1       \n",
       "2   6       \n",
       "3  16       \n",
       "4  35       \n",
       "5  40       \n",
       "6  52       \n",
       "7  56       \n",
       "8  77       \n",
       "9  80       \n",
       "10 13       \n",
       "   book_name                                                                                                                     \n",
       "1  Becoming                                                                                                                      \n",
       "2  Last Week Tonight with John Oliver Presents A Day in the Life of Marlon Bundo (Better Bundo Book, LGBT Children<U+0092>s Book)\n",
       "3  Dog Man                                                                                                                       \n",
       "4  Dog Man and Cat Kid                                                                                                           \n",
       "5  Dog Man                                                                                                                       \n",
       "6  Wonder                                                                                                                        \n",
       "7  Everybody, Always                                                                                                             \n",
       "8  Simply Keto                                                                                                                   \n",
       "9  The Russia Hoax                                                                                                               \n",
       "10 Diary of a Wimpy Kid #13                                                                                                      \n",
       "   author         stars reviews book_type price\n",
       "1  Michelle Obama 4.9   14110   Hardcover 19.50\n",
       "2  Jill Twiss     4.9    8506   Hardcover 10.33\n",
       "3  Dav Pilkey     4.9     660   Hardcover  9.85\n",
       "4  Dav Pilkey     4.9     707   Hardcover  8.38\n",
       "5  Dav Pilkey     4.9     677   Hardcover  6.35\n",
       "6  R. J. Palacio  4.9   13303   Hardcover 12.72\n",
       "7  Bob Goff       4.9    1144   Paperback  9.33\n",
       "8  Suzanne Ryan   4.9    1352   Paperback 22.74\n",
       "9  Gregg Jarrett  4.9    1817   Hardcover 12.00\n",
       "10 Jeff Kinney    4.8     632   Hardcover 11.51"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# 1. Which book got the max star rating ? \n",
    "top_stars <- head(amazon_books[order(-amazon_books$stars),],10)\n",
    "top_stars\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 31,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>book_rank</th><th scope=col>book_name</th><th scope=col>author</th><th scope=col>stars</th><th scope=col>reviews</th><th scope=col>book_type</th><th scope=col>price</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>60                                   </td><td>Beneath a Scarlet Sky                </td><td>Mark Sullivan                        </td><td>4.7                                  </td><td>25640                                </td><td>Paperback                            </td><td>11.99                                </td></tr>\n",
       "\t<tr><td>48                                   </td><td>Ready Player One                     </td><td>Ernest Cline                         </td><td>4.6                                  </td><td>18911                                </td><td>Paperback                            </td><td>12.51                                </td></tr>\n",
       "\t<tr><td>14                                   </td><td>The 5 Love Languages                 </td><td>Gary Chapman                         </td><td>4.8                                  </td><td>14526                                </td><td>Paperback                            </td><td> 9.59                                </td></tr>\n",
       "\t<tr><td>92                                   </td><td>The Handmaid's Tale                  </td><td>Margaret Atwood                      </td><td>4.1                                  </td><td>14510                                </td><td>Paperback                            </td><td> 9.49                                </td></tr>\n",
       "\t<tr><td>83                                   </td><td>The Life-Changing Magic of Tidying Up</td><td>Marie Kondo                          </td><td>4.4                                  </td><td>14353                                </td><td>Hardcover                            </td><td> 9.69                                </td></tr>\n",
       "\t<tr><td> 1                                   </td><td>Becoming                             </td><td>Michelle Obama                       </td><td>4.9                                  </td><td>14110                                </td><td>Hardcover                            </td><td>19.50                                </td></tr>\n",
       "\t<tr><td>70                                   </td><td>Where the Crawdads Sing              </td><td>Delia Owens                          </td><td>4.8                                  </td><td>13562                                </td><td>Hardcover                            </td><td>15.60                                </td></tr>\n",
       "\t<tr><td>52                                   </td><td>Wonder                               </td><td>R. J. Palacio                        </td><td>4.9                                  </td><td>13303                                </td><td>Hardcover                            </td><td>12.72                                </td></tr>\n",
       "\t<tr><td>51                                   </td><td>The Alchemist                        </td><td>Paulo Coelho                         </td><td>4.6                                  </td><td>12489                                </td><td>Paperback                            </td><td>10.54                                </td></tr>\n",
       "\t<tr><td>53                                   </td><td>To Kill a Mockingbird                </td><td>Harper Lee                           </td><td>4.7                                  </td><td>10643                                </td><td>Paperback                            </td><td> 7.19                                </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllll}\n",
       " book\\_rank & book\\_name & author & stars & reviews & book\\_type & price\\\\\n",
       "\\hline\n",
       "\t 60                                    & Beneath a Scarlet Sky                 & Mark Sullivan                         & 4.7                                   & 25640                                 & Paperback                             & 11.99                                \\\\\n",
       "\t 48                                    & Ready Player One                      & Ernest Cline                          & 4.6                                   & 18911                                 & Paperback                             & 12.51                                \\\\\n",
       "\t 14                                    & The 5 Love Languages                  & Gary Chapman                          & 4.8                                   & 14526                                 & Paperback                             &  9.59                                \\\\\n",
       "\t 92                                    & The Handmaid's Tale                   & Margaret Atwood                       & 4.1                                   & 14510                                 & Paperback                             &  9.49                                \\\\\n",
       "\t 83                                    & The Life-Changing Magic of Tidying Up & Marie Kondo                           & 4.4                                   & 14353                                 & Hardcover                             &  9.69                                \\\\\n",
       "\t  1                                    & Becoming                              & Michelle Obama                        & 4.9                                   & 14110                                 & Hardcover                             & 19.50                                \\\\\n",
       "\t 70                                    & Where the Crawdads Sing               & Delia Owens                           & 4.8                                   & 13562                                 & Hardcover                             & 15.60                                \\\\\n",
       "\t 52                                    & Wonder                                & R. J. Palacio                         & 4.9                                   & 13303                                 & Hardcover                             & 12.72                                \\\\\n",
       "\t 51                                    & The Alchemist                         & Paulo Coelho                          & 4.6                                   & 12489                                 & Paperback                             & 10.54                                \\\\\n",
       "\t 53                                    & To Kill a Mockingbird                 & Harper Lee                            & 4.7                                   & 10643                                 & Paperback                             &  7.19                                \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| book_rank | book_name | author | stars | reviews | book_type | price |\n",
       "|---|---|---|---|---|---|---|\n",
       "| 60                                    | Beneath a Scarlet Sky                 | Mark Sullivan                         | 4.7                                   | 25640                                 | Paperback                             | 11.99                                 |\n",
       "| 48                                    | Ready Player One                      | Ernest Cline                          | 4.6                                   | 18911                                 | Paperback                             | 12.51                                 |\n",
       "| 14                                    | The 5 Love Languages                  | Gary Chapman                          | 4.8                                   | 14526                                 | Paperback                             |  9.59                                 |\n",
       "| 92                                    | The Handmaid's Tale                   | Margaret Atwood                       | 4.1                                   | 14510                                 | Paperback                             |  9.49                                 |\n",
       "| 83                                    | The Life-Changing Magic of Tidying Up | Marie Kondo                           | 4.4                                   | 14353                                 | Hardcover                             |  9.69                                 |\n",
       "|  1                                    | Becoming                              | Michelle Obama                        | 4.9                                   | 14110                                 | Hardcover                             | 19.50                                 |\n",
       "| 70                                    | Where the Crawdads Sing               | Delia Owens                           | 4.8                                   | 13562                                 | Hardcover                             | 15.60                                 |\n",
       "| 52                                    | Wonder                                | R. J. Palacio                         | 4.9                                   | 13303                                 | Hardcover                             | 12.72                                 |\n",
       "| 51                                    | The Alchemist                         | Paulo Coelho                          | 4.6                                   | 12489                                 | Paperback                             | 10.54                                 |\n",
       "| 53                                    | To Kill a Mockingbird                 | Harper Lee                            | 4.7                                   | 10643                                 | Paperback                             |  7.19                                 |\n",
       "\n"
      ],
      "text/plain": [
       "   book_rank book_name                             author          stars\n",
       "1  60        Beneath a Scarlet Sky                 Mark Sullivan   4.7  \n",
       "2  48        Ready Player One                      Ernest Cline    4.6  \n",
       "3  14        The 5 Love Languages                  Gary Chapman    4.8  \n",
       "4  92        The Handmaid's Tale                   Margaret Atwood 4.1  \n",
       "5  83        The Life-Changing Magic of Tidying Up Marie Kondo     4.4  \n",
       "6   1        Becoming                              Michelle Obama  4.9  \n",
       "7  70        Where the Crawdads Sing               Delia Owens     4.8  \n",
       "8  52        Wonder                                R. J. Palacio   4.9  \n",
       "9  51        The Alchemist                         Paulo Coelho    4.6  \n",
       "10 53        To Kill a Mockingbird                 Harper Lee      4.7  \n",
       "   reviews book_type price\n",
       "1  25640   Paperback 11.99\n",
       "2  18911   Paperback 12.51\n",
       "3  14526   Paperback  9.59\n",
       "4  14510   Paperback  9.49\n",
       "5  14353   Hardcover  9.69\n",
       "6  14110   Hardcover 19.50\n",
       "7  13562   Hardcover 15.60\n",
       "8  13303   Hardcover 12.72\n",
       "9  12489   Paperback 10.54\n",
       "10 10643   Paperback  7.19"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# 2. Which book got the max reviews ?\n",
    "max_reviews <- head(amazon_books[order(-amazon_books$reviews),],10)\n",
    "max_reviews"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 33,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>book_rank</th><th scope=col>book_name</th><th scope=col>author</th><th scope=col>stars</th><th scope=col>reviews</th><th scope=col>book_type</th><th scope=col>price</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td> 1                                                                                                                            </td><td>Becoming                                                                                                                      </td><td>Michelle Obama                                                                                                                </td><td>4.9                                                                                                                           </td><td>14110                                                                                                                         </td><td>Hardcover                                                                                                                     </td><td>19.50                                                                                                                         </td></tr>\n",
       "\t<tr><td> 6                                                                                                                                  </td><td>Last Week Tonight with John Oliver Presents A Day in the Life of Marlon Bundo (Better Bundo Book, LGBT Children&lt;U+0092&gt;s Book)</td><td><span style=white-space:pre-wrap>Jill Twiss    </span>                                                                              </td><td>4.9                                                                                                                                 </td><td> 8506                                                                                                                               </td><td>Hardcover                                                                                                                           </td><td>10.33                                                                                                                               </td></tr>\n",
       "\t<tr><td>16                                                                                                                            </td><td>Dog Man                                                                                                                       </td><td>Dav Pilkey                                                                                                                    </td><td>4.9                                                                                                                           </td><td>  660                                                                                                                         </td><td>Hardcover                                                                                                                     </td><td> 9.85                                                                                                                         </td></tr>\n",
       "\t<tr><td>35                                                                                                                            </td><td>Dog Man and Cat Kid                                                                                                           </td><td>Dav Pilkey                                                                                                                    </td><td>4.9                                                                                                                           </td><td>  707                                                                                                                         </td><td>Hardcover                                                                                                                     </td><td> 8.38                                                                                                                         </td></tr>\n",
       "\t<tr><td>40                                                                                                                            </td><td>Dog Man                                                                                                                       </td><td>Dav Pilkey                                                                                                                    </td><td>4.9                                                                                                                           </td><td>  677                                                                                                                         </td><td>Hardcover                                                                                                                     </td><td> 6.35                                                                                                                         </td></tr>\n",
       "\t<tr><td>52                                                                                                                            </td><td>Wonder                                                                                                                        </td><td>R. J. Palacio                                                                                                                 </td><td>4.9                                                                                                                           </td><td>13303                                                                                                                         </td><td>Hardcover                                                                                                                     </td><td>12.72                                                                                                                         </td></tr>\n",
       "\t<tr><td>56                                                                                                                            </td><td>Everybody, Always                                                                                                             </td><td>Bob Goff                                                                                                                      </td><td>4.9                                                                                                                           </td><td> 1144                                                                                                                         </td><td>Paperback                                                                                                                     </td><td> 9.33                                                                                                                         </td></tr>\n",
       "\t<tr><td>77                                                                                                                            </td><td>Simply Keto                                                                                                                   </td><td>Suzanne Ryan                                                                                                                  </td><td>4.9                                                                                                                           </td><td> 1352                                                                                                                         </td><td>Paperback                                                                                                                     </td><td>22.74                                                                                                                         </td></tr>\n",
       "\t<tr><td>80                                                                                                                            </td><td>The Russia Hoax                                                                                                               </td><td>Gregg Jarrett                                                                                                                 </td><td>4.9                                                                                                                           </td><td> 1817                                                                                                                         </td><td>Hardcover                                                                                                                     </td><td>12.00                                                                                                                         </td></tr>\n",
       "\t<tr><td>13                                                                                                                            </td><td>Diary of a Wimpy Kid #13                                                                                                      </td><td>Jeff Kinney                                                                                                                   </td><td>4.8                                                                                                                           </td><td>  632                                                                                                                         </td><td>Hardcover                                                                                                                     </td><td>11.51                                                                                                                         </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllll}\n",
       " book\\_rank & book\\_name & author & stars & reviews & book\\_type & price\\\\\n",
       "\\hline\n",
       "\t  1                                                                                                                             & Becoming                                                                                                                       & Michelle Obama                                                                                                                 & 4.9                                                                                                                            & 14110                                                                                                                          & Hardcover                                                                                                                      & 19.50                                                                                                                         \\\\\n",
       "\t  6                                                                                                                             & Last Week Tonight with John Oliver Presents A Day in the Life of Marlon Bundo (Better Bundo Book, LGBT Children<U+0092>s Book) & Jill Twiss                                                                                                                     & 4.9                                                                                                                            &  8506                                                                                                                          & Hardcover                                                                                                                      & 10.33                                                                                                                         \\\\\n",
       "\t 16                                                                                                                             & Dog Man                                                                                                                        & Dav Pilkey                                                                                                                     & 4.9                                                                                                                            &   660                                                                                                                          & Hardcover                                                                                                                      &  9.85                                                                                                                         \\\\\n",
       "\t 35                                                                                                                             & Dog Man and Cat Kid                                                                                                            & Dav Pilkey                                                                                                                     & 4.9                                                                                                                            &   707                                                                                                                          & Hardcover                                                                                                                      &  8.38                                                                                                                         \\\\\n",
       "\t 40                                                                                                                             & Dog Man                                                                                                                        & Dav Pilkey                                                                                                                     & 4.9                                                                                                                            &   677                                                                                                                          & Hardcover                                                                                                                      &  6.35                                                                                                                         \\\\\n",
       "\t 52                                                                                                                             & Wonder                                                                                                                         & R. J. Palacio                                                                                                                  & 4.9                                                                                                                            & 13303                                                                                                                          & Hardcover                                                                                                                      & 12.72                                                                                                                         \\\\\n",
       "\t 56                                                                                                                             & Everybody, Always                                                                                                              & Bob Goff                                                                                                                       & 4.9                                                                                                                            &  1144                                                                                                                          & Paperback                                                                                                                      &  9.33                                                                                                                         \\\\\n",
       "\t 77                                                                                                                             & Simply Keto                                                                                                                    & Suzanne Ryan                                                                                                                   & 4.9                                                                                                                            &  1352                                                                                                                          & Paperback                                                                                                                      & 22.74                                                                                                                         \\\\\n",
       "\t 80                                                                                                                             & The Russia Hoax                                                                                                                & Gregg Jarrett                                                                                                                  & 4.9                                                                                                                            &  1817                                                                                                                          & Hardcover                                                                                                                      & 12.00                                                                                                                         \\\\\n",
       "\t 13                                                                                                                               & Diary of a Wimpy Kid \\#13                                                                                                       & Jeff Kinney                                                                                                                      & 4.8                                                                                                                              &   632                                                                                                                            & Hardcover                                                                                                                        & 11.51                                                                                                                           \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| book_rank | book_name | author | stars | reviews | book_type | price |\n",
       "|---|---|---|---|---|---|---|\n",
       "|  1                                                                                                                             | Becoming                                                                                                                       | Michelle Obama                                                                                                                 | 4.9                                                                                                                            | 14110                                                                                                                          | Hardcover                                                                                                                      | 19.50                                                                                                                          |\n",
       "|  6                                                                                                                             | Last Week Tonight with John Oliver Presents A Day in the Life of Marlon Bundo (Better Bundo Book, LGBT Children<U+0092>s Book) | Jill Twiss                                                                                                                     | 4.9                                                                                                                            |  8506                                                                                                                          | Hardcover                                                                                                                      | 10.33                                                                                                                          |\n",
       "| 16                                                                                                                             | Dog Man                                                                                                                        | Dav Pilkey                                                                                                                     | 4.9                                                                                                                            |   660                                                                                                                          | Hardcover                                                                                                                      |  9.85                                                                                                                          |\n",
       "| 35                                                                                                                             | Dog Man and Cat Kid                                                                                                            | Dav Pilkey                                                                                                                     | 4.9                                                                                                                            |   707                                                                                                                          | Hardcover                                                                                                                      |  8.38                                                                                                                          |\n",
       "| 40                                                                                                                             | Dog Man                                                                                                                        | Dav Pilkey                                                                                                                     | 4.9                                                                                                                            |   677                                                                                                                          | Hardcover                                                                                                                      |  6.35                                                                                                                          |\n",
       "| 52                                                                                                                             | Wonder                                                                                                                         | R. J. Palacio                                                                                                                  | 4.9                                                                                                                            | 13303                                                                                                                          | Hardcover                                                                                                                      | 12.72                                                                                                                          |\n",
       "| 56                                                                                                                             | Everybody, Always                                                                                                              | Bob Goff                                                                                                                       | 4.9                                                                                                                            |  1144                                                                                                                          | Paperback                                                                                                                      |  9.33                                                                                                                          |\n",
       "| 77                                                                                                                             | Simply Keto                                                                                                                    | Suzanne Ryan                                                                                                                   | 4.9                                                                                                                            |  1352                                                                                                                          | Paperback                                                                                                                      | 22.74                                                                                                                          |\n",
       "| 80                                                                                                                             | The Russia Hoax                                                                                                                | Gregg Jarrett                                                                                                                  | 4.9                                                                                                                            |  1817                                                                                                                          | Hardcover                                                                                                                      | 12.00                                                                                                                          |\n",
       "| 13                                                                                                                             | Diary of a Wimpy Kid #13                                                                                                       | Jeff Kinney                                                                                                                    | 4.8                                                                                                                            |   632                                                                                                                          | Hardcover                                                                                                                      | 11.51                                                                                                                          |\n",
       "\n"
      ],
      "text/plain": [
       "   book_rank\n",
       "1   1       \n",
       "2   6       \n",
       "3  16       \n",
       "4  35       \n",
       "5  40       \n",
       "6  52       \n",
       "7  56       \n",
       "8  77       \n",
       "9  80       \n",
       "10 13       \n",
       "   book_name                                                                                                                     \n",
       "1  Becoming                                                                                                                      \n",
       "2  Last Week Tonight with John Oliver Presents A Day in the Life of Marlon Bundo (Better Bundo Book, LGBT Children<U+0092>s Book)\n",
       "3  Dog Man                                                                                                                       \n",
       "4  Dog Man and Cat Kid                                                                                                           \n",
       "5  Dog Man                                                                                                                       \n",
       "6  Wonder                                                                                                                        \n",
       "7  Everybody, Always                                                                                                             \n",
       "8  Simply Keto                                                                                                                   \n",
       "9  The Russia Hoax                                                                                                               \n",
       "10 Diary of a Wimpy Kid #13                                                                                                      \n",
       "   author         stars reviews book_type price\n",
       "1  Michelle Obama 4.9   14110   Hardcover 19.50\n",
       "2  Jill Twiss     4.9    8506   Hardcover 10.33\n",
       "3  Dav Pilkey     4.9     660   Hardcover  9.85\n",
       "4  Dav Pilkey     4.9     707   Hardcover  8.38\n",
       "5  Dav Pilkey     4.9     677   Hardcover  6.35\n",
       "6  R. J. Palacio  4.9   13303   Hardcover 12.72\n",
       "7  Bob Goff       4.9    1144   Paperback  9.33\n",
       "8  Suzanne Ryan   4.9    1352   Paperback 22.74\n",
       "9  Gregg Jarrett  4.9    1817   Hardcover 12.00\n",
       "10 Jeff Kinney    4.8     632   Hardcover 11.51"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# 3. which book got the max star rating and reviews ?\n",
    "amazon_books %>% group_by(stars,reviews) %>% \n",
    "       arrange(desc(stars,reviews)) %>% head(10)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 47,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>author</th><th scope=col>Count</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>Wizards RPG Team      </td><td>4                     </td></tr>\n",
       "\t<tr><td>Dav Pilkey            </td><td>3                     </td></tr>\n",
       "\t<tr><td>Dr. Steven R Gundry MD</td><td>2                     </td></tr>\n",
       "\t<tr><td>Instant Pot CookBook  </td><td>2                     </td></tr>\n",
       "\t<tr><td>Joanna Gaines         </td><td>2                     </td></tr>\n",
       "\t<tr><td>Rupi Kaur             </td><td>2                     </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|ll}\n",
       " author & Count\\\\\n",
       "\\hline\n",
       "\t Wizards RPG Team       & 4                     \\\\\n",
       "\t Dav Pilkey             & 3                     \\\\\n",
       "\t Dr. Steven R Gundry MD & 2                     \\\\\n",
       "\t Instant Pot CookBook   & 2                     \\\\\n",
       "\t Joanna Gaines          & 2                     \\\\\n",
       "\t Rupi Kaur              & 2                     \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| author | Count |\n",
       "|---|---|\n",
       "| Wizards RPG Team       | 4                      |\n",
       "| Dav Pilkey             | 3                      |\n",
       "| Dr. Steven R Gundry MD | 2                      |\n",
       "| Instant Pot CookBook   | 2                      |\n",
       "| Joanna Gaines          | 2                      |\n",
       "| Rupi Kaur              | 2                      |\n",
       "\n"
      ],
      "text/plain": [
       "  author                 Count\n",
       "1 Wizards RPG Team       4    \n",
       "2 Dav Pilkey             3    \n",
       "3 Dr. Steven R Gundry MD 2    \n",
       "4 Instant Pot CookBook   2    \n",
       "5 Joanna Gaines          2    \n",
       "6 Rupi Kaur              2    "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "  # 4. WHich author's books has featured in the top 100 more than once ?\n",
    "top_authors <- amazon_books %>% group_by(author) %>% summarise(Count = n()) %>%\n",
    "   filter(Count > 1 ) %>% arrange(desc(Count))\n",
    "\n",
    "top_authors\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 45,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>book_type</th><th scope=col>num_of_books</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>Hardcover            </td><td>50                   </td></tr>\n",
       "\t<tr><td>Paperback            </td><td>39                   </td></tr>\n",
       "\t<tr><td>Board book           </td><td> 9                   </td></tr>\n",
       "\t<tr><td>                     </td><td> 1                   </td></tr>\n",
       "\t<tr><td>Mass Market Paperback</td><td> 1                   </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|ll}\n",
       " book\\_type & num\\_of\\_books\\\\\n",
       "\\hline\n",
       "\t Hardcover             & 50                   \\\\\n",
       "\t Paperback             & 39                   \\\\\n",
       "\t Board book            &  9                   \\\\\n",
       "\t                       &  1                   \\\\\n",
       "\t Mass Market Paperback &  1                   \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| book_type | num_of_books |\n",
       "|---|---|\n",
       "| Hardcover             | 50                    |\n",
       "| Paperback             | 39                    |\n",
       "| Board book            |  9                    |\n",
       "|                       |  1                    |\n",
       "| Mass Market Paperback |  1                    |\n",
       "\n"
      ],
      "text/plain": [
       "  book_type             num_of_books\n",
       "1 Hardcover             50          \n",
       "2 Paperback             39          \n",
       "3 Board book             9          \n",
       "4                        1          \n",
       "5 Mass Market Paperback  1          "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAASFBMVEUAAAAAsPYAv30zMzNN\nTU1oaGh8fHyMjIyampqjpQCnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHna/Pp6enr6+vw8PDy8vL4\ndm3///9SNehgAAAACXBIWXMAABJ0AAASdAHeZh94AAAezUlEQVR4nO3dD3sSW5LA4Z69GB29\nf1zHWb7/N90ASWg6RaAO1Q2d8/6efSRGKgXmvBdEhx22km5uuPcNkD5DIEkFgSQVBJJUEEhS\nQSBJBYEkFQSSVFArpP/c0m3T1jzsmtKjua5AsqZuTenRXFcgWVO3pvRoriuQrKlbU3o01xVI\n1tStKT2a6woka+rWlB7NdQWSNXVrSo/mugLJmro1pUdzXYFkTd2a0qO5rkCypm5N6dFcVyBZ\nU7em9GiuK5CsqVtTejTXFUjW1K0pPZrrCiRr6taUHs11BZI1dWtKj+a6AsmaujWlR3NdgWRN\n3ZrSo7muQLKmbk3p0VxXIFlTt6b0aK4rkKypW1N6NNcVSNbUrSk9musKJGvq1pQezXUFkjV1\na0qP5roCyZq6NaVHc12BZE3dmtKjua5AsqZuTenRXFcgWVO3pvRoriuQrKlbU3o01xVI1tSt\nKT2a6woka+rWlB7NdQWSNXVrSo/muroMabPr5fL42ft9s6x53DXzndOH7wpIo4ujpPt9s6x5\n3DXznNFVBJI1dWvmOaOr6CKkzfgSJGs+HO63y5Be/4i0ff3hj10z36z79j8zdu/7pnm67hFp\n09cj0pyQlr83C66Z7Zg+fte9/A0SSFcN9xtIQSC1Dvebp3ZBILUO99tVkE5fbNh3v2/WAmtA\nah3ut+v+ZcP48tD9vlkLrAGpdbjf/Fu7IJBah/sNpCCQWof7DaQgkFqH+w2kIJBah/sNpCCQ\nWof7DaQgkFqH+w2kIJBah/sNpCCQWof7DaQgkFqH+w2kIJBah/sNpCCQWof7DaQgkFqH+w2k\nIJBah/sNpCCQWof7DaQgkFqH+w2kIJBah/sNpCCQWof7DaQgkFqH+w2kIJBah/sNpCCQWof7\nDaQgkFqH+w2kIJBah/sNpCCQWof7DaQgkFqH+w2kIJBah/sNpCCQWof7DaQgkFqH+w2kIJBa\nh/sNpCCQWof7DaQgkFqH+w2kIJBah/sNpCCQWof7DaQgkFqH+w2kIJBah/sNpCCQWof7DaQg\nkFqH+w2kIJBah/sNpCCQWof7DaQgkFqH+w2kIJBah/sNpCCQWof7DaQgkFqH+w2kIJBah/sN\npCCQWof7DaQgkFqH+w2kIJBah/sNpCCQWof7DaQgkFqH+w2kIJBah/sNpCCQWof7DaQgkFqH\n+w2kIJBah/sNpCCQWof7DaQgkFqH+w2kIJBah/sNpCCQWof7DaQgkFqH+w2kIJBah/sNpCCQ\nWof7DaQgkFqH+w2kIJBah/sNpCCQWof7DaQgkFqH+60V0qduTkj3vm+aJ49IQXNCWv7eLLim\n9GiuK5CCQGod7jeQgkBqHe43kIJAah3uN5CCQGod7jeQgkBqHe43kIJAah3uN5CCQGod7jeQ\ngkBqHe43kIJAah3uN5CCQGod7jeQgkBqHe43kIJAah3uN5CCQGod7jeQgkBqHe43kIJAah3u\nN5CCQGod7jeQgkBqHe43kIJAah3uN5CCQGod7jeQgkBqHe43kIJAah3uN5CCQGod7jeQgkBq\nHe43kIJAah3uN5CCQGod7jeQgkBqHe43kIJAah3uN5CCQGod7jeQgkBqHe43kIJAah3uN5CC\nQGod7jeQgkBqHe43kIJAah3uN5CCQGod7jeQgkBqHe43kIJAah3uN5CCQGod7jeQgkBqHe43\nkIJAah3uN5CCQGod7jeQgkBqHe43kIJAah3uN5CCQGod7jeQgkBqHe43kIJAah3uN5CCQGod\n7jeQgkBqHe43kIJAah3uN5CCQGod7jeQgkBqHe43kIJAah3uN5CCQGod7jeQgkBqHe43kIJA\nah3uN5CCQGod7jeQgkBqHe43kIJAah3uN5CCQGod7jeQgkBqHe43kIJAah3uN5CCQGod7jeQ\ngkBqHe43kIJAah3uN5CCQGod7jeQgkBqHe63qyBt9j88d/zU/b5ZC6wBqXW4366BtAd0wPT2\nuft9sxZYA1LrcL9dAWmzBQmk64b77TKkzRYkkK4c7rcGSH/smvdW3bk5Id37vmmeLkLabD0i\nVbb8vVlwzWzH9PG7BOnND0ggXR7ut4uQDoEE0jXD/Xb13yOBBNLl4X4DKQik1uF+8y8bgkBq\nHe43/9YuCKTW4X4DKQik1uF+AykIpNbhfgMpCKTW4X4DKQik1uF+AykIpNbhfgMpCKTW4X4D\nKehTQfrfOZvexn4DKQgkkLKBFAQSSNlACgIJpGwgBYEEUjaQgkACKRtIQSCBlA2kIJBAygZS\nEEggZQMpCCSQsoEUBBJI2UAKAgmkbCAFgQRSNpCCQAIpG0hBIIGUDaQgkEDKBlIQSCBlAykI\nJJCygRQEEkjZQAoCCaRsIAWBBFI2kIJAAikbSEEggZQNpCCQQMoGUhBIIGUDKQgkkLKBFAQS\nSNlACgIJpGwgBYEEUjaQgkACKRtIQSCBlA2kIJBAygZSEEggZQMpCCSQsoEUBBJI2UAKAgmk\nbCAFgQRSNpCCQAIpG0hBIIGUDaQgkEDKBlIQSCBlAykIJJCygRQEEkjZQAoCCaRsIAWBBFI2\nkIJAAikbSEEggZQNpCCQQMoGUhBIIGUDKQgkkLKBFAQSSNlACgIJpGwgBYEEUjaQgkACKRtI\nQSCBlA2kIJBAygZSEEggZWuF9KmbE9Lid2ZWSIvfm4fNI1LQnJAWvzezQprexn4DKQgkkLKB\nFAQSSNlACgIJpGwgBYEEUjaQgkACKRtIQSCBlA2kIJBAygZSEEggZQMpCCSQsoEUBBJI2UAK\nAgmkbCAFgQRSNpCCQAIpG0hBIIGUDaQgkEDKBlIQSCBlAykIJJCygRQEEkjZQAoCCaRsIAWB\nBFI2kIJAAikbSEEggZQNpCCQQMoGUhBIIGUDKQgkkLKBFAQSSNlACgIJpGwgBYEEUjaQgkAC\nKRtIQSCBlA2kIJBAygZSEEggZQMpCCSQsoEUBBJI2UAKAgmkbCAFgQRSNpCCQAIpG0hBIIGU\nDaQgkEDKBlIQSCBlAykIJJCygRQEEkjZQAoCCaRsIAWBBFI2kIJAAikbSEEggZQNpCCQQMoG\nUhBIIGUDKQgkkLKBFAQSSNlACgIJpGwgBYEEUjaQgkACKRtIQSCBlA2kIJBAygZSEEggZQMp\nCCSQsoEUBNIckIYPz1rwq39uGg/nPQIpCKSHgPTxwIMFUhBIIGUDKQikmSB9HZ5+7T789W0Y\nvp1+tFfzffh7fP1h+D182X24uxiN/94N/W48uTMFUhBI80D6+kxj8wzg92Z499EO0vfh+8n1\nnz93oPXX8OP5p99errrdD31pPLkzBVIQSPNAevq9fdpZ+T48bacf7dH8mAxstz93V3h+KPpn\nNP7jMPln49GdJ5CCQJoH0vPzsl+7R5IvwUfDcPK87jCw3Rn6+fzRZvezn29D+1/92nh05+ky\npM1z48tDzefhljOx1BqQ5oH0+mP80TB9jNn/4s9nMH8P36ZX3T/ve6Qu3prNyw+bt5/saz4P\nt5yJpdaAdA9IPzbDr2Dg+UFr/1gFUt2ZWGoNSPNA+vip3favybO1A5W/h++b4Tj+9PrU7sG6\n7jaBBFIBpKft76fdCwpnXmx4/uCv04H9xZdh/4LDePz77oW8p9RBn7sGSH/smvEm3b85IS1+\nZ2aFlLkhl1/+/nl4dfs4sD9vfw97X8+QhsNnDkO71x4eqCsgHV5k8IhU0+L3ZlZI09v44VHb\n/Y3q1w//QvbH7lWFt/48QDo8qdv9+DQaevrn2iO+TJ7aBYE0B6TW/jn83euDvbgwDaQgkB4J\n0tPh75fWDsmrdiAtCWkYTl/dHoaXVxVAqjsTS60B6XEgbV5fE187JP+yAaQlIa01/9YuCCSQ\nsoEUBBJI2UAKAgmkbCAFgQRSNpCCQAIpG0hBIIGUDaQgkEDKBlIQSHNA+r+z/bfxED5SIAWB\nBFI2kIJAAikbSEEggZQNpCCQQMoGUhBIIGUDKQgkkLKBFAQSSNlACgIJpGwgBYEEUjaQgkAC\nKRtIQSCBlA2kIJBAygZSEEggZQMpCCSQsoEUBBJI2UAKAgmkbCAFgQRSNpCCQAIpG0hBIIGU\nDaQgkEDKBlIQSCBlAykIJJCygRQEEkjZQAoCCaRsIAWBBFI2kIJAmgPSf8/XeAgfKZCCQJoD\n0ucOpCCQ5oD077N5RFr4TCy1BiSQsoEUBBJI2UAKAgmkbCAFgQRSNpCCQAIpG0hBIIGUDaQg\nkEDKNoE0vPx8s7kw13webjkTS60BCaRsY0ibYdSFuebzcMuZWGoNSCBlG4P5c+Tozwtzzefh\nljOx1BqQ7gfpmv+OD+/P7rkzvVhnntpdrPk83HImlloD0h0hhecyPLSPDOnqms/DLWdiqTUg\ngZRtuvT7xp+RQHoMSK/H8OVy2D9f2n38dp3TKxyvGBzsuZvs++7Fhv+AdH9IYw9vl6+ffD2c\nr594d8X353r+Jgs3F19leKn5PNxyJpZaA9IdIb39d/zkgWUY/3z81C6GtPyzOy82BIF0R0hv\nFyM4e1kJSHf4U9Jk5dfh93VzzefhljOx1BqQHgrS5BncZUj3kDTZ+Gvz9OuquebzcMuZWGoN\nSI8EaXp5zVO7u/8Zyb9s2AXSo0E6eWq3hhcbQNoF0h0hHY/f6PL4AsJKXv6+uubzcMuZWGoN\nSPeDtNZACgIJpGye2gWBBFI2kIJAAilbCObX049Lc83n4ZYzsdQakEDKFj/y/B4uSWo+D7ec\niaXWgARStjNP4Ty1A6kaUo9vov/X4D0bQCqG9Lk792LD9/vcnMdoTkiL35lZIWVuyPnfk0/4\niPTCaHPRUfN/WG/5j+tSa+aEtPi9mRXS9DZ+VFeQrq75PNxyJpZaAxJI2UAKAgmkbFNIv79/\nGYYv3y/+r5Kaz8MtZ2KpNSCBlO3d/x7p5Q9Jl/5XSc3n4ZYzsdQakEDKNoH0bdj9D/t+PQ3f\nLsw1n4dbzsRSa0ACKduZ92zwF7IggZQJpCCQQMrmqV0QSCBl82JDEEj3gzScXHx4WB8qL38H\ngQRSNn8hGwQSSNlACgLpISCFb55/+o5Bw+uVT657j6Zrvx5u5Rd/RgLpzpBGb5z6/s3tXi5f\nIZ1c9y5NFn9/5e5VO5DuA+n0PUOm77A6+vz4zSCnv7x8k82b4Z/dxU9/jwTSnSCNLoI3zz8H\naRg/1btH/kI2CKSHgDR5tAkhvTytG06n79Bk89fh2+/da+DD04W55vNwy5lYag1IjwBp8seh\n7aogvf2F7M8Lc83n4ZYzsdQakB4F0rs3zw91PeCfkV7/Qvbi/2+X5vNwy5lYag1IjwApfvP8\n6TvsH395/Mi0fP4eKQik+0FaayAFgQRSNpCCQAIpG0hBIIGUDaQgkEDKBlIQSCBlAykIpDkg\n9fgm+pdrPg+3nIml1oA0B6TPHUhBIM0B6V9n84i08JlYag1IIGUDKQgkkLKBFAQSSNlACgIJ\npGwgBYEEUjaQgkACKRtIQSCBlA2kIJBAygZSEEj3g3Tluy+cu9qZsdP3+Lr4Va/9fO4qYc3n\n4ZYzsdQakO4IaRhfnD+3Z642fVes08tLpx2k2jUggXTV53NXCWs+D7eciaXWgHRHSOM32Zq8\n0cnJO7C+u9r+fb/f3k5oGIbt9B1Sptcef9GX6XjjMPoaZwIpCKSHgDR9663xcY6u9nrkpyPj\nqXfXPv15ND68fdWPAikIpIeA9HpAoxcWzl1tfOrHo6cvNnyoNN7c+qzwUs3n4ZYzsdQakO4J\nafw4MxwfKEaX8dVeFLx9ZjiVcBw9eUfxk2uOfpiMX3QCUhBIjwHp+IzqHaXgai8ATp6HBZA+\nevI3jK5w+oDmEaklkB4C0vSJ1vgyuNpYwXlI4VO67QRS9Iv+jJQPpLtCGmuI3+/7w6udZXIc\nHLZnXlf4YDNI+UB6CEjn3+87vNrpY8rrn66G6TF/u3b4Cvfxk+PNw+RrBIEUBNL9IC1V68Gv\n/nrN5+GWM7HUGpBAWurrNZ+HW87EUmtAAmmpr9d8Hm45E0utAenzQ6oOpCCQQMoGUhBIIGUD\nKQgkkLKBFATSHJC8iX5U83m45UwstQakOSB97kAKAmkOSOe/ikekhc/EUmtAAikbSEEggZQN\npCCQQMoGUhBIIGUDKQgkkLKBFAQSSNlACgIJpGyXIW2eG18eaj4Pt5yJpdaABFK2i5A2Lz9s\n3n6yr/k83HImlloD0v0gzf929/MEUhBId4R03blcH6R9IIEE0oc1QPpj14w36f7NCWnxOzMr\npJobcgbSTG93P09X7dxsPSJVtfi9mRXS9DZ+VBbS8Z21op+Hb0t31TvQzRNIQSDdEdLsb3c/\nT9ds3Zz+sK/5PNxyJpZaA9IdIY0/nuXt7ufpirWb448ggbQcpOjZ23YKaZj84r0kXfEXsqML\nkEBaDFL4lG47gRT94mP+GWmzefknDf5lA0iLQ5rj7e7nyb+1CwLpESDN9Xb38wRSEEj3g1R3\nRJcNpCCQQMoGUhBIIGUDKQikR4K0jkAKAgmkbCAFgQRSNpCCQJoDkvf+jmo+D7eciaXWgARS\nNpCCQJoD0ucOpCCQQMoGUhBIIGUDKQgkkLKBFAQSSNlACgIJpGwgBYEEUjaQgkACKRtIQSCB\nlA2kIJBAygZSEEggZQMpCCSQsoEUBBJI2UAKAgmkbCAFgQRSNpCCQAIpG0hBIIGUDaQgkEDK\nBlIQSCBlAykIJJCygRQEEkjZQAoCCaRsIAWBBFI2kIJAAikbSEEggZQNpCCQQMoGUhBIIGUD\nKQgkkLKBFAQSSNlACgIJpGwgBYEEUjaQgkACKRtIQSCBlA2kIJBAygZSEEggZQMpCCSQsoEU\nBBJI2UAKAgmkbCAFgQRSNpCCQAIpG0hBIIGUDaQgkEDKBlIQSCBlAykIJJCygRQEEkjZQAoC\nCaRsIAWBBFI2kIJAAikbSEEggZQNpCCQQMoGUhBIIGUDKQgkkLKBFAQSSNlACgIJpGwgBYEE\nUrZWSJ+6OSEtfmdmhbT4vXnYPCIFzQlp8XszK6Tpbew3kIJAAikbSEEggZQNpCCQQMoGUhBI\nIGUDKQgkkLKBFAQSSNlACgIJpGwgBYEEUjaQgkACKRtIQSCBlA2kIJBAygZSEEggZQMpCCSQ\nsoEUBBJI2UAKAgmkbCAFgQRSNpCCQAIpG0hBIIGUDaQgkEDKBlIQSCBlAykIJJCygRQEEkjZ\nQAoCCaRsIAWBBFI2kIJAAikbSEEggZQNpCCQQMoGUhBIIGUDKQgkkLKBFAQSSNlACgIJpGwg\nBYEEUjaQgkACKRtIQSCBlA2kIJBAygZSEEggZQMpCCSQsoEUBBJI2UAKAgmkbCAFgQRSNpCC\nQAIpG0hBIIGUDaQgkEDKBlIQSCBlAykIJJCygRQEEkjZQAoCCaRsIAWBBFI2kIJAAikbSEEg\ngZQNpCCQQMoGUhBIIGUDKQgkkLKBFAQSSNlACgIJpGwgBYEEUjaQgkACKRtIQSCBlA2kIJBA\nygZSEEggZQMpCCSQsoEUBBJI2UAKAgmkbCAFgQRStmsgbQ4/Pnf8XPN5uOVMLLUGJJCyXQHp\n4Of4w77m83DLmVhqDUggZbsMabMFCSSQLnT1UzuQQALpfA2Q/tg14026f3NCWvzOzApp8Xvz\nsHlECpoT0uL3ZlZI09vYbyAFgQRSNpCCQAIpG0hBIIGUDaQgkEDK5l82BIEEUjb/1i4IJJCy\ngRQEEkjZQAoCCaRsIAWBBFI2kIJAAikbSEEggZQNpCCQQMoGUhBIIGVbF6R/z9hoDUggZQMJ\nJJAKAgkkkAoCCSSQCgIJJJAKAgkkkAoCCSSQCgIJJJAKAgkkkAoCCSSQCgIJJJAKAgkkkAoC\nCSSQCgIJJJAKAgkkkAoCCSSQCgIJJJAKAgkkkAoCCSSQCgIJJJAKAgkkkAoCCSSQCgIJJJAK\nAgkkkAoCCSSQCgIJJJAKAgkkkAoCCSSQCgIJJJAKAgkkkAoCCSSQCgIJJJAKAgkkkAoCCSSQ\nCgIJJJAKAgkkkAoCCSSQCgIJJJAKAgkkkAoCCSSQCgIJJJAKAgkkkAoCCSSQCgIJJJAKAgkk\nkAoCCSSQCgIJJJAKAgkkkAoCCSSQCgIJJJAKAgkkkAoCCSSQCgIJJJAKAgkkkAoCCSSQCgIJ\nJJAKaoV0n+aENFozJ6TFf89mhbT4vXnYPCK9NlozJ6TFf9NmhTS9jf0GEkggFQQSSCAVBBJI\nIBUEEkggFQQSSCAVBBJIIBUEEkggFQQSSCAVBBJIIBUEEkggFQQSSCAVBBJIIBUEEkggFQQS\nSCAVBBJIIBUEEkggFQQSSCAVBBJIIBUEEkggFQQSSCAVBBJIIBUEEkggFQQSSCAVBBJIIBUE\nEkggFQQSSCAVBBJIIBUEEkggFQQSSCAVBBJIIBUEEkggFQQSSCAVBBJIIBUEEkggFQQSSCAV\nBBJIIBUEEkggFQQSSCAVBBJIIBUEEkggFQQSSCAVBBJIIBUEEkggFQQSSCAVBBJIIBUEEkgg\nFQQSSCAVBBJIIBUEEkggFQQSSCAVBBJIIBUEEkggFQQSSCAVBBJIIBUEEkggFVQE6f/m7Ljm\nc0H614yBtHAggQRSQSCBBFJBIIEEUkEggQRSQSCBBFJBIIEEUkEggQRSQSCBBFJBIIEEUkHX\nQ9o8d/wZSCCBNOpqSJu3H/aBBBJIo0ACCaSCQAIJpIIaIP2xa67bI62yokekXLdNW/Owa2Y4\noGsJJGvq1sxwQNcSSNbUrZnhgK4lkKypWzPDAV1LIFlTt2aGA7qWiv5lw4LfLGsed80MB3Qt\nretdhKx57DWlR3NdgWRN3ZrSo7muQLKmbk3p0VxXIFlTt6b0aK4rkKypW1N6NNcVSNbUrSk9\nmusKJGvq1pQezXUFkjV1a0qP5roCyZq6NaVHc12BZE3dmtKjua5AsqZuTenRXFcgWVO3pvRo\nriuQrKlbU3o01xVI1tStKT2a6woka+rWlB7NdQWSNXVrSo/mugLJmro1pUdzXYFkTd2a0qO5\nrkCypm5N6dFcVyBZU7em9GiuK5CsqVtTejTXFUjW1K0pPZrrCiRr6taUHs11BZI1dWtKj+a6\nAsmaujWlR3NdgWRN3ZrSo7muQLKmbk3p0VxXIFlTt6b0aK6rVkg3tdD/40xrHnfNpwska+6x\n5tMFkjX3WPPpAsmae6z5dN0FkvTZAkkqCCSpIJCkgkCSCgJJKmitkDaHPr7OycW5X7646YNr\nX/gSm8ll8mpnxq656+emb5n94PNaL6STi6brLABpM75IX20T//Sau37u1zeHzzfNXjHXcSDd\nsgkkvfQJIL0+V3m53OxP5O7jt+ucXuF4xe01R+P9ptMNp19183rlw1Ool/97v3w7eob1coV3\nKzajLzUaiG/Qu9+C8G6/Qto0zF7/W9Zj64Y0/uYej932eFq22+Mn3l1xe9WhOJ7bcMPkq77e\nrtefHk5lvHwk/fXH9ysmIx/eoNOff3y3b5nV+1YL6e1PzSf/lTw5oqP/dJ85Fdccis3pH9Cn\nG06O97tzeqA2nd2ebh4/IgW39d2m0xcMPlT67kveMHv6oU5bLaS3i9F3frOJTsJ5SFcdipOv\n8n7DOUhvT6Q2J7Onj5OjO7GJVowO/xmDJzfo5Jrnfl+OT3mTs9vRrKZ9Ikibyc8vQrruWIy+\nSrRhCunt8eX1lzcns9uAUnC1l0M8mgohTW7Qu9sS3erRH75ys8dbpPd9HkjTy8uQjldp25SB\nNL5B08vgau+OejB95p5toxv4/m7nZ4+3SO/7XJBOnpvM8mLDuw1n/I7++x/OTqWfudrZo34c\nnCw5Xn6weXPbrN63WkjHPzWPLo/nba6Xv99vePd69tsvj8/p+aufQDpZccS4ef2lyU1+u3Z4\nz05/X8Yvf7981dzs9b9lPbZWSBp1y9HGoiaQPkEg3T+QPkEg3T+QpIJAkgoCSSoIJKkgkKSC\nQJIKAulcw4e/NcGv/umV5I4D6VxpSB8P6HPnm38ukJTIN/9czy6+Dk+/dh/++jYM304/2qv5\nPvw9vv4w/B6+7D7cXYzGf++Gfi99+7VoIJ1rGL4+09g8A/i9Gd59tIP0ffh+cv3nzx1o/TX8\neP7pt5erbvdDX+50N7RMIJ1rGJ5+b592Vr4PT9vpR3s0PyYD2+3P3RWeH4r+GY3/OEz+eZ+7\noWUC6VzD8Py87NfukeRL8NEwnDyvOwxsd4Z+Pn+02f3s59vQ/le/3uE+aLFAOtfhtYPdj/FH\nw/QxZv+LP5/B/D18m151/7xPnzjf3nNdgvRjM/wKBp4ftPaPVSD1lW/vuS49tdv+NXm2dqDy\n9/B9MxzHn16f2ulz55t8ruEZwe+n3QsKZ15seP7gr9OB/cWXYf+Cw3j8++6FvKd73AktFUjn\nuvzy98/Dq9vHgf2/Efp72Pt6hjQcPnMY2r32oM8bSOfa/43q1w//QvbH7lWFt/48QDo8qdv9\n+DQaevpn0RuvpQOpun8Of/fqxYW+8u2u7unw90sg9ZVv920Nw+mr28Pw8qoCSH3l231bU0ib\n19fEQeor326pIJCkgkCSCgJJKggkqSCQpIJAkgoCSSro/wFZkIxeHvH5tgAAAABJRU5ErkJg\ngg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# 5. WHich type of book has sold a lot ?\n",
    "\n",
    "max_type_sold <- amazon_books %>% group_by(book_type) %>% summarise(num_of_books = n()) %>% \n",
    "                  arrange(desc(num_of_books))\n",
    "\n",
    "max_type_sold\n",
    "\n",
    "ggplot(data = amazon_books) + geom_bar(mapping = \n",
    "                                         aes(x=book_type,fill = book_type))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 53,
   "metadata": {},
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "Warning message in plot.window(xlim, ylim, \"\", ...):\n",
      "\"\"color\" is not a graphical parameter\"Warning message in title(main = main, sub = sub, xlab = xlab, ylab = ylab, ...):\n",
      "\"\"color\" is not a graphical parameter\"Warning message in axis(1, ...):\n",
      "\"\"color\" is not a graphical parameter\"Warning message in axis(2, ...):\n",
      "\"\"color\" is not a graphical parameter\""
     ]
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAM1BMVEUAAAAAAP9NTU1oaGh8\nfHyMjIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enw8PD////UNI3wAAAACXBIWXMAABJ0\nAAASdAHeZh94AAAe4UlEQVR4nO3d22KiShRF0ToFiFfw/7/2cBEFBTvCKi3Yczx0p5NsCm1m\nVDSJuwJYzP16B4AtICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRA\ngJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQ\nAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECCkq3Nu+NbjHX27MKvvvXP/3rS7\n8dnp5QOSZXd/3dpHC87duxUyc0Gn/Smksw9zTe3rPP4eUiV//oBg2e7SEdJsZi7otD+FFOqQ\nSJy7/OHTeiG5s2C/npbttkJIs5m5oNNeQnr/SaEW/9Onnf50R/DjZQlpMTMXdNrULVK5T6u3\nsuP1foPQfNJpV98r6h6qFNW/0kNvskiaO1/HrHo7yYtue4fEJdVNycG7dOIWZbDdx4aePu3S\nvnX/ePeBMq9uZNLbdJl759u1H563P9gHd9/s9Vxd6l0xuaHbhfHdpzxdH2PLnKrHdsXg+twg\nQpoKqfC3AywdhJTe3s6aifPtUx6TSTPQfVZzP+z2CdWxnz/dN5vc7n1DE/t4//jtA93O5v1/\nDIrtb7//deH6FFK7i76Y2tD9wtzeO9zv14tRbaXdXP/63CBCmgqp+spaffEsqyPj0DvUsq6Q\n9lDx9392k64eO1SHS3m95oPjtjqeBsfc9Tq93W5DL/tY3SL5/sdvH7jvx6n3D9+7kIPtvwvp\nZned2NDjU/zLdscuRh1Qk2X/+twgQho8kO+FVP1Z//+X1df++/vqeynuUFb3Utpj9lgdTvVf\n/jFZB1Q/li8GW6reW8Xlkkvz13Dxke3eN/T0affHSPePtx+oNuovzUGaXG8Vl7t+iCPbv45s\nvs7j3HwB8NfxDTWfcmp35Piy3ZFlSn87rzG8PjeHkKZCquN43PW/fWjXfT3NmwM6a4+XOqhu\n8vS06fbP8+Cvl8943u7Yhu4u/Y+77vas/meZ7IvmH7fGHjd9I9t/3c/7Zsv7Vl82dF/51Lz3\nabsjy6RdhsPrc3MIaSqk/e0+Tv+Abb7ENv8umnf47nh8/nD1Ccc8dfeQri9/XccHi/tI/wap\nv4+nwecPVnj+XN9/3/P2nzY/8vfYhh6TzRtP2x1ZxnXPfA2vz80hpMmzdnl3FBUvH7o+jqOx\nyeomKumV+beQBu94OtDvx3Sa9/sZ//SnLwujl/HDkNzrpz5dAaP/7LbQ7vPg+twcQpoM6Voe\n23NQ6eBD9y+5fvQWqflnfVcv2R0e56pHPud5sL/dsZDG/z3ShXev/6n/2P54SGMberotfNru\nyDJ+f38xRv/63BxCmg6p1jwt8nhf9s/HSM1Hk8c9sJfNjoaUvX8M86+Q0qfHSC93n/6x/fGQ\nxjZUf6h5zNM+Rnq9Pp6XOddXxuNuand9bs4mL9RnJkJK7g+1uy/h5eRZO/cUye3vv98i/eOs\n2r9CGpy1O7an3o79L/1/OGtXvuz/2Iaae2vH9qzd/i9n7Zp35i/X5+YQ0lRI1f9/WjSPkevD\noD7nVP99f6Z1+EzLUyRp88kn/+eQnrf7YUiP/Tj0/9F7IvX99rtL9/SFYGxDjwvsy9ftji6T\nNmcah9fn5hDSP082NF+Od90baf9Aab4Eu8ErG5p3n7tjrTkG/xLS03Y/Dencf2XDbaeGB+zb\n7XeX7imksQ1V/7w963oa2e7oMpf2/Png+twcQpp+jNTcn09vz8Nn93Z2vncS97JrXuL2HEn9\nbr+7FN0LCUa2/rz4YLufhtS8Ks5136zUvPDu+TuX3m4/Gz50emz1ZUP1hw69l+M9XR+jy2Tt\nk1+D63NrCEmh3Ogdf/wZIS3h2lNYl3Tw5D8MIqQlHo+tR04UwxJCWuL+rQHbPBOFvyOkRcp9\nfQrLb/UFZPgzQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQ\nICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAk\nQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECA\nkAABQgIECAkQICRAYGZI5c653aV9O/fO56Vul4D1mRmSd7WmpLR5M1HuFLA280LK3a7+I6ve\nPDt/uV68O2v3C1iVeSF5V9+Vc/Vw7k7Vn0e3V+4VsDJLTjY4X/2RuaL689LcOgFWLQgpd4fr\n7Wbp/hdg0+zj/+hc3mxgNCTXt2T/Xv03i3YfgCezj/JD5pvHRf++RVKH9LUh4M+WHOW7+r4d\nIQHLjvKyPtvgCQlYdpTX9bRn7Yo3Z+0ICdu35Hmkon49w755HunUnnkQLjGJkBChBa9sKLP6\nMdK/X9lASNi+Ra+1S+s3k8eb0iWmEBIiNPcoz71LDs1bZfPq7wBLTCAkROgLL0ggJGwfIQEC\nhAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQJWQuL70xGUlZC+NgSbCEk8BJsISTwEmwhJPASb\nCEk8BJsISTwEmwhJPASbCEk8BJsISTwEmwhJPASbCEk8BJsISTwEmwhJPASbCEk8BJsISTwE\nmwhJPASbCEk8BJsISTwEmwhJPASbCEk8BJsISTwEmwhJPASbCEk8BJsISTwEmwhJPASbCEk8\nBJsISTwEmwhJPASbCEk8BJsISTwEmwhJPASbCEk8BJsISTwEmwhJPASbCEk8BJsISTwEmwhJ\nPASbCEk8BJsISTwEmwhJPASbCEk8BJsISTwEmwhJPASbCEk8BJsISTwEmwhJPASbCEk8BJsI\nSTwEmwhJPASbCEk8BJsISTwEmwhJPASbCEk8BJsISTwEmwhJPASbCEk8BJsISTwEmwhJPASb\nCEk8BJsISTwEmwhJPASbCEk8BJsISTwEmwhJPASbCEk8BJsISTwEmwhJPASbCEk8BJsISTwE\nm+Ye5YfE+bxsttDSLzGBkBChmUd53sTjq5IuhATMPMovblc1dHC7+s0syBKTCAkRmneUZ+1Y\nfTt0cPsgS0wiJERo0VHehnQIucQrQkKElhzlpUvrG6fTzvk80BIjCAkRWnKUH9ypDqmRPm22\nb9EOviAkRGjBUV74+jSDc8fqtil/cwePkLB984/y0vduhUqXBFhiFCEhQvOP8nSQzps7cISE\n7Zt7lBdJWgy2Q0iwbOZRfrqfXfCufqFQ8eZpWULC9s07yovHWbrc5c3JhpN4iUmEhAjNO8p3\njzPbpW/eePNEEiFh++Yd5f2niMrcu+TdqxsICdvH9yOJh2ATIYmHYBMhiYdgEyGJh2ATIYmH\nYBMhiYdgEyGJh2ATIYmHYBMhiYdgEyGJh2ATIYmHYBMhiYdgEyGJh2ATIYmHYBMhiYdgEyGJ\nh2ATIYmHYBMhiYdgEyGJh2ATIYmHYBMhiYdgEyGJh2ATIYmHYBMhiYdgEyGJh2ATIYmHYBMh\niYdgEyGJh2ATIYmHYBMhiYdgEyGJh2ATIYmHYBMhiYdgEyGJh2ATIYmHYBMhiYdgEyGJh2AT\nIYmHYBMhiYdgEyGJh2ATIYmHYBMhiYdgEyGJh2ATIYmHYBMhiYdgEyGJh2ATIYmHYBMhiYdg\nEyGJh2ATIYmHYBMhiYdgEyGJh2ATIYmHYBMhiYdgEyGJh2ATIYmHYBMhiYdgEyGJh2ATIYmH\nYBMhiYdgEyGJh2ATIYmHYBMhiYdgEyGJh2ATIYmHYBMhiYdgEyGJh2ATIYmHYBMhiYdgEyGJ\nh2ATIYmHYBMhiYdgEyGJh2ATIYmHYBMhiYdgEyGJh2ATIYmHYBMhiYdgEyGJh2ATIYmHYBMh\niYdg09yj/JA4n5fNm7m/vyldYgIhIUIzj/Lc1XydT9q8mciXmEJIiNC8o/zidlVDB7e7Xs/O\nX64X787iJSYREiI07yjP2jHn6tumU/XW0e3FS0wiJERo0VFeh5S54lrfRGVhlnhFSIjQkqO8\ndGkb0/X+l3qJEYSECC05yg/1vbrxkFzfgiVGEBIitOAoL3x9d45bJGDJUV76tNkAIQELjvK0\nferIExIw+ygvkrRo3mjP2hWctYNpM4/yk0tvb+2b55FOLlcvMYWQEKF5R3lx74hXNgDXuUf5\nrndmO2neSKc/mZCwffOO8v5TRGXz6m/5EpMICRHi+5HEQ7CJkMRDsImQxEOwiZDEQ7CJkMRD\nsImQxEOwiZDEQ7CJkMRDsImQxEOwiZDEQ7CJkN4MzTNnKawdIYmHuB2ziZDEQ4RkEyGJhwjJ\nJkISDxGSTYQkHiIkmwhJPERINhGSeIiQbCIk8RAh2URI4iFCsomQxEOEZBMhiYcIySZCEg8R\nkk2EJB4iJJsISTxESDYRkniIkGwaHOWHpP59LS6Z/oH4i5dYjpAQof5Rfqp/lrevf6S3tCRC\nwvb1j/LUHa8Xl1yP7363xLIlBAgJEeof5fUN0qX+jWHaX0ROSNi+55Cy+hfwEdL8IUKyaXjX\n7nJy/spduyVDhGTT08kG5/b1DdIp1BIChIQIDU9/++Z3KifHcEssR0iIEE/IiocIyab+Ub7v\n3iizUEsIEBIiNDhrdzvHsOes3fwhQrKpf5TnTUlH35xxCLOEACEhQoOjvCrpnDiXXMItsRwh\nIULDozy/nQAPuMRihIQIPR3lufPam6PXJZYiJETo+ShPta/8HltiIUJChLqj3A2FWEKEkBAh\nQhIPEZJNvLJBPERINhGSeIiQbBoe5ce0uluXaV+zSkgwYHCUp7dHSNJvRyIkGNA/yg/O19+I\ndPLuEGoJAUJChPpHeeLaJ2PrH4ASaAkBQkKEnn9mw/AN+RIChIQIjd8i+VBLCBASIsRjJPEQ\nIdnEWTvxECHZ9PQ8UsbzSAuHCMkmXtkgHiIkmwhJPERINvESIfEQIdnEyQbxECHZxOlv8RAh\n2cRLhMRDhGQTLxESDxGSTbxESDxESDbxGEk8REg2cdZOPERINvESIfEQIdnEKxvEQ4RkEyGJ\nhwjJprG7dtLfIEtIsGD0ZIP0F/YREgwY/qKx7vQ3v2hs9hAh2dQ/yj1PyC4fIiSbeImQeIiQ\nbBretetukfJQSwgQEiI0OMqz5jHS2e/CLbEcISFC/H4k8RAh2URI4iFCsolXNoiHCMkmQhIP\nEZJNhCQeIiSb5h/lh9voPx9VERK2b/ZRfrm1cyEkxRRWbu5RfvH3kP71EldCwvZ1R3n+2etU\nDy69hXT45ytcCQnb13953QdPH7n8eg/pXz8phZCwfY+Qik9Cutyzy9xp5/y7F+cREravO8p3\nH7+y4R7S2A8eCvYyCUJClLqjvMxmhuTcsZrO39zBIyRs3+j3I/1tsv/Z5ZsfF05I2D5RSO9m\nCQnbN/8oJyTlFFZu/m/su6XjXVn9Wbx5WpaQsH3zf/b3LaS8/r70MnfTPwyPkLB9838bxS2k\n0jftvXkiiZCwffN/Y1/3qKjMvUvelUdI2D5+HJd4iJBs4jf2iYcIySZ+Y594iJBs4jf2iYcI\nySZ+Y594iJBs4oefiIcIySZCEg8Rkk2EJB4iJJsISTxESDYRkniIkGwiJPEQIdlESOIhQrKJ\nkMRDhGTT8EWrQX74DyFh+whJPERINg2O8v3td8jyWrv5Q4RkU/8o39+/jeJfPxd/9hIChIQI\n8Y194iFCsql/lPuPvtV81hIChIQI9Y/ynG/sWz5ESDaNfmPfu98tsXCJ5QgJERr7xr7pH1En\nWGIxQkKEeGWDeIiQbCIk8RAh2TQ8yk9ZfeY7KwIusRghIUKvJxuq93lpSYSE7Rv+XLu0rEM6\nuF2oJQQICREaPiFbti9q4JUN84cIyabnlwgR0sIhQrJp+LO/21skXiK0YIiQbBp5jMRLhJYM\nEZJNg6M842d/Lx4iJJten0fiZ38vGiIkm3hlg3iIkGzqH+WZ9lXfY0sIEBIiNPodsuGWECAk\nROj59HfgJQQICRHqH+Vllp4DLyFASIjQxM+1C7WEACEhQoQkHiIkmzj9LR4iJJsISTxESDaF\n+ZmQo0uIEBIiNAwpSE6EhO0jJPEQIdlESOIhQrKJkMRDhGQTIYmHCMkmQhIPEZJNj5CC/NrL\n/hIihIQIEZJ4iJBs4pUN4iFCsomQxEOEZBMhiYcIySZCEg8Rkk2EJB4iJJsISTxESDYRkniI\nkGwiJPEQIdlESOIhQrKJkMRDhGQTIYmHCMkmQhIPEZJNhCQeIiSbCEk8REg2EZJ4iJBsIiTx\nECHZREjiIUKyiZDEQ4RkEyGJhwjJJkISDxGSTYQkHiIkmwhJPERINhGSeIiQbCIk8RAh2URI\n4iFCsomQxEOEZBMhiYcIySZCEg8Rkk2EJB4iJJsISTxESDbNP8oP3Wjunc/LEEuMIiREaPZR\nful+iVLa/EKlJMAS4wgJEZp7lF/8LaSz85f6X2f5EhMICRGaeZQfXHoLKXen6s+j26uXmEJI\niNDMo9zl3S9uzlxxre/oZeolphASIjTzKL/cfwP68C/hElMICRGaf5S/DelPv9n5v3nm7Cwh\nIaxAIf1piS8eqISEsAhJPERINi0OyROSYgortzik9qxdMeesHSFhMxaHtG+eRzq5/PMlCAmb\nsTikBa9sICRsxuKQrklzijudsQQhYTOWh1Q2r/6eswQhYTN++f1IhITNICTxECHZREjiIUKy\niZDEQ4RkEyGJhwjJJkISDxGSTYQkHiIkmwhJPERINhGSeIiQbCIk8RAh2URI4iFCsomQxEOE\nZBMhiYcIySZCEg8Rkk2EJB4iJJsISTxESDYRkniIkGwiJPEQIdlESOIhQrKJkMRDhGQTIYmH\nCMkmQhIPEZJNhCQeIiSbCEk8REg2EZJ4iJBsIiTxECHZREjiIUKyiZDEQ4RkEyGJhwjJJkIS\nDxGSTYQkHiIkmwhJPERINhGSeIiQbCIk8RAh2URI4iFCsomQxEOEZBMhiYcIySZCEg8Rkk2E\nJB4iJJsISTxESDYRkniIkGwiJPEQIdlESOIhQrKJkMRDhGQTIYmHCMkmQhIPEZJNhCQeIiSb\nCEk8REg2EZJ4iJBsIiTxECHZREjiIUKyiZDEQ4RkEyGJhwjJJkISDxGSTYQkHiIkmwhJPERI\nNhGSeIiQbCIk8RAh2URI4iFCsomQxEOEZBMhiYcIySZCEg8Rkk2EJB4iJJsISTxESDYRkniI\nkGwiJPEQIdlESOIhQrKJkMRDhGQTIYmHCMkmQhIPEZJNhCQeIiSbCEk8REg2EZJ4iJBsIiTx\nECHZREjiIUKyiZDEQ4RkEyGJhwjJJkISDxGSTYQkHiIkmwhJPERINhGSeIiQbFoekmvNWIKQ\nsBmLQ7oQkmIKKycIKZu7BCFhMxaHdHD7uUsQEjZDENJh7hKEhM1YHFLmTjvn8zlLEBI2QxBS\nI33abN/U6EZD+p5Z+4cgFofk3PF6LfM3d/CshRT3EMIQPSFbuuTzJbZ5oMa+fwhC9cqGN08k\nEVJMQwiDkMRD0e8fglgckndl9Wfx5mlZQoppCGEsDil3eXOy4fT5Ets8UGPfPwSxOKTSN6e4\n3zyRREgxDSGM5Y+Ryty75N2rGwgppiGEwfcjiYei3z8EQUjioej3D0EQkngo+v1DEIQkHop+\n/xAEIYmHot8/BEFI4qHo9w9BEJJ4KPr9QxCEJB6Kfv8QBCGJh6LfPwRBSOKh6PcPQRCSeCj6\n/UMQhCQein7/EAQhiYei3z8EQUjioej3D0EQkngo+v1DEIQkHop+/xAEIYmHot8/BEFI4qHo\n9w9BEJJ4KPr9QxCEJB6Kfv8QBCGJh6LfPwRBSOKh6PcPQRCSeCj6/UMQhCQein7/EAQhiYei\n3z8EQUjioej3D0EQkngo+v1DEIQkHop+/xAEIYmHot8/BEFI4qHo9w9BEJJ4KPr9QxCEJB6K\nfv8QBCGJh6LfPwRBSOKh6PcPQRCSeCj6/UMQhCQein7/EAQhiYei3z8EQUjioej3D0EQkngo\n+v1DEIQkHop+/xAEIYmHot8/BEFI4qHo9w9BEJJ4KPr9QxCEJB6Kfv8QBCGJh6LfPwRBSOKh\n6PcPQRCSeCj6/UMQhCQein7/EAQhiYei3z8EQUjioej3D0EQkngo+v1DEIQkHop+/xAEIYmH\not8/BEFI4qHo9w9BEJJ4KPr9QxCEJB6Kfv8QBCGJh6LfPwRBSOKh6PcPQRCSeCj6/UMQhCQe\nin7/EAQhiYei3z8EQUjioej3D0EQkngo+v1DEIQkHop+/xAEIYmHot8/BEFI4qHo9w9BEJJ4\nKPr9QxCEJB765v7NM2ep2P3+miAk8dA29y92v79FJyTx0Db3L3aE9LlNHqix71/sCOlzmzxQ\nY9+/2BHS5zZ5oMa+f7EjpM9t8kCNff9iR0if2+SBGvv+xY6QPrfJAzX2/YsdIX1ukwdq7PsX\nO0L63CYP1Nj3L3aE9LlNHqix71/sCOlzmzxQY9+/2G0ipNw7n5czluBA/cEQIS0bmrI8pNTV\nkhlLcKD+YIiQlg1NWRzS2fnL9eLd+fMlOFB/MERIy4amLA4pd6fqz6Pbf74EB+oPhghp2dCU\nxSFlrqj+vLjs8yU4UH8wREjLhqYsDsm5/l8fLcGB+oMhQlo2NCVQSK5vanTmt0oDGkuP/cER\nv3gD/7xFAraPkACBxce/JyRAddaueHPWDti+xSHtm+eRTi4X7AywVl94ZQOwfcsf2iTNKe5U\nsC/Aai0PqWxe/S3YFWC9ONkGCBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEB\nAoQECBASIPDLkBzwS9KDWbmxeNfe5FKbvFBrvf4Iab1LbfJCrfX6I6T1LrXJC7XW64+Q1rvU\nJi/UWq8/QlrvUpu8UGu9/ghpvUtt8kKt9fojpPUutckLtdbrj5DWu9QmL9Rarz9CWu9Sm7xQ\na73+CGm9S23yQq31+iOk9S61yQu11uuPkNa71CYv1FqvP179DQgQEiBASIAAIQEChAQIEBIg\nQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQECPwsp987nZfh1Dt0lDL3gIblvP+xS\n5c653eX6hZUaZ/eVpfo/1z7wUpf6CizEK/0qpLS52pLg61y63zkQesG82b4vwy/lm803JX3h\nWix9ewUGXurSCynwUqcg/1M/Cuns/OV68e4ceJ1qCfeVBS9uV9Y3f7vgS+X1GrnLrt+5FrP2\nCgx//WXdm6GX8tXmy8zl2pV+FFLuTtWfR7cPu8zBpd29hcALZu0y9WqBl/KuvC30jWvxeLuV\nCL3U4bHlwEsd64SupfPalX4UUubq+6i9L0NhVNfZLaRvLei+tFR9HHxhpaL7ShR6qYM7dG8G\nXmrnLiFW+lFIzvX/CubyvFLgBUuXfmepvDnuwq+UuqLdeuilMnfaVY/7v7BU4q5739wRl660\n7ZBeVgq84KG+rxB+qer+1jcOuet1747Xb4XUSMMv5VyzlhevREhChc++stQh8839+tArNXd6\nvhOSq5K9ls0NbfCQ6pMNu/oKJKTZKwVdsPTpt5aq7umHP+SuSX2O+Dshtcr6VHTwkOrHSIV6\npR+F5L8d0jcWTJOvLdWedQq80q45qdVu/Uv/YfX2Ay/Vq0e50k/P2hWhT6Jd79dS+AWLJC2+\ntFTtcX4w2Eru7mv/YV9YqvdEhXKlH4W0b77YndrHzEHdQgq+4Kl5oPyFpdrnkZq7JoFX6ocU\n+vrrLlUWfKl280X936VcaeOvbLiHFHrB4t7RV17ZUGb1Y6SvXIvfeWVDXh/NZfMMaeClqi9B\nZX2y4biJVzZck/vZzsC6O8CBF9w9vniHXso/Nv+Na/F2BQZeqmwvVf6FpfZBrr9fhVQ2r7v9\nwkJdSIEX7N0LCn7Zqs0n7esAvnEt3q7A0EuV37tUp7TbvHClX4UEbAohAQKEBAgQEiBASIAA\nIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEB\nAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACGtQvvbAP2u6L/rd7uDF/xv\nrEL3izV90XvXD/cHz/jfWIW2mjKV/CZ7BEBIq9D9RmTnf7wjmEBIq9Ddj6v/dq5MXHZ7V+5d\n2t7dOyTOH362g+YR0ir0b5Gcy1x1F695V9o8cCqrt7LmMVT60720jJBWoQ2paB4jVbmUt3cd\n6zd39TtP9VvVY6jTj3fULEJahftZu7J++9y+q74ZOt9upjJXx1VWd/nwE4S0Cv3nkW5389qH\nS8NPcJwT/xWu+FXoB0JIMeKKX4U/hPT1fUIf1/8qTISU9h4jcZrhpwhpFSZCOtTn6vL6rN3R\n+Uv9b042/AghrcJESL3nkdLn1+LhqwhpFaZCqm6OXHZ/ZYPb0dGvEBIgQEiAACEBAoQECBAS\nIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBA\nSIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQL/A/MEDI74zRWuAAAAAElFTkSuQmCC\n",
      "text/plain": [
       "Plot with title \"Histogram for Price of the books\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# 6. What is the price range, that is most present in the top 100 ?\n",
    "  \n",
    "  # plot histogram\n",
    "  hist(amazon_books$price,\n",
    "       main = \"Histogram for Price of the books\",\n",
    "       xlab = \"Price\",\n",
    "       ylab = \"Freq of books\",\n",
    "       border = \"blue\",\n",
    "       color = \"blue\",\n",
    "       las = 1) # rotates the values printed on the y-axis by 1\n",
    "\n",
    "# Insigts drawn - Max books fall in the range $5 to $15.\n",
    "  "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 54,
   "metadata": {},
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "Warning message:\n",
      "\"Continuous x aesthetic -- did you forget aes(group=...)?\""
     ]
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAANlBMVEUAAAAzMzNNTU1oaGh8\nfHyMjIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enr6+vw8PD////agy6EAAAACXBIWXMA\nABJ0AAASdAHeZh94AAAcG0lEQVR4nO3diVYT2xpF4aJoVeSS93/Zm4YmYAqCZ5f7X5tvjnHV\ng6RmLWHetMZpA+A/M/U+AWAEhAQ0QEhAA4QENEBIQAOEBDRASEADhAQ04G9D+t86rHVcioqK\n/BFCoiigyB8hJIoCivwRQqIooMgfISSKAor8EUKiKKDIHyEkigKK/BFCoiigyB8hJIoCivwR\nQqIooMgfISSKAor8EUKiKKDIHyEkigKK/BFCoiigyB8hJIoCivwRQqIooMgfISSKAor8EUKi\nKKDIHyEkigKK/BFCoiigyB8hJIoCivwRQqIooMgfISSKAor8EUKiKKDIHyEkigKK/BFCoiig\nyB8hJIoCivwRQqIooMgfISSKAor8EUKiKKDIHyEkigKK/BFCoiigyB8hpAEUFxcXaytWJv9L\nIaR8xcXFyiUJ6YzDCyldcXGxdklCOuPwQkpXCKmCQkjxCiFVUAgpX+E+UgGFkAZQeNSuv0JI\nFAUU+SOERFFAkT9CSBQFFPkjhERRQJE/QkgUBRT5I4REUUCRP0JIFAUU+SOERFFAkT9CSBQF\nFPkj/ntIAI5wjUTRTZE/QkgUBRT5I4REUUCRP0JIFAUU+SOERFFAkT9CSBQFFPkjhERRQJE/\nQkgUBRT5I4REUUCRP0JIFAUU+SOERFFAkT9CSBQFFPkjhERRQJE/QkgUBRT5I4REUUCRP0JI\nFAUU+SOERFFAkT9CSBQFFPkjhERRQJE/QkgUBRT5I4REUUCRP0JIFAUU+SOERFFAkT9CSBQF\nFPkjhERRQJE/QkgUBRT5I4REUUCRP0JIFAUU+SOERFFAkT9CSBQFFPkjhERRQJE/QkgUBRT5\nI4REUUCRP0JIFAUU+SOERFFAkT9CSBQFFPkjhERRQJE/QkgUBRT5I4REUUCRP0JIFAUU+SOE\nRFFAkT9CSBQFFPkjhERRQJE/QkgUBRT5I4REUUCRP0JIFAUU+SOERFFAkT9CSBQFFPkjhERR\nQJE/QkgUBRT5I4REUUCRP0JIFAUU+SOERFFAkT9CSBQFFPkjhERRQJE/QkgUBRT5I4REUUCR\nP0JIFAUU+SOERFFAkT9CSBQFFPkjhERRQJE/QkgUBRT5I4REUUCRP+IrIc07nn4WEkWUoVRI\nRz+9lrTWia10XIqKivwRQqIooMgf8YWQ5uOfhUQRZagU0vNdpJeQLnZ8djHgW3HeNdLsGoki\n0VDoGum5JiFR5BmEtB4UZRT5I74Qkpt2FLmGYiG9fbBBSBQphkIhvbyiwSsbKOIMlUI6zVon\nttJxKSoq8kcIiaKAIn+EkCgKKPJHCImigCJ/hJAoCijyRwiJooAif4SQKAoo8kcIiaKAIn+E\nkCgKKPJHCImigCJ/hJAoCijyRwiJooAif4SQKAoo8kcIiaKAIn+EkCgKKPJHCImigCJ/hJAo\nCijyRwiJooAif4SQKAoo8kcIiaKAIn+EkCgKKPJHCImigCJ/hJAoCijyRwiJooAif4SQKAoo\n8kcIiaKAIn+EkCgKKPJHCImigCJ/hJAoCijyRwiJooAif4SQKAoo8kcIiaKAIn+EkCgKKPJH\nCImigCJ/hJAoCijyRwiJooAif4SQKAoo8kcIiaKAIn+EkCgKKPJHCImigCJ/hJAoCijyRwiJ\nooAif4SQKAoo8kcIiaKAIn+EkCgKKPJHCImigCJ/hJAoCijyRwiJooAif4SQKAoo8kcIiaKA\nIn+EkCgKKPJHCImigCJ/hJAoCijyRwiJooAif4SQKAoo8kcIiaKAIn+EkCgKKPJHCImigCJ/\nhJAoCijyRwiJooAif8R/DwnAEa6RKLop8kcIiaKAIn+EkCgKKPJHCImigCJ/hJAoCijyRwiJ\nooAif4SQKAoo8kcIiaKAIn+EkCgKKPJHCImigCJ/hJAoCijyRwiJooAif4SQKAoo8kcIiaKA\nIn+EkCgKKPJHCImigCJ/hJAoCijyRwiJooAif4SQKAoo8kcIiaKAIn+EkCgKKPJHCImigCJ/\nhJAoCijyRwiJooAif4SQKAoo8kcIiaKAIn+EkCgKKPJHCImigCJ/hJAoCijyRwiJooAif4SQ\nKAoo8kcIiaKAIn+EkCgKKPJHCImigCJ/hJAoCijyRwiJooAif4SQKAoo8kcIiaKAIn+EkCgK\nKPJHCImigCJ/hJAoCijyRwiJooAif4SQKAoo8kcIiaKAIn+EkCgKKPJHCImigCJ/hJAoCijy\nRwiJooAif4SQKAoo8kcIiaKAIn+EkCgKKPJHCImigCJ/hJAoCijyRwiJooAif4SQKAoo8kcI\niaKAIn+EkCgKKPJHCImigCJ/hJAoCijyRwiJooAif4SQKAoo8kcIiaKAIn/EF0Oa9z9sERJF\nlKFWSPuA5peihESRYigV0rwREkWmoVJI80ZIFKGG0iFd7Pj0YsB34tOQ5o1rJIpUQ51rpJd+\nhESRZygU0gEhUSQa6oT0crUkJIo8g5DWg6KMIn/EX4TklQ0UeYZiIZ1grRNb6bgUFRX5I4RE\nUUCRP0JIFAUU+SOERFFAkT9CSBQFFPkjhERRQJE/QkgUBRT5I4REUUCRP0JIFAUU+SOERFFA\nkT9CSBQFFPkjhERRQJE/QkgUBRT5I4REUUCRP0JIFAUU+SOERFFAkT9CSBQFFPkjhERRQJE/\nQkgUBRT5I4REUUCRP0JIFAUU+SOERFFAkT9CSBQFFPkjhERRQJE/QkgUBRT5I4REUUCRP0JI\nFAUU+SOERFFAkT9CSBQFFPkjhERRQJE/QkgUBRT5I4REUUCRP0JIFAUU+SOERFFAkT9CSBQF\nFPkjhERRQJE/QkgUBRT5I4REUUCRP0JIFAUU+SOERFFAkT9CSBQFFPkjhERRQJE/QkgUBRT5\nI4REUUCRP0JIFAUU+SOERFFAkT9CSBQFFPkjPgjpx/U0ba5+C4liAEO3kB4vpy2baboXEkW+\noVtIN9PttqLNz+lKSBT5hm4hbSN6+Z+QKNINQloPijKK/BGLIT3dtLudboREkW/o92DDPO2Z\nH4REkW/o+PD33eU0Xd4+ftKRkCgSDJ6QXQ+KMor8EUKiKKDIH7Ec0vX+A9Ol+0gUAxi6hXR7\neNx78qgdhZDOOPxSSPPhtUG/PY9EIaQzDr8U0nNAQqIQ0hmHXwrperp53Gwebz99rR2AI96F\n9PD8hOxnf49ircJXOi5FRUX+iMWQtldG+ydkP3vQTkgUCQbPI60HRRlF/gghURRQ5I84HdL+\nr8Y+IySKfIOQ1oOijCJ/xOmQvsJaJ7bScSkqKvJHLIZ09dlLg4REEWTo+BIhIVH8K0X+iMWQ\nfl99/hSSkChSDB1fa+fBhhTFxcXF2oqVyf9SCClfcXGxcklCOuPwSyGdzVonttJxx1NcXKxd\nkpDOOLyQ0hVCqqBYDmn/otWrOyFVVwipgmIxpAfva5eicB+pgGIxpKvpapvQw5X3bKiv8Khd\nf8ViSE+P1j161I5CSGccfimk6+nwHqv+WRcKIZ1x+KWQNje7f6zv4erKfSSKAQwFnpD95EnZ\ntU5speNSVFTkjxASRQFF/ojFkM5mrRNb6bgUFRX5IxZCur/c/Xg7TTfeRYhCSGcc/mRIhzcq\nvvKELMW/UeSPOB3SzfRze600TQ/bX3lClmIAQ5+Q9ldId9OdJ2Qp/okif8TJkKbp7MfshEQR\nYeh3jXS/v1H3OM2ukSjyDX1Cut7eR7qafm87up5uhUSRb+gT0v3uBt31/qrJo3YUQjrj8CdD\n2vya9x1t5pvHTzoSEkWCwSsb1oOijCJ/hJAoCijyRyyH9GPe3VeaP33ThrVObKXjUlRU5I9Y\nDOnHNB3et+GzktY6sZWOS1FRkT9iMaTL6X77vx+/PY9EIaQzDr8U0vYK6dd0+fLeDUKiiDZ0\nC2meHm6m37t7SUKiyDd0C+lu91codldIXtlAMYCh36N2t9P8a3vF9FlHQqJIMHgeaT0oyijy\nRyyG9Ovp50d/sY9iAEO/R+0Ot+l+fvpPYK51Yisdl6KiIn/EYki3u2diH649IUshpHMOvxTS\ntqRfP6Zp93arQqKIN3R8sOF2muafn2UkJIoIQ89H7W4/vVknJIoQQ5+Qzn/rEyFRRBiEtB4U\nZRT5I06H9BXWOrGVjktRUZE/QkgUBRT5I5ZD2v+r5pe33vyEQkhnHH4pJP+qOcW/U+SPWAzp\nxr9qTvHPFPkjFkN6frTOo3YUQjrj8EKi6K/IH7EYkpt2FP9OkT9iMSQPNlD8O0X+iMWQPPxN\n8e8U+SOWQzqXtU5speNSVFTkjxASRQFF/ojlkP68aTdvOf5ZSBQxhkIPNsxPP8wv/yEkihRD\noYe/hUSRa6j2hKyQKCINpUO62LEB8MoZr2w4PMjgGokiz1DowYbNU0BCosgzVHr4W0gUsYZC\nT8h61I4i1yCk9aAoo8gfsRzS4abdnVc2UAjpjMMvheSvUVD8O0X+iMWQrp4f/r4WEkW+ofcT\nso/+qnl9xcXFxdqKlcn/UiyGdD0d7h25Riqv2L/AZF3F2uR/KRZD2lwfbtp91pGQeisuLtYu\nSUhnHP5kSN5EP0ghpAoKIcUrhFRBcTqkr7DWia103AEV7iMVUJwV0ofXSmud2ErHHVHhUbv+\nCiFRFFDkjxDSAArXSP0VQspXuI9UQCGkeIVH7SoohBSvEFIFhZDiFUKqoBBSvEJIFRRCilcI\nqYJCSPkKj9oVUJwV0oesdWIrHXdAhZAKKJZDup29aDVC4aZdBcViSLde/R2iEFIFxWJI8/Tj\nk4KEVEMhpAqKxZA+vSYSUhWF+0gFFIshPb9ng5DqK7xotb9iMaSH+eqzd7QTEkWMoeNNOw82\nUPwrRf4IIVEUUOSPWAzpbNY6sZWOO6Ri3btIQjrn8EIaQCGk7orlkE7/Q2NCqqgQUnfFYkj+\nNYoghZC6KxZDOvWPMQupqEJI3RWLIT0/WudRuwCFkLorhDSCQkjdFYshuWkXpBBSd8ViSB5s\nCFIIqbtiMSQPfwcphNRdsRzSuax1Yisdd0iFkLorhDSCQkjdFYshTdPV089CKq8QUnfFByEd\nShJSgEJI3RUfXSPtSxJSgEJI3RUfhLTZP4ckpACFkLorPgppW9KtkBIUQuqu+DCkx3m6FVKA\nQkjdFR+GdHh5g5DKK4TUXfFxSPuShFReIaTuisWQzmatE1vpuEMqhNRdsRzSrXcRilEIqbti\nMSRvoh+kEFJ3xWJI8/T7anp4vJruhVReIaTuisWQttdEd9OvzePTS+6EVFkhpO6Kj0L6tfuX\nXdy0C1AIqbtiMaTr6efDdLm5F1KAQkjdFYsh3e9fbLfFezbUVwipu2IxpM2vy907oEy3n3Qk\npAIKIXVXLId0Lmud2ErHHVIhpO4KIY2gEFJ3hZBGUAipu2IxpMcbr2yIUQipu2IxpOtzXyKE\n/lz0PgG88scTsj/Pu9xaha903CEVrpG6KxZDujz3mmitE1vpuEMqhNRdsRjSwxnvViykIgoh\ndVcshrT56cGGGIWQuisWQzr7wYa1Tmyl4w6pEFJ3xWJIHmwIUgipu+KDa6TzOhJSAYWQuisW\nQ9pc33z2T4wJqYpCSN0ViyFN7iPlKITUXSGkERRC6q5YDOls1jqxlY47pEJI3RVCGkEhpO6K\n5ZC8QWSOQkjdFYsheYPIIIWQuisWQ/IGkUEKIXVXLIbkDSKDFELqrvgoJG8QmaIQUnfFYkje\nIDJIIaTuisWQvEFkkEJI3RWLIXmDyCCFkLorlkM6l7VObKXjDqkQUneFkEZQCKm7QkgjKITU\nXSGkERRC6q4Q0ggKIXVXCGkEhZC6K4Q0gkJI3RVCGkEhpO4KIY2gEFJ3hZBGUAipu0JIIyiE\n1F0hpBEUQuquENIICiF1VwhpBIWQuiuENIJCSN0VQhpBIaTuCiGNoBBSd4WQRlAIqbtCSCMo\nhNRdIaQRFELqrhDSCAohdVcIaQSFkLorhDSCQkjdFUIaQSGk7gohjaAQUneFkEZQCKm7Qkgj\nKITUXSGkERRC6q4Q0ggKIXVXCGkEhZC6K4Q0gkJI3RVCGkEhpO4KIY2gEFJ3hZBGUAipu0JI\nIyiE1F0hpBEUQuquENIICiF1VwhpBIWQuiuENIJCSN0VQhpBIaTuCiGNoBBSd4WQRlAIqbtC\nSCMohNRd8ZWQ5i3HPwupikJI3RVfCGl++mF++Q8hFVEIqbtCSCMohNRd8YWQnmsSUjmFkLor\n/lNIFzvOuhhWxRehEGeFNG9cIxVUuEbqrhDSCAohdVd8LaT57Q9CKqIQUnfFl0Ka39UkpCIK\nIXVXfCWk+f3VkpCKKITUXfGFkOb56SUNXtlQTSGk7oqvXCOdZq0TW+m4QyqE1F0hpBEUQuqu\nENIICiF1VwhpBIWQuiuENIJCSN0VQhpBIaTuCiGNoBBSd4WQRlAIqbtCSCMohNRdIaQRFELq\nrhDSCAohdVcIaQSFkLorhDSCQkjdFUIaQSGk7gohjaAQUneFkEZQCKm7QkgjKITUXSGkERRC\n6q4Q0ggKIXVXCGkEhZC6K4Q0gkJI3RVCGkEhpO4KIY2gEFJ3hZBGUAipu0JIIyiE1F0hpBEU\nQuquENIICiF1VwhpBIWQuiuENIJCSN0VQhpBIaTuCiGNoBBSd4WQRlAIqbtCSCMohNRdIaQR\nFELqrhDSCAohdVcIaQSFkLorhDSCQkjdFUIaQSGk7gohjaAQUneFkEZQCKm7QkgjKITUXSGk\nERRC6q4Q0ggKIXVXCGkEhZC6K4Q0gkJI3RVCGkEhpO4KIY2gEFJ3hZBGUAipu0JIIyiE1F3x\nT0K6AKKpEtJfHhoogZCABggJaICQgAYICWiAkIAGCAlogJCABggJaICQgAb8k5DOOY/1Dg2s\nz5e+gV0jAadx0w5ogJCABggJaICQgAYICWiAkIAGCAlogJCABggJaICQgAYICWiAkIAGCAlo\ngJCABggJaICQgAYICWiAkIAGCAlogJCABggJaICQgAYICWiAkIAGCAlogJCABggJaICQgAYI\nCWiAkIAGCAlogJCABggJaICQgAYICWiAkIAGCAlogJCABpQJCYhGSEADhAQ0oEpIf3looARC\nAhogJKABQgIaICSgAUICGiAkoAFCAhogJKABQgIaICSgAUICGiAkoAFCAhogJKABQgIaICSg\nAUICGiAkoAFCAhogJKABzUOaDz9uef2YkDA6rUM69PP6wx4hYXQahzRvhITvyDo37YSEb8ba\nIe3fhPKc8/j6qQN1+NI3sGsk4DRu2gENEBLQACEBDRAS0ACvbAAa4LV2QAOEBDRASEADhAQ0\nQEhAA4QENEBIQAOEBDRASEADhAQ0QEhAA4QENEBIQAOEBDRASEADhAQ0QEhAA4QENEBIQAOE\nBDSgTEhANEVC+hvWOu6QijO+0P9VkW5YWyGkERRC6q4Q0ggKIXVXCGkEhZC6K4Q0gkJI3RVC\nGkEhpO4KIY2gEFJ3hZBGUAipu0JIIyiE1F0hpBEUQuquENIICiF1VwhpBIWQuiuENIJCSN0V\nQhpBIaTuCiGNoBBSd4WQRlAIqbtCSCMohNRdIaQRFELqrhDSCAohdVcIaQSFkLorhDSCQkjd\nFUIaQSGk7gohjaAQUneFkEZQCKm7QkgjKITUXSGkERRC6q4Q0ggKIXVXCGkEhZC6K4Q0gkJI\n3RVCGkEhpO4KIY2gEFJ3hZBGUAipu0JIIyiE1F0hpBEUQuquENIICiF1VwhpBIWQuiuENIJC\nSN0VQhpBIaTuCiGNoBBSd8V/Dwn9ueh9AnjFNVKuwjVSd4WQRlAIqbtCSCMohNRdIaQRFELq\nrhDSCAohdVcIaQSFkLorhDSCQkjdFUIaQSGk7gohjaAQUneFkEZQCKm7QkgjKITUXSGkERRC\n6q4Q0ggKIXVXCGkEhZC6K4Q0gkJI3RVCGkEhpO4KIY2gEFJ3hZBGUAipu0JIFAUU+SOERFFA\nkT9CSBQFFPkjhERRQJE/QkgUBRT5I4REUUCRP0JIFAUU+SOERFFAkT9CSBQFFPkjhERRQJE/\nQkgUBRT5I4REUUCRP0JIFAUU+SOERFFAkT9CSBQFFPkjhERRQJE/QkgUBRT5I4REUUCRP0JI\nFAUU+SOERFFAkT9CSBQFFPkjhERRQJE/QkgUBRT5I4REUUCRP0JIFAUU+SOERFFAkT9CSBQF\nFPkjhERRQJE/QkgUBRT5I4REUUCRP0JIFAUU+SOERFFAkT9CSBQFFPkjhERRQJE/QkgUBRT5\nI/57SLlc9D6BJgyxYogRTwgpkyFWDDHiCSFlMsSKIUY8IaRMhlgxxIgnvl9IwAoICWiAkIAG\nCAlogJCABggJaMB3Cmne8vzz3Ptk/prns08eMR+PiF3xhm8U0vz8Q/ZXbj76KXpJ/pfiGCGl\nMUpI8QPe8o1C2jOnf/Hm45+Tp+T/X9obvmNI0bfLX+5dbDbR34gD3Ft9wzcLKf9b8Pnss1cc\nn3/wiCO+YUhvfxHJKCG9+1Uy3yukUb56+SHNJ38ZzLcKaX79MfarN8hNuxG+FG/4TiEdPXCc\n+8Wbj/4XPiP9S/GGbxTSPMJrAt6+PqP3ufw9z/+nFj3imG8UErAeQgIaICSgAUICGiAkoAFC\nAhogJKABQgIaIKSR8NXshj/6qkwffmlO/O799TRNN7//4pKNPvlb4w+qKl/N4dd04F5IPfAH\nVZWv5jBPP7dfzZ/TpZB64A+qObubWPPtZv9deD1dbx4up+vHo48/XXNs/+Qfbra3xR72n/lw\nfbjMK/tLX+1+9/Xzji+x/eF2+rXZ3M3T5Y+nj0xfuuSR6vd89ebEn0/nxCfjJEJqzdNNrH0x\nu3stPy93d12OPv4S0uO8+2l+3H3m/HSZVw6X3v3u6+cdX2L3DX67+2HHtqRtO/fTVy55rLra\nnuHxic8vv/rjk3ESIbXmcnsTa/N7f/2w/e78uft+/Ln7r9eP77iarrbfoVe7X+y/X68eNz+m\nN3+jYP+xq0Mrz593fIntf9ztP+1hc7+/5K6eu/vzL3msun134s+nc+KTcRIhtefh193V4fvx\nYffD4/NdjeePbw4dbb9zt7//sL1Tc/jMd3dIppffvTzxq+33/uEG1zzdPN/w+r299bY77pmX\nfKd6f+KH24p/fjJOIqTmXD3fBdqH8frDy8c3j/uOnsJ5+cw/Qvrzd49/tb89t73FuL0Vdvnw\nfJm7w23Hsy75XvXuxJc+GScRUmtutvf9fz38GdLrxx/m3X2m/xrS3fx0PfL7cprvny6z2QnO\nvuRb1bsTX/pknERIrTlc5/wZ0svHtx0d7r0f39x6ueTRcT6+gba953X99Kk/dpect7chD5ov\nXPLolN+f+PNJv/9knERIrdk9Jfp4dSqkp48/d/T2AYDNnyFd7T7/bvEhg+0vfu76ud/83j0u\ncDNdP06PN9sruzMveaw6ceIv9b/7ZJxESK25nU7fR3r5+MmHvzebP0P67EHs37tfHQ579/x7\n0/xw7iWPVSdO/CWkd5+MkwipOTfT7hmdPx9seP74ySdkN5s/Q9o9nfvh06p3u/tat/M07x+g\nftj+av+b517yWPXnib/eHn37yTiJkEbCV7Mb/uhHwlezG/7oSzFNrzf8xlF9B/wplkJIqfhT\nBBogJKABQgIaICSgAUICGiAkoAFCAhogJKAB/wd2pc7fgRfTuwAAAABJRU5ErkJggg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# 7. boxplot to see the price data distribution\n",
    "ggplot(amazon_books,\n",
    "       aes(x = amazon_books$book_rank,y = amazon_books$price)) + \n",
    "  geom_boxplot()\n",
    "\n",
    "# Insights - 2 books have extreme values !"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 55,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>1-10</li>\n",
       "\t<li>1-10</li>\n",
       "\t<li>1-10</li>\n",
       "\t<li>1-10</li>\n",
       "\t<li>1-10</li>\n",
       "\t<li>1-10</li>\n",
       "</ol>\n",
       "\n",
       "<details>\n",
       "\t<summary style=display:list-item;cursor:pointer>\n",
       "\t\t<strong>Levels</strong>:\n",
       "\t</summary>\n",
       "\t<ol class=list-inline>\n",
       "\t\t<li>'1-10'</li>\n",
       "\t\t<li>'11-20'</li>\n",
       "\t\t<li>'21-30'</li>\n",
       "\t\t<li>'31-40'</li>\n",
       "\t\t<li>'41-50'</li>\n",
       "\t\t<li>'51-60'</li>\n",
       "\t\t<li>'61-70'</li>\n",
       "\t\t<li>'71-80'</li>\n",
       "\t\t<li>'81-90'</li>\n",
       "\t\t<li>'91-100'</li>\n",
       "\t</ol>\n",
       "</details>"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 1-10\n",
       "\\item 1-10\n",
       "\\item 1-10\n",
       "\\item 1-10\n",
       "\\item 1-10\n",
       "\\item 1-10\n",
       "\\end{enumerate*}\n",
       "\n",
       "\\emph{Levels}: \\begin{enumerate*}\n",
       "\\item '1-10'\n",
       "\\item '11-20'\n",
       "\\item '21-30'\n",
       "\\item '31-40'\n",
       "\\item '41-50'\n",
       "\\item '51-60'\n",
       "\\item '61-70'\n",
       "\\item '71-80'\n",
       "\\item '81-90'\n",
       "\\item '91-100'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 1-10\n",
       "2. 1-10\n",
       "3. 1-10\n",
       "4. 1-10\n",
       "5. 1-10\n",
       "6. 1-10\n",
       "\n",
       "\n",
       "\n",
       "**Levels**: 1. '1-10'\n",
       "2. '11-20'\n",
       "3. '21-30'\n",
       "4. '31-40'\n",
       "5. '41-50'\n",
       "6. '51-60'\n",
       "7. '61-70'\n",
       "8. '71-80'\n",
       "9. '81-90'\n",
       "10. '91-100'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] 1-10 1-10 1-10 1-10 1-10 1-10\n",
       "Levels: 1-10 11-20 21-30 31-40 41-50 51-60 61-70 71-80 81-90 91-100"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAANlBMVEUAAAAzMzNNTU1oaGh8\nfHyMjIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enr6+vw8PD////agy6EAAAACXBIWXMA\nABJ0AAASdAHeZh94AAAgAElEQVR4nO2diVbjOBQFTdh6Zcj//+xAWERfYhMF2arY9c6Z6UW3\nK9dyCpOl08PecZxvz9C7gOOsYRTJcRqMIjlOg1Ekx2kwiuQ4DUaRHKfBKJLjNBhFcpwGc65I\n/9VMXVoWtpisDCsSmYUtJivDikRmYYvJyrAikVnYYrIyrEhkFraYrAwrEpmFLSYrw4pEZmGL\nycqwIpFZ2GKyMqxIZBa2mKwMKxKZhS0mK8OKRGZhi8nKsCKRWdhisjKsSGQWtpisDCsSmYUt\nJivDikRmYYvJyrAikVnYYrIyrEhkFraYrAwrEpmFLSYrw4pEZmGLycqwIpFZ2GKyMqxIZBa2\nmKwMKxKZhS0mK8OKRGZhi8nKsCKRWdhisjKsSGQWtpisDCsSmYUtJivDikRmYYvJyrAikVnY\nYrIyrEhkFraYrAwrEpmFLSYrw4pEZmGLycqwIpFZ2GKyMqxIZBa22AZYV1dXNTesSGQWttj6\nWVdXVSYpEpqFLbZ61tVVnUmKhGZhi62epUirYmGLrZ6lSKtiYYutn+VjpDWxsMU2wPJZuxWx\nsMVkZViRyCxsMVkZViQyC1tMVoYViczCFpOVYUUis7DFZGVYkcgsbDFZGVYkMgtbTFaGFYnM\nwhaTlWFFIrOwxWRl+NsiOY7zYbwiAVnYYrIyrEhkFraYrAwrEpmFLSYrw4pEZmGLycqwIpFZ\n2GKyMqxIZBa2mKwMKxKZhS0mK8OKRGZhi8nKsCKRWdhisjKsSGQWtpisDCsSmYUtJivDikRm\nYYvJyrAikVnYYrIyrEhkFraYrAwrEpmFLSYrw4pEZmGLycqwIpFZ2GKyMqxIZBa2mKwMKxKZ\nhS0mK8OKRGZhi8nKsCKRWdhisjKsSGQWtpisDCsSmYUtJivDikRmYYvJyrAikVnYYrIyrEhk\nFraYrAwrEpmFLSYrw4pEZmGLycqwIpFZ2GKyMqxIZBa2mKwMKxKZhS0mK8OKRGZhi8nKsCKR\nWdhisjKsSGQWtpisDCsSmYUtJivDikRmYYvJyrAikVnYYrIyrEhkFraYrAwrEpmFLSYrw4pE\nZmGLycqwIpFZ2GKyMqxIZBa2mKwMKxKZhS0mK8OKRGZhi8nKsCKRWdhisjKsSGQWtpisDCsS\nmYUtJivDikRmYYvJyrAikVnYYrIyrEhkFraYrAwrEpmFLSYrw4pEZmGLycqwIpFZ2GKyMqxI\nZBa2mKwMKxKZhS0mK8OKRGZhi8nKsCKRWdhisjKsSGQWtpisDCsSmYUtJivDikRmYYvJyrAi\nkVnYYrIyrEhkFraYrAwrEpmFLSYrwxUi7Z7n9UdFWoSFLSYrwzUiffihmDRfN1ncYrIyrEhk\nFraYrAyfLtLu44+KtAgLW0xWhitEenuI9C7S1fN89cccZ1Nz2hVp5xVpSRa2mKwMny7Sm02K\ntBwLW0xWhhWJzMIWk5Xh00XyW7vlWdhisjJcJ9K/TzYo0twsbDFZGT5dpPd3NPjOhsVY2GKy\nMlwh0vGZr5ssbjFZGVYkMgtbTFaGFYnMwhaTlWFFIrOwxWRlWJHILGwxWRlWJDILW0xWhhWJ\nzMIWk5VhRSKzsMVkZViRyCxsMVkZViQyC1tMVoYViczCFpOVYUUis7DFZGVYkcgsbDFZGVYk\nMgtbTFaGFYnMwhaTlWFFIrOwxWRlWJHILGwxWRlWJDILW0xWhhWJzMIWk5VhRSKzsMVkZViR\nyCxsMVkZViQyC1tMVoYViczCFpOVYUUis7DFZGVYkcgsbDFZGVYkMgtbTFaGFYnMwhaTlWFF\nIrOwxWRlWJHILGwxWRlWJDILW0xWhhWJzMIWk5VhRSKzsMVkZViRyCxsMVkZViQyC1tMVoYV\niczCFpOVYUUis7DFZGVYkcgsbDFZGVYkMgtbTFaGFYnMwhaTlWFFIrOwxWRlWJHILGwxWRlW\nJDILW0xWhhWJzMIWk5VhRSKzsMVkZViRyCxsMVkZViQyC1tMVoYViczCFpOVYUUis7DFZGVY\nkcgsbDFZGVYkMgtbTFaGFYnMwhaTlWFFIrOwxWRlWJHILGwxWRlWJDILW0xWhhWJzMIWk5Vh\nRSKzsMVkZViRyCxsMVkZViQyC1tMVoYViczCFpOVYUUis7DFZGX42yI5jvNhvCIBWdhisjKs\nSGQWtpisDCsSmYUtJivDikRmYYvJyrAikVnYYrIyrEhkFraYrAwrEpmFLSYrw4pEZmGLycqw\nIpFZ2GKyMqxIZBa2mKwMKxKZhS0mK8OKRGZhi8nKsCKRWdhisjKsSGQWtpisDCsSmYUtJivD\nikRmYYvJyrAikVnYYrIyrEhkFraYrAwrEpmFLSYrw4pEZmGLycqwIpFZ2GKyMqxIZBa2mKwM\nKxKZhS0mK8OKRGZhi8nKsCKRWdhisjKsSGQWtpisDCsSmYUtJivDikRmYYvJyrAikVnYYrIy\nrEhkFraYrAwrEpmFLSYrw4pEZmGLycqwIpFZ2GKyMqxIZBa2mKwMKxKZhS0mK8OKRGZhi8nK\nsCKRWdhisjKsSGQWtpisDCsSmYUtJivDikRmYYvJyrAikVnYYrIyrEhkFraYrAwrEpmFLSYr\nw4pEZmGLycqwIpFZ2GKyMqxIZBa2mKwMKxKZhS0mK8OKRGZhi8nKsCKRWdhisjKsSGQWtpis\nDCsSmYUtJivDikRmYYvJyrAikVnYYrIyrEhkFraYrAwrEpmFLSYrw4pEZmGLycqwIpFZ2GKy\nMqxIZBa2mKwMKxKZhS0mK8OKRGZhi8nKsCKRWdhisjKsSGQWtpisDNeJtDv872kUaREWtpis\nDFeJdBBo926UIs3NwhaTleEakXZ7RVqWhS0mK8MVIu32irQwC1tMVoa/I9LV83z5xxxnS/Ol\nSLu9V6SlWdhisjJ8skjv/ijScixsMVkZPl2kl1GkJVnYYrIyfLJI75clRVqOhS0mK8OKRGZh\ni8nKcL1IvrNhORa2mKwM14l0ZObrJotbTFaGFYnMwhaTlWFFIrOwxWRlWJHILGwxWRlWJDIL\nW0xWhhWJzMIWk5VhRSKzsMVkZViRyCxsMVkZViQyC1tMVoYViczCFpOVYUUis7DFZGVYkcgs\nbDFZGVYkMgtbTFaGFYnMwhaTlWFFIrOwxWRlWJHILGwxWRlWJDILW0xWhhWJzMIWk5VhRSKz\nsMVkZViRyCxsMVkZViQyC1tMVoYViczCFpOVYUUis7DFZGVYkcgsbDFZGVYkMgtbTFaGFYnM\nwhaTlWFFIrOwxWRlWJHILGwxWRlWJDILW0xWhhWJzMIWk5VhRSKzsMVkZViRyCxsMVkZViQy\nC1tMVoYViczCFpOVYUUis7DFZGVYkcgsbDFZGVYkMgtbTFaGFYnMwhaTlWFFIrOwxWRlWJHI\nLGwxWRlWJDILW0xWhhWJzMIWk5VhRSKzsMVkZViRyCxsMVkZViQyC1tMVoYViczCFpOVYUUi\ns7DFZGV4XKSft8Owv/mrSB1Z2GKyMjwm0uP18DT7YfijSP1Y2GKyMjwm0t1w/2TR/tdwo0j9\nWNhisjI8JtKTRO//KVIvFraYrAwrEpmFLSYrw2MivX5rdz/cKVI/FraYrAyPifS4Gw6ze1Ck\nfixsMVkZHhNpv/9xPQzX949feKRIc7KwxWRleFykE2e+brK4xWRlWJHILGwxWRkeFen28BvD\ntY+ROrKwxWRleEyk+5fnvQeftevJwhaTleExkXYv7w366+tIPVnYYrIyPCbSm0CK1JOFLSYr\nw2Mi3Q53j/v94/2X77VzHOfDhEgPby/IfvX3KOaTXBa3mKwMj4n0dDE6vCD71ZN2ijQnC1tM\nVoZHRTp15usmi1tMVoYViczCFpOV4aMiHf5q7NsoUj8WtpisDCsSmYUtJivDR0Wqmfm6yeIW\nk5XhMZFuvnprkCItwMIWk5XhMZF2p16h5usmi1tMVobHRPp78/VLSIo0NwtbTFaGx0TyyQYC\nC1tsA6yrq6uaG1YkMgtbbP2sq6sqk0ZFOnmq2jH3jMvCFls96+qqziRFQrOwxVbPaifS4U2r\nNz8UqScLW2z1rGYiPfi5dgAWttj6Wa0eI90MN08KPdz4mQ09WdhiG2A1e9bu8MOjz9r1ZGGL\nycrwmEi3w8tnrPrPuvRkYYvJyvCYSPu753+s7+HmxsdIHVnYYrIyPCbS8M8oUh8WtpisDCsS\nmYUtJivDYyKdPPN1k8UtJivDx0X6c/38//thuPNThHqysMVkZfioSC8fVHzjC7K9WdhisjJ8\nVKS74dfTVWkYHp5+5guyHVnYYrIyfFSkwwXpx/DDF2Q7s7DFZGX4mEjDcPJzdoo0KwtbTFaG\nR69Ifw7f1D0OO69I/VjYYrIyfFSk26fHSDfD3yePbod7RerHwhaTleGjIv15/obu9nBp8lm7\nnixsMVkZPirS/vfu4NF+d/f4hUeKNCcLW0xWho+LVDHzdZPFLSYrw4pEZmGLycrwqEg/d8+P\nlXZffmjDfN1kcYvJyvCYSD+H4eVzG74yab5usrjFZGV4TKTr4c/Tfz//+jpSTxa2mKwMj4n0\ndEH6PVy/f3aDInVhYYvJyvCYSLvh4W74+/woSZH6sbDFZGV4TKQfz3+F4vmC5DsbOrKwxWRl\neEyk/f2w+/10YfrKI0Wak4UtJivDoyKdOvN1k8UtJivDYyL9fv3x0b/Y15GFLSYrw2MivT42\n+vXlP4E5XzdZ3GKyMjwm0v3zK7EPt74g25WFLSYrw2MiPZn0++cwPH/cqiJ1Y2GLycrwqEjP\nH8a1+/WVRoo0KwtbTFaGx0V6+e5OkXqysMVkZfioSKd/9IkizcrCFpOVYUUis7DFZGX4qEg1\nM183WdxisjKsSGQWtpisDI+KdPhXza/v/fCTnixsMVkZHhPJf9WcwMIWk5XhMZHu/FfNASxs\nMVkZHhPp7dk6n7XrycIWk5VhRSKzsMVkZXhMJL+1I7CwxWRleEwkn2wgsLDFZGV4TCSf/iaw\nsMVkZXhUpFNnvm6yuMVkZViRyCxsMVkZHhXp87d2u6f5+KMizc7CFpOV4TGRPj/ZsHv93+79\nF4o0NwtbTFaGx0T6/PS3Ii3PwhaTleExkUZekFWkRVnYYrIy/B2Rrp5n7zhOmRPe2fDyJINX\npOVY2GKyMjwm0sg7G/zWblEWtpisDI+JNPLOBkValIUtJivDoyJ9Gp+1W56FLSYrw4pEZmGL\nycrwqEgv39r98J0NPVnYYrIyPCaSf42CwMIWk5XhMZFu3p7+vlWkfixsMVkZHhPp9YXYx038\nVfOrq6t2MEXaImtUpNvh5dHRFq5Ih3doNKMp0hZZoyLtb1++tfvKoxWIdHXV1CRF2iLruEjb\n+hB9RZL1bZYiKZKsBqzjItXMfN0WY/kYSdZ3WSeJNHlVmq/bciyftZP1TZYioVnYYrIyrEhk\nFraYrAwrEpmFLSYrw4r0n4+RZH2bpUj/+axdZ1bDL2KKdMb4OtJKWIqkSMdGkSpHkRTp2ChS\n5SjSSkRq+xip6RMX0A1TpM/hU0SanPm6Lcdq6xH1KUAqa+Ui3e+28qbVlqzG3yYyD7Ixa90i\n3W/n3d8tWYpUP+sWaTf8/MIgRToyilQ/6xbpyyuRIh0dHyNVz7pFevvMBkWqHJ+1q51V7Neo\nSA+7m68+0U6RZmdhiylShsdE2tBfNQezsMUUKcOKRGZhiylShsdEOnnm6yaLW0yRMqxIZBa2\nmCJleFSk4//QmCItysIWU6QMj4nkv0ZBYGGLKVKGx0Q69o8xK9LSLGwxRcrwmEhvz9b5rF1P\nFraYImVYkcgsbDFFyvCYSH5rR2BhiylShsdE8skGAgtbTJEyPCaST38TWNhiipThUZFOnfm6\nyeIWU6QMKxKZhS2mSBkeE2kYbl5/VKR+LGwxRcrwuEgvJilSTxa2mCJleOKKdDBJkXqysMUU\nKcPjIu0PryEpUk8WtpgiZXhCpCeT7hWpKwtbTJEyPCXS4264V6SeLGwxRcrwlEgvb29QpH4s\nbDFFyvCkSAeTFKkfC1tMkTI8JtLJM183WdxiipThUZHu/RSh/ixsMUXK8JhIfog+gYUtpkgZ\nHhNpN/y9GR4eb4Y/itSPhS2mSBkeE+npSvRj+L1/fH3LnSJ1YWGLKVKGJ0T6/fwvu/itXU8W\ntpgiZXhMpNvh18Nwvf+jSD1Z2GKKlOExkf4c3mz3NH5mQ0cWtpgiZXhMpP3v6+dPQBnuv/BI\nkeZkYYspUoZHRTp15usmi1tMkTKsSGQWtpgiZViRyCxsMUXK8JhIj3e+s6E/C1tMkTI8JtLt\nqW8RcpzvzVXvAm3n0wuyv077c/NJLotbrOVVZN1XpOtTr0TzdZPFLaZIGR4T6eGETytWpLlZ\n2GKKlOExkfa/fLKhPwtbTJEyPCbSyU82zNdNFreYImV4TCSfbCCwsMUUKcPjV6TTPFKkOVnY\nYoqU4TGR9rd3X/0TY4o0OwtbTJEyPCbS4GMkAAtbTJEyrEhkFraYImV4TKSTZ75usrjFFCnD\nikRmYYspUoZHRfIDIgEsbDFFyvCYSH5AJIGFLaZIGR4TyQ+IJLCwxRQpw2Mi+QGRBBa2mCJl\neEIkPyCyOwtbTJEyPCaSHxBJYGGLKVKGx0TyAyIJLGwxRcrwmEh+QCSBhS2mSBkeFenUma+b\nLG4xRcqwIpFZ2GKKlGFFIrOwxRQpw4pEZmGLKVKGFYnMwhZTpAwrEpmFLaZIGVYkMgtbTJEy\nrEhkFraYImVYkcgsbDFFyrAikVnYYoqUYUUis7DFFCnDikRmYYspUoYViczCFlOkDCsSmYUt\npkgZViQyC1tMkTKsSGQWtpgiZViRyCxsMUXKsCKRWdhiipRhRSKzsMUUKcOK1Jh1dbWKO8YX\no0gZVqS2rKurpiYxD1KRPocVqSnr6qqtSciD/E+RPocVqSlLkY7Hz57KXopUP0iWIh2Pn3nn\n2itSg24XyfIx0tG4IilS5fis3bG4IilSTxa2mCJlWJHILGwxRcqwIpFZ2GKKlGFFIrOwxRQp\nw4pEZmGLKVKGFYnMwhZTpAwrEpmFLaZIGVYkMgtbTJEyrEhkFvaVYkXKsCKRWdj3LilShhWJ\nzMK+m1aRMqxIZJYiVfZSpPrZAkuRKnspUv1sgeVjpMpeilQ/W2D5rF1lL0Wqny2wsMUUKcOK\nRGZhiylShitE2j3Nxx8VaXYWtpgiZfh0kXav/9u9/0KR5mZhiylShhWJzMIWU6QMny7Sm02K\ntBwLW0yRMvwdkQ4vTdTtS1XawU7liTxfpHP/YL85SaTd/ntXpC18UpVXpCPxc++Va70iKdKy\nLGwxRcpwlUi7f/+nSHOzsMUUKcM1Iu3CJkWam4UtpkgZrhBp9+EHRVqEhS2mSBk+XaTd7vUt\nDd94Z4MidYQp0oysCpFGpqqbIlUOdcOoInXbL0VCs7AbpkgZViQyC7thipRhRSKzsBumSBlW\nJDILu2GKlGFFIrOwG6ZIGVYkMgu7YYqUYUUis7AbpkgZViQyC7thipRhRSKzsBumSBlWJDIL\nu2GKlGFFIrOwG6ZIGVYkMgu7YYqUYUUis7AbpkgZViQyC7thipRhRSKzsBumSBlWJDILu2Fb\nEKmKpUhoFnbDFClGkdAs7IYpUowioVnYDVOkGEVCs7AbpkgxioRmYTdMkWIUCc3qd8f47+3f\nQT9jjrAUSZF6srqK1PDOr0hfz3zdvqq+AZYizXuM7VilsiIBWYo08zE2+/a1VFYkIEuRLuUY\ny5IiAVmKdCnHWJYUCchSpEs5xrKkSECWIl3KMZYlRQKyFOlSjrEsKRKQpUiXcoxlSZGALEW6\nlGMsS4oEZCnSpRxjWVIkIEuRLuUYy5IiAVmKdCnHWJYUCchSpEs5xrLUTKSWb7+fGuqdX5Hm\nZTGPsSy1E6lZuemh3vkVaV4W8xjLkiIBWYp0KcdYlhQJyFKkSznGsqRIQJYiXcoxliVFArIU\n6VKOsSwpEpClSJdyjGVJkYAsRbqUYyxLigRkKdKlHGNZUiQgS5Eu5RjLkiIBWYp0KcdYlhQJ\nyFKkSznGsqRIQJYiXcoxliVFArIU6VKOsSwpEpClSJdyjGVJkYAsRbqUYyxLigRkKdKlHGNZ\nUiQgS5Eu5RjLkn9DFshajUgL3ScUSZGOjyJdyDGWJUUCshTpUo6xLF3cY6SW97GeIq3/TuZj\npFOm26atRqSF9kuR5uxVls4V6fNtLPQHz74d2Cy1X4vt75E/uIVjfBuvSJ1Y6/9qvYVjLEuK\n1Im1/jvZFo6xLClSJ9b672RbOMaypEidWOu/k23hGMuSInVirf9OtoVjLEuK1Im1/jvZFo6x\nLClSJxb2TtbwhWLsMTbrVZYUqRMLeyeDisTsVZYUqRNLkeqOkckqS4rUiYUVqWGv9bPKkiJ1\nYinSGlhlSZE6sRRpDayypEidWIq0BlZZ2rRIPaVUpDWwypIiNRpF2iKrLClSo1GkLbLKkiI1\nGkXaIqssKVKjUaQtssrS6kVq+Ur91CjSFlllaf0iLdRLkbbIKkuK1KiXIm2RVZYUqVEvRdoi\nqywhRaK+A3lqFGmLrLLEFAnKmhpF2iKrLClSBWtqFGmLrLKkSBWsqVGkLbLKkiJVsKamp0jU\nx5TrZ5UlRapgTU1XkWR1YpUlRapgTY0ibZFVlhSpgjU1irRFVllSpArW1CjSFlllSZEqWFPT\n81/so+7X+o+xLClSBWtqFKl2AyrjyGMsS4pUwZoaRardgMo48hjLkiJVsKbGx0i1G7CG/SpL\nilTBmhpFqt2ANexXWVKkCtbUKFLtBqxhv8qSIlWwpkaRajdgDftVltqJtPEHz4pUuwFr2K+y\n1EykhnsG3bTpUaTaDVjDfpUlRapgTY0i1W7AGvarLClSBWtqFKl2A9awX2VJkSpYU6NItRuw\nhv0qS4pUwZoaRardgDXsV1lSpArW1ChS7QasYb/KkiJVsKbGv2peuwEd96sZqywpUgVrahSp\ndgM67lczVllSpArW1ChS7QasYb/KzShSBWtqfIxUuwEd90uRzti0hqypUaTaDei4X4p0xqY1\nZE2NItVuwBr2qywpUgVrahSpdgPWsF9lSZEqWFOjSLUbsIb9KkuKVMHawjEqUg2rLClSBWsL\nx6hINayypEgVrC0coyLVsMqSIlWwtnCMilTDKkuKVMHawjEqUg2rLClSDavZC3ngY2zImj7J\nlXHkMZYlRZI1G2v6JFfGkcdYlhRJ1mys6ZNcGUceY1lSJFmzsaZPcmUceYxlaRGRfNV/m6zp\nk1wZRx5jWTpFpN3L/5+m/F7VJijSNlnTJ7kyjjzGsnSCSC/+lP8dpmoTFGmbrOmTXBlHHmNZ\n+lqk3V6RZJ3Fmj7JlXHkMZalk7+1UyRZtazpk1wZRx5jWTpDpMMrjOdWOWnOP1BZJFbLPP0Y\n139F8t0I3VjTJ7kyjjzGssQUqeWdX5G6saZPcmUceYxlSZEUaTbW9EmujCPPY1lav0jNNg3M\narlfDVnTJ7ky3vIYm+19WWKK1OxAt8Ga3szKPJS1GpF8ZwOXNb2ZlXkoi7n3Zcn32q2ANb2Z\nlXkoi7n3ZUmRVsCa3szKPJTF3PuypEgrYE1vZmUeymLufVlSpBWwpjezMg9lMfe+LClSL1bD\nZ6GmN7MyD2Uxz2NZUqROrOkNqMxvgMX8IlZuRpE6saY3oDK/ARZz78vNKFIn1vQGVOY3wGLu\nfbkZRerEmt6AyvwGWMy9LzejSJ1Y0xtQmd8Ai7n35WYUqRNregMq8xtgMfe+3IwidWJNb0Bl\nfgMs5t6Xm1GkTqzpDajMb4DF3PtyM4rUiTW9AZX5DbCYe19uRpE6saY3oDK/ARZz78vNKFIn\n1vQGVOY3wGLufbkZRerEmt6AyvwGWMy9LzejSJ1Y0xtQmd8Ai7n35WYUqRNregMq8xtgMfe+\n3IwidWJNb0BlfgMs5t6Xm1GkTqzpDajMb4DF3PtyM4rUiTW9AZX5DbCYe19uRpE6saY3oDK/\nARZz78vNKFIn1vQGVOY3wGLufbkZpkgNP89AkdbBYu59uRmkSFNTvS8NTwDzZG6Dxdz7cjOK\nVHECWl4pmx7kBliK9J8iKdL3WYr0nyIp0vdZivTfikRqyGp6kBtgMfe+3IwiVZwA5sn8Ynpu\nfkPWYntftV/lZhSp4gQoUj+WItV2+2IUqXIUqW4UaSTf8AQoUj+WItV2+2IUqXIUqW4UaSTf\n8AQoUj+WItV2+2IUqXIUqW4UaSTf8AQwT+aCLEXK8PsoUsUJYJ7MBVmKlOH3UaSKE8A8mQuy\nFCnD76NIFSeAeTIXZClSht9HkSpOAPNkLshSpAy/jyJVnADmyVyQpUgZfh9FqjgBi/01CkX6\nHG94HidHkUbyC52AlvcxRToSX+g8KtJYfqGriCLNy1Kk2m5fzEr+ntr0KNLnuCKt5lwuxlKk\nI3FFWs25XIylSEfiirSac7kYS5GOxJHPmCoSmqVIHVmKtB6WInVkKdJ6WIrUkaVI62EpUkeW\nIq2HpUgdWYq0HpYidWQp0npYitSRBRap/rn8KVg7FJalSB1ZXJHOeVVsgtaMxGUpUkcWVqTz\nXl8ex7UCgVmK1JG1sEinz6tIs9+OM/9QzyKg18VdkahfrFuysMW6feX/Yi74ilRxY20fI1Hv\nY4pUOavotahIbZ+1o97HFKlyVtFrWZGw9wsqC1tMkTKsSGQWtpgiZViRyCxsMUXKsCKRWdhi\nipRhRSKzsMUUKcOKRGZhiylShhWJzMIWU6QMKxKZhS2mSBlWJDILW0yRMqxIZBa2mCJlWJHI\nLGwxRcqwIpFZ2GKKlGFFIrOwxagidWMpEpqFLaZIGVYkMgtbTJEyrEhkFraYrAwrEpmFLSYr\nw4pEZmGLycqwIpFZ2GKyMqxIZBa2mKwMKxKZhS0mK8OKRGZhi8nKsCKRWdhisjKsSGQWtpis\nDCsSmYUtJivDikRmYYvJyrAikVnYYrIyrEhkFraYrAwrEpmFLSYrw4pEZmGLycqwIpFZ2GKy\nMqxIZI18oJ8AAASFSURBVBa2mKwMKxKZhS0mK8OKRGZhi8nKsCKRWdhisjKsSGQWtpisDCsS\nmYUtJivDikRmYYvJyrAikVnYYrIyrEhkFraYrAwrEpmFLSYrw4pEZmGLycqwIpFZ2GKyMqxI\nZBa2mKwMKxKZhS0mK8OKRGZhi8nKsCKRWdhisjKsSGQWtpisDCsSmYUtJivDikRmYYvJyvC3\nRaqaK1n9YLIWYSkSkIUtJmt0FAnIwhaTNTqKBGRhi8kanUVEcpy1jyI5ToNRJMdpMIrkOA1G\nkRynwSiS4zSY+UTaff7F7mnO5nz4k2+cSl6Jz8R6+9UZx3m82O68YrtjrDOKHTvI3Xm9dnP3\nOoc1chL/vbOeyJtNpH9u/bXS+//O4HzgvXEqeR86zMN6+9UZx/l2H/t4x8hbqmgWrMYHeQ7r\nAxBzIkeO798766m8uUTa/fPFYv9Pt3M4H3nf3f+5WG+/qj/O9w1qJ9J8B7k/8yA/H2PnE3n8\n+OLO2lukY1fLs65IH+4Z+dtnf1Gci7U78z62e4/HHaMe9tnExqy3X50r0qde37kiNRJp6s6q\nSFO0SxDp7aFIHWx39HHN/jzWfuIxRP2GfT6RinTKzCtSqy+K+/PuY/tj97Hd/rxe739mtjvZ\n7jxWKTaPSPvzvlgcfxLktXClSJ+fAFGkCtgsV6R3xPn3/ZkulS2l/Of3QVekw1e2StbrH8k/\nABTp36c8vy/Sd3lHWQ3urwfW7u0p3uov/P8+Ndy8WKM77PvzwblYU2rGXmexjnGAIv37i3ZX\npBbn8t9ijb5Yn3ul/HxFalms7UEyN/8M1thJ3I5IH+911V98jvyMKtIZsPc/okjncf75fahI\nrd7ZgH1x/e1Xzd7Z0KpY04Pc5eKJsE8/6X6MF/HOBsfZ0iiS4zQYRXKcBqNIjtNgFMlxGowi\nOU6DUSTHaTCK5DgNRpEcp8EoEn/u4yQ93AzD9ZHcz/q3jTitRpHwcz/ESdoNQ/7WYY7+prPM\nuPf0uftkzZgwitRx3Hvk3A5/9/u/w83zeyb/hCDDywXpz+0w7O6ff+Ph9vCT1+vUw5N5dw+H\n3N/dTYfu2xxFQs7j84Ogm2eb7j9daV5E+n34YXhafjx8q3f7KtLLr3aPz7mb4a5T/+2NIjHn\nx/D713D/8vOj39pdD7+er1nD82Oou/3hqnX4/fvny9jNcPDvfunWGx5Fgs6HvwYz8hjp4feP\nm+efXg+PH37/enj6tu7h+YI2PP/MWWgUCTq/hudLzmGOi3QzvD5Yel8+/OTlV//8vrPAuNnQ\n+Uqku+H65+8HRaKMmw2d3fX15Ld2h/89Tn9rt1xbx81mzo/h9+/hx8vPR0T6s3+8eXmy4f7l\nWYdPTzYsXXrL42Yj5/D099ul5qhI98PbY6SHwxPeh0vQ7t+nv5fvvd1xs5Hz+oLs7eEXx59s\nuBuGm5fXav/evLwE+/NZpI8vyC7bedvjZjtOg1Ekx2kwinQhM7xP7ybOsfG0XMgoEns8LY7T\nYBTJcRqMIjlOg1Ekx2kwiuQ4DUaRHKfBKJLjNBhFcpwG8z8Vg8nMgoEYSAAAAABJRU5ErkJg\ngg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# 8. boxplot for price for every 10 books\n",
    "\n",
    "x1 <- 1:100\n",
    "x1_factor <- cut(x = x1, breaks = c(0,10,20,30,40,50,60,70,80,90,100),\n",
    "      labels = c('1-10','11-20','21-30','31-40','41-50','51-60','61-70','71-80','81-90','91-100'))\n",
    "head(x1_factor)\n",
    "\n",
    "ggplot(amazon_books,\n",
    "       aes(x=x1_factor,y=amazon_books$price))+\n",
    "  geom_boxplot()\n",
    "\n",
    "# Insights - Book with ranks 71 to 80, are pricier when compared to the rest."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 59,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>book_name</th><th scope=col>genre</th><th scope=col>book_rank</th><th scope=col>author</th><th scope=col>stars</th><th scope=col>reviews</th><th scope=col>book_type</th><th scope=col>price</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>The Wonderful Things You Will Be</td><td>children                        </td><td>28                              </td><td>Emily Winfield Martin           </td><td>4.8                             </td><td> 1955                           </td><td>Hardcover                       </td><td>10.79                           </td></tr>\n",
       "\t<tr><td>Dragons Love Tacos              </td><td>children                        </td><td>74                              </td><td>Adam Rubin                      </td><td>4.5                             </td><td> 2347                           </td><td>Hardcover                       </td><td> 8.49                           </td></tr>\n",
       "\t<tr><td>Wonder                          </td><td>children                        </td><td>52                              </td><td>R. J. Palacio                   </td><td>4.9                             </td><td>13303                           </td><td>Hardcover                       </td><td>12.72                           </td></tr>\n",
       "\t<tr><td>Where the Crawdads Sing         </td><td>fiction                         </td><td>70                              </td><td>Delia Owens                     </td><td>4.8                             </td><td>13562                           </td><td>Hardcover                       </td><td>15.60                           </td></tr>\n",
       "\t<tr><td>Before We Were Yours            </td><td>fiction                         </td><td>57                              </td><td>Lisa Wingate                    </td><td>4.7                             </td><td> 9706                           </td><td>Hardcover                       </td><td>11.09                           </td></tr>\n",
       "\t<tr><td>Little Fires Everywhere         </td><td>fiction                         </td><td>43                              </td><td>Celeste Ng                      </td><td>4.3                             </td><td> 4037                           </td><td>Hardcover                       </td><td>14.99                           </td></tr>\n",
       "\t<tr><td>The Woman in the Window         </td><td>fiction                         </td><td>75                              </td><td>A. J. Finn                      </td><td>4.3                             </td><td> 5651                           </td><td>Hardcover                       </td><td>15.89                           </td></tr>\n",
       "\t<tr><td>Educated                        </td><td>non-fiction                     </td><td>17                              </td><td>Tara Westover                   </td><td>4.7                             </td><td> 7507                           </td><td>Hardcover                       </td><td>15.18                           </td></tr>\n",
       "\t<tr><td>Becoming                        </td><td>non-fiction                     </td><td> 1                              </td><td>Michelle Obama                  </td><td>4.9                             </td><td>14110                           </td><td>Hardcover                       </td><td>19.50                           </td></tr>\n",
       "\t<tr><td>The Hate U Give                 </td><td>young_adult                     </td><td>25                              </td><td>Angie Thomas                    </td><td>4.8                             </td><td> 3446                           </td><td>Hardcover                       </td><td>13.95                           </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|llllllll}\n",
       " book\\_name & genre & book\\_rank & author & stars & reviews & book\\_type & price\\\\\n",
       "\\hline\n",
       "\t The Wonderful Things You Will Be & children                         & 28                               & Emily Winfield Martin            & 4.8                              &  1955                            & Hardcover                        & 10.79                           \\\\\n",
       "\t Dragons Love Tacos               & children                         & 74                               & Adam Rubin                       & 4.5                              &  2347                            & Hardcover                        &  8.49                           \\\\\n",
       "\t Wonder                           & children                         & 52                               & R. J. Palacio                    & 4.9                              & 13303                            & Hardcover                        & 12.72                           \\\\\n",
       "\t Where the Crawdads Sing          & fiction                          & 70                               & Delia Owens                      & 4.8                              & 13562                            & Hardcover                        & 15.60                           \\\\\n",
       "\t Before We Were Yours             & fiction                          & 57                               & Lisa Wingate                     & 4.7                              &  9706                            & Hardcover                        & 11.09                           \\\\\n",
       "\t Little Fires Everywhere          & fiction                          & 43                               & Celeste Ng                       & 4.3                              &  4037                            & Hardcover                        & 14.99                           \\\\\n",
       "\t The Woman in the Window          & fiction                          & 75                               & A. J. Finn                       & 4.3                              &  5651                            & Hardcover                        & 15.89                           \\\\\n",
       "\t Educated                         & non-fiction                      & 17                               & Tara Westover                    & 4.7                              &  7507                            & Hardcover                        & 15.18                           \\\\\n",
       "\t Becoming                         & non-fiction                      &  1                               & Michelle Obama                   & 4.9                              & 14110                            & Hardcover                        & 19.50                           \\\\\n",
       "\t The Hate U Give                  & young\\_adult                    & 25                               & Angie Thomas                     & 4.8                              &  3446                            & Hardcover                        & 13.95                           \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "| book_name | genre | book_rank | author | stars | reviews | book_type | price |\n",
       "|---|---|---|---|---|---|---|---|\n",
       "| The Wonderful Things You Will Be | children                         | 28                               | Emily Winfield Martin            | 4.8                              |  1955                            | Hardcover                        | 10.79                            |\n",
       "| Dragons Love Tacos               | children                         | 74                               | Adam Rubin                       | 4.5                              |  2347                            | Hardcover                        |  8.49                            |\n",
       "| Wonder                           | children                         | 52                               | R. J. Palacio                    | 4.9                              | 13303                            | Hardcover                        | 12.72                            |\n",
       "| Where the Crawdads Sing          | fiction                          | 70                               | Delia Owens                      | 4.8                              | 13562                            | Hardcover                        | 15.60                            |\n",
       "| Before We Were Yours             | fiction                          | 57                               | Lisa Wingate                     | 4.7                              |  9706                            | Hardcover                        | 11.09                            |\n",
       "| Little Fires Everywhere          | fiction                          | 43                               | Celeste Ng                       | 4.3                              |  4037                            | Hardcover                        | 14.99                            |\n",
       "| The Woman in the Window          | fiction                          | 75                               | A. J. Finn                       | 4.3                              |  5651                            | Hardcover                        | 15.89                            |\n",
       "| Educated                         | non-fiction                      | 17                               | Tara Westover                    | 4.7                              |  7507                            | Hardcover                        | 15.18                            |\n",
       "| Becoming                         | non-fiction                      |  1                               | Michelle Obama                   | 4.9                              | 14110                            | Hardcover                        | 19.50                            |\n",
       "| The Hate U Give                  | young_adult                      | 25                               | Angie Thomas                     | 4.8                              |  3446                            | Hardcover                        | 13.95                            |\n",
       "\n"
      ],
      "text/plain": [
       "   book_name                        genre       book_rank author               \n",
       "1  The Wonderful Things You Will Be children    28        Emily Winfield Martin\n",
       "2  Dragons Love Tacos               children    74        Adam Rubin           \n",
       "3  Wonder                           children    52        R. J. Palacio        \n",
       "4  Where the Crawdads Sing          fiction     70        Delia Owens          \n",
       "5  Before We Were Yours             fiction     57        Lisa Wingate         \n",
       "6  Little Fires Everywhere          fiction     43        Celeste Ng           \n",
       "7  The Woman in the Window          fiction     75        A. J. Finn           \n",
       "8  Educated                         non-fiction 17        Tara Westover        \n",
       "9  Becoming                         non-fiction  1        Michelle Obama       \n",
       "10 The Hate U Give                  young_adult 25        Angie Thomas         \n",
       "   stars reviews book_type price\n",
       "1  4.8    1955   Hardcover 10.79\n",
       "2  4.5    2347   Hardcover  8.49\n",
       "3  4.9   13303   Hardcover 12.72\n",
       "4  4.8   13562   Hardcover 15.60\n",
       "5  4.7    9706   Hardcover 11.09\n",
       "6  4.3    4037   Hardcover 14.99\n",
       "7  4.3    5651   Hardcover 15.89\n",
       "8  4.7    7507   Hardcover 15.18\n",
       "9  4.9   14110   Hardcover 19.50\n",
       "10 4.8    3446   Hardcover 13.95"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# 9. Common books in the NYT and Amazon top 100 books are - \n",
    "# combine nyt_tibble amazon_books tibble\n",
    "common_books <- inner_join(nyt_tibble,amazon_books, by=\"book_name\")\n",
    "common_books\n",
    "\n",
    "\n",
    "# Insight - It would be interesting to know the metrics used by NYT to list the best selling books as only 10 match\n",
    "# out of 100 with Amazon's list\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {},
   "outputs": [],
   "source": []
  }
 ],
 "metadata": {
  "kernelspec": {
   "display_name": "R",
   "language": "R",
   "name": "ir"
  },
  "language_info": {
   "codemirror_mode": "r",
   "file_extension": ".r",
   "mimetype": "text/x-r-source",
   "name": "R",
   "pygments_lexer": "r",
   "version": "3.6.0"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 2
}