online_retail_analysis_EDA.ipynb

{
 "cells": [
  {
   "cell_type": "code",
   "execution_count": 1,
   "id": "5e0a7d26-5b6d-4e8f-b151-385df21bd71f",
   "metadata": {},
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "Installing packages into 'C:/Users/yasir/AppData/Local/R/win-library/4.4'\n",
      "(as 'lib' is unspecified)\n",
      "\n"
     ]
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "package 'tidyverse' successfully unpacked and MD5 sums checked\n",
      "package 'janitor' successfully unpacked and MD5 sums checked\n",
      "package 'lubridate' successfully unpacked and MD5 sums checked\n",
      "package 'ggplot2' successfully unpacked and MD5 sums checked\n",
      "package 'scales' successfully unpacked and MD5 sums checked\n",
      "\n",
      "The downloaded binary packages are in\n",
      "\tC:\\Users\\yasir\\AppData\\Local\\Temp\\Rtmpyi9yhW\\downloaded_packages\n"
     ]
    },
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "── \u001b[1mAttaching core tidyverse packages\u001b[22m ──────────────────────────────────────────────────────────────── tidyverse 2.0.0 ──\n",
      "\u001b[32m✔\u001b[39m \u001b[34mdplyr    \u001b[39m 1.1.4     \u001b[32m✔\u001b[39m \u001b[34mreadr    \u001b[39m 2.1.5\n",
      "\u001b[32m✔\u001b[39m \u001b[34mforcats  \u001b[39m 1.0.0     \u001b[32m✔\u001b[39m \u001b[34mstringr  \u001b[39m 1.5.1\n",
      "\u001b[32m✔\u001b[39m \u001b[34mggplot2  \u001b[39m 3.5.1     \u001b[32m✔\u001b[39m \u001b[34mtibble   \u001b[39m 3.2.1\n",
      "\u001b[32m✔\u001b[39m \u001b[34mlubridate\u001b[39m 1.9.4     \u001b[32m✔\u001b[39m \u001b[34mtidyr    \u001b[39m 1.3.1\n",
      "\u001b[32m✔\u001b[39m \u001b[34mpurrr    \u001b[39m 1.0.2     \n",
      "── \u001b[1mConflicts\u001b[22m ────────────────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──\n",
      "\u001b[31m✖\u001b[39m \u001b[34mdplyr\u001b[39m::\u001b[32mfilter()\u001b[39m masks \u001b[34mstats\u001b[39m::filter()\n",
      "\u001b[31m✖\u001b[39m \u001b[34mdplyr\u001b[39m::\u001b[32mlag()\u001b[39m    masks \u001b[34mstats\u001b[39m::lag()\n",
      "\u001b[36mℹ\u001b[39m Use the conflicted package (\u001b[3m\u001b[34m<http://conflicted.r-lib.org/>\u001b[39m\u001b[23m) to force all conflicts to become errors\n",
      "\n",
      "Attaching package: 'janitor'\n",
      "\n",
      "\n",
      "The following objects are masked from 'package:stats':\n",
      "\n",
      "    chisq.test, fisher.test\n",
      "\n",
      "\n",
      "\n",
      "Attaching package: 'scales'\n",
      "\n",
      "\n",
      "The following object is masked from 'package:purrr':\n",
      "\n",
      "    discard\n",
      "\n",
      "\n",
      "The following object is masked from 'package:readr':\n",
      "\n",
      "    col_factor\n",
      "\n",
      "\n"
     ]
    }
   ],
   "source": [
    "# Install required packages (if not already installed)\n",
    "install.packages(c(\"tidyverse\", \"janitor\", \"lubridate\", \"ggplot2\", \"scales\"))\n",
    "\n",
    "# Load libraries\n",
    "library(tidyverse)\n",
    "library(janitor)\n",
    "library(lubridate)\n",
    "library(ggplot2)\n",
    "library(scales)\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 3,
   "id": "640c517f-e98a-4dc8-8fd5-a1b9776f0210",
   "metadata": {},
   "outputs": [],
   "source": [
    "library(readxl)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 4,
   "id": "a54f1fa0-b76f-4b28-a4cd-e49eecb9bf7c",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table class=\"dataframe\">\n",
       "<caption>A tibble: 6 × 8</caption>\n",
       "<thead>\n",
       "\t<tr><th scope=col>InvoiceNo</th><th scope=col>StockCode</th><th scope=col>Description</th><th scope=col>Quantity</th><th scope=col>InvoiceDate</th><th scope=col>UnitPrice</th><th scope=col>CustomerID</th><th scope=col>Country</th></tr>\n",
       "\t<tr><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;dbl&gt;</th><th scope=col>&lt;dttm&gt;</th><th scope=col>&lt;dbl&gt;</th><th scope=col>&lt;dbl&gt;</th><th scope=col>&lt;chr&gt;</th></tr>\n",
       "</thead>\n",
       "<tbody>\n",
       "\t<tr><td>536365</td><td>85123A</td><td>WHITE HANGING HEART T-LIGHT HOLDER </td><td>6</td><td>2010-12-01 08:26:00</td><td>2.55</td><td>17850</td><td>United Kingdom</td></tr>\n",
       "\t<tr><td>536365</td><td>71053 </td><td>WHITE METAL LANTERN                </td><td>6</td><td>2010-12-01 08:26:00</td><td>3.39</td><td>17850</td><td>United Kingdom</td></tr>\n",
       "\t<tr><td>536365</td><td>84406B</td><td>CREAM CUPID HEARTS COAT HANGER     </td><td>8</td><td>2010-12-01 08:26:00</td><td>2.75</td><td>17850</td><td>United Kingdom</td></tr>\n",
       "\t<tr><td>536365</td><td>84029G</td><td>KNITTED UNION FLAG HOT WATER BOTTLE</td><td>6</td><td>2010-12-01 08:26:00</td><td>3.39</td><td>17850</td><td>United Kingdom</td></tr>\n",
       "\t<tr><td>536365</td><td>84029E</td><td>RED WOOLLY HOTTIE WHITE HEART.     </td><td>6</td><td>2010-12-01 08:26:00</td><td>3.39</td><td>17850</td><td>United Kingdom</td></tr>\n",
       "\t<tr><td>536365</td><td>22752 </td><td>SET 7 BABUSHKA NESTING BOXES       </td><td>2</td><td>2010-12-01 08:26:00</td><td>7.65</td><td>17850</td><td>United Kingdom</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "A tibble: 6 × 8\n",
       "\\begin{tabular}{llllllll}\n",
       " InvoiceNo & StockCode & Description & Quantity & InvoiceDate & UnitPrice & CustomerID & Country\\\\\n",
       " <chr> & <chr> & <chr> & <dbl> & <dttm> & <dbl> & <dbl> & <chr>\\\\\n",
       "\\hline\n",
       "\t 536365 & 85123A & WHITE HANGING HEART T-LIGHT HOLDER  & 6 & 2010-12-01 08:26:00 & 2.55 & 17850 & United Kingdom\\\\\n",
       "\t 536365 & 71053  & WHITE METAL LANTERN                 & 6 & 2010-12-01 08:26:00 & 3.39 & 17850 & United Kingdom\\\\\n",
       "\t 536365 & 84406B & CREAM CUPID HEARTS COAT HANGER      & 8 & 2010-12-01 08:26:00 & 2.75 & 17850 & United Kingdom\\\\\n",
       "\t 536365 & 84029G & KNITTED UNION FLAG HOT WATER BOTTLE & 6 & 2010-12-01 08:26:00 & 3.39 & 17850 & United Kingdom\\\\\n",
       "\t 536365 & 84029E & RED WOOLLY HOTTIE WHITE HEART.      & 6 & 2010-12-01 08:26:00 & 3.39 & 17850 & United Kingdom\\\\\n",
       "\t 536365 & 22752  & SET 7 BABUSHKA NESTING BOXES        & 2 & 2010-12-01 08:26:00 & 7.65 & 17850 & United Kingdom\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "A tibble: 6 × 8\n",
       "\n",
       "| InvoiceNo &lt;chr&gt; | StockCode &lt;chr&gt; | Description &lt;chr&gt; | Quantity &lt;dbl&gt; | InvoiceDate &lt;dttm&gt; | UnitPrice &lt;dbl&gt; | CustomerID &lt;dbl&gt; | Country &lt;chr&gt; |\n",
       "|---|---|---|---|---|---|---|---|\n",
       "| 536365 | 85123A | WHITE HANGING HEART T-LIGHT HOLDER  | 6 | 2010-12-01 08:26:00 | 2.55 | 17850 | United Kingdom |\n",
       "| 536365 | 71053  | WHITE METAL LANTERN                 | 6 | 2010-12-01 08:26:00 | 3.39 | 17850 | United Kingdom |\n",
       "| 536365 | 84406B | CREAM CUPID HEARTS COAT HANGER      | 8 | 2010-12-01 08:26:00 | 2.75 | 17850 | United Kingdom |\n",
       "| 536365 | 84029G | KNITTED UNION FLAG HOT WATER BOTTLE | 6 | 2010-12-01 08:26:00 | 3.39 | 17850 | United Kingdom |\n",
       "| 536365 | 84029E | RED WOOLLY HOTTIE WHITE HEART.      | 6 | 2010-12-01 08:26:00 | 3.39 | 17850 | United Kingdom |\n",
       "| 536365 | 22752  | SET 7 BABUSHKA NESTING BOXES        | 2 | 2010-12-01 08:26:00 | 7.65 | 17850 | United Kingdom |\n",
       "\n"
      ],
      "text/plain": [
       "  InvoiceNo StockCode Description                         Quantity\n",
       "1 536365    85123A    WHITE HANGING HEART T-LIGHT HOLDER  6       \n",
       "2 536365    71053     WHITE METAL LANTERN                 6       \n",
       "3 536365    84406B    CREAM CUPID HEARTS COAT HANGER      8       \n",
       "4 536365    84029G    KNITTED UNION FLAG HOT WATER BOTTLE 6       \n",
       "5 536365    84029E    RED WOOLLY HOTTIE WHITE HEART.      6       \n",
       "6 536365    22752     SET 7 BABUSHKA NESTING BOXES        2       \n",
       "  InvoiceDate         UnitPrice CustomerID Country       \n",
       "1 2010-12-01 08:26:00 2.55      17850      United Kingdom\n",
       "2 2010-12-01 08:26:00 3.39      17850      United Kingdom\n",
       "3 2010-12-01 08:26:00 2.75      17850      United Kingdom\n",
       "4 2010-12-01 08:26:00 3.39      17850      United Kingdom\n",
       "5 2010-12-01 08:26:00 3.39      17850      United Kingdom\n",
       "6 2010-12-01 08:26:00 7.65      17850      United Kingdom"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "tibble [541,909 × 8] (S3: tbl_df/tbl/data.frame)\n",
      " $ InvoiceNo  : chr [1:541909] \"536365\" \"536365\" \"536365\" \"536365\" ...\n",
      " $ StockCode  : chr [1:541909] \"85123A\" \"71053\" \"84406B\" \"84029G\" ...\n",
      " $ Description: chr [1:541909] \"WHITE HANGING HEART T-LIGHT HOLDER\" \"WHITE METAL LANTERN\" \"CREAM CUPID HEARTS COAT HANGER\" \"KNITTED UNION FLAG HOT WATER BOTTLE\" ...\n",
      " $ Quantity   : num [1:541909] 6 6 8 6 6 2 6 6 6 32 ...\n",
      " $ InvoiceDate: POSIXct[1:541909], format: \"2010-12-01 08:26:00\" \"2010-12-01 08:26:00\" ...\n",
      " $ UnitPrice  : num [1:541909] 2.55 3.39 2.75 3.39 3.39 7.65 4.25 1.85 1.85 1.69 ...\n",
      " $ CustomerID : num [1:541909] 17850 17850 17850 17850 17850 ...\n",
      " $ Country    : chr [1:541909] \"United Kingdom\" \"United Kingdom\" \"United Kingdom\" \"United Kingdom\" ...\n"
     ]
    }
   ],
   "source": [
    "# Load the Excel file\n",
    "data <- read_excel(\"Online Retail.xlsx\")\n",
    "\n",
    "# View the first few rows of the dataset\n",
    "head(data)\n",
    "\n",
    "# View dataset structure\n",
    "str(data)\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 5,
   "id": "4e7e982b-f70e-4a8f-bf16-6d444083fca2",
   "metadata": {},
   "outputs": [],
   "source": [
    "# Load libraries\n",
    "library(tidyverse)\n",
    "library(janitor)\n",
    "library(lubridate)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 6,
   "id": "1f441465-6600-4dc2-8cb0-1da71b35c350",
   "metadata": {},
   "outputs": [],
   "source": [
    "data <- clean_names(data)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 11,
   "id": "3553795a-7097-4422-8696-e12d2f803647",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table class=\"dataframe\">\n",
       "<caption>A tibble: 6 × 9</caption>\n",
       "<thead>\n",
       "\t<tr><th scope=col>invoice_no</th><th scope=col>stock_code</th><th scope=col>description</th><th scope=col>quantity</th><th scope=col>invoice_date</th><th scope=col>unit_price</th><th scope=col>customer_id</th><th scope=col>country</th><th scope=col>total_revenue</th></tr>\n",
       "\t<tr><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;dbl&gt;</th><th scope=col>&lt;dttm&gt;</th><th scope=col>&lt;dbl&gt;</th><th scope=col>&lt;dbl&gt;</th><th scope=col>&lt;chr&gt;</th><th scope=col>&lt;dbl&gt;</th></tr>\n",
       "</thead>\n",
       "<tbody>\n",
       "\t<tr><td>536365</td><td>85123A</td><td>WHITE HANGING HEART T-LIGHT HOLDER </td><td>6</td><td>2010-12-01 08:26:00</td><td>2.55</td><td>17850</td><td>United Kingdom</td><td>15.30</td></tr>\n",
       "\t<tr><td>536365</td><td>71053 </td><td>WHITE METAL LANTERN                </td><td>6</td><td>2010-12-01 08:26:00</td><td>3.39</td><td>17850</td><td>United Kingdom</td><td>20.34</td></tr>\n",
       "\t<tr><td>536365</td><td>84406B</td><td>CREAM CUPID HEARTS COAT HANGER     </td><td>8</td><td>2010-12-01 08:26:00</td><td>2.75</td><td>17850</td><td>United Kingdom</td><td>22.00</td></tr>\n",
       "\t<tr><td>536365</td><td>84029G</td><td>KNITTED UNION FLAG HOT WATER BOTTLE</td><td>6</td><td>2010-12-01 08:26:00</td><td>3.39</td><td>17850</td><td>United Kingdom</td><td>20.34</td></tr>\n",
       "\t<tr><td>536365</td><td>84029E</td><td>RED WOOLLY HOTTIE WHITE HEART.     </td><td>6</td><td>2010-12-01 08:26:00</td><td>3.39</td><td>17850</td><td>United Kingdom</td><td>20.34</td></tr>\n",
       "\t<tr><td>536365</td><td>22752 </td><td>SET 7 BABUSHKA NESTING BOXES       </td><td>2</td><td>2010-12-01 08:26:00</td><td>7.65</td><td>17850</td><td>United Kingdom</td><td>15.30</td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "A tibble: 6 × 9\n",
       "\\begin{tabular}{lllllllll}\n",
       " invoice\\_no & stock\\_code & description & quantity & invoice\\_date & unit\\_price & customer\\_id & country & total\\_revenue\\\\\n",
       " <chr> & <chr> & <chr> & <dbl> & <dttm> & <dbl> & <dbl> & <chr> & <dbl>\\\\\n",
       "\\hline\n",
       "\t 536365 & 85123A & WHITE HANGING HEART T-LIGHT HOLDER  & 6 & 2010-12-01 08:26:00 & 2.55 & 17850 & United Kingdom & 15.30\\\\\n",
       "\t 536365 & 71053  & WHITE METAL LANTERN                 & 6 & 2010-12-01 08:26:00 & 3.39 & 17850 & United Kingdom & 20.34\\\\\n",
       "\t 536365 & 84406B & CREAM CUPID HEARTS COAT HANGER      & 8 & 2010-12-01 08:26:00 & 2.75 & 17850 & United Kingdom & 22.00\\\\\n",
       "\t 536365 & 84029G & KNITTED UNION FLAG HOT WATER BOTTLE & 6 & 2010-12-01 08:26:00 & 3.39 & 17850 & United Kingdom & 20.34\\\\\n",
       "\t 536365 & 84029E & RED WOOLLY HOTTIE WHITE HEART.      & 6 & 2010-12-01 08:26:00 & 3.39 & 17850 & United Kingdom & 20.34\\\\\n",
       "\t 536365 & 22752  & SET 7 BABUSHKA NESTING BOXES        & 2 & 2010-12-01 08:26:00 & 7.65 & 17850 & United Kingdom & 15.30\\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "A tibble: 6 × 9\n",
       "\n",
       "| invoice_no &lt;chr&gt; | stock_code &lt;chr&gt; | description &lt;chr&gt; | quantity &lt;dbl&gt; | invoice_date &lt;dttm&gt; | unit_price &lt;dbl&gt; | customer_id &lt;dbl&gt; | country &lt;chr&gt; | total_revenue &lt;dbl&gt; |\n",
       "|---|---|---|---|---|---|---|---|---|\n",
       "| 536365 | 85123A | WHITE HANGING HEART T-LIGHT HOLDER  | 6 | 2010-12-01 08:26:00 | 2.55 | 17850 | United Kingdom | 15.30 |\n",
       "| 536365 | 71053  | WHITE METAL LANTERN                 | 6 | 2010-12-01 08:26:00 | 3.39 | 17850 | United Kingdom | 20.34 |\n",
       "| 536365 | 84406B | CREAM CUPID HEARTS COAT HANGER      | 8 | 2010-12-01 08:26:00 | 2.75 | 17850 | United Kingdom | 22.00 |\n",
       "| 536365 | 84029G | KNITTED UNION FLAG HOT WATER BOTTLE | 6 | 2010-12-01 08:26:00 | 3.39 | 17850 | United Kingdom | 20.34 |\n",
       "| 536365 | 84029E | RED WOOLLY HOTTIE WHITE HEART.      | 6 | 2010-12-01 08:26:00 | 3.39 | 17850 | United Kingdom | 20.34 |\n",
       "| 536365 | 22752  | SET 7 BABUSHKA NESTING BOXES        | 2 | 2010-12-01 08:26:00 | 7.65 | 17850 | United Kingdom | 15.30 |\n",
       "\n"
      ],
      "text/plain": [
       "  invoice_no stock_code description                         quantity\n",
       "1 536365     85123A     WHITE HANGING HEART T-LIGHT HOLDER  6       \n",
       "2 536365     71053      WHITE METAL LANTERN                 6       \n",
       "3 536365     84406B     CREAM CUPID HEARTS COAT HANGER      8       \n",
       "4 536365     84029G     KNITTED UNION FLAG HOT WATER BOTTLE 6       \n",
       "5 536365     84029E     RED WOOLLY HOTTIE WHITE HEART.      6       \n",
       "6 536365     22752      SET 7 BABUSHKA NESTING BOXES        2       \n",
       "  invoice_date        unit_price customer_id country        total_revenue\n",
       "1 2010-12-01 08:26:00 2.55       17850       United Kingdom 15.30        \n",
       "2 2010-12-01 08:26:00 3.39       17850       United Kingdom 20.34        \n",
       "3 2010-12-01 08:26:00 2.75       17850       United Kingdom 22.00        \n",
       "4 2010-12-01 08:26:00 3.39       17850       United Kingdom 20.34        \n",
       "5 2010-12-01 08:26:00 3.39       17850       United Kingdom 20.34        \n",
       "6 2010-12-01 08:26:00 7.65       17850       United Kingdom 15.30        "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "head(data)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 8,
   "id": "0007099d-5da3-48f0-abd8-a600ff7b3722",
   "metadata": {},
   "outputs": [],
   "source": [
    "data <- data %>%\n",
    "  drop_na(customer_id)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 10,
   "id": "2a399fcc-bc73-40a5-8fdf-19fa2fc9c57b",
   "metadata": {},
   "outputs": [],
   "source": [
    "# Create a new column for total revenue (Quantity * UnitPrice)\n",
    "data <- data %>%\n",
    "  mutate(total_revenue = quantity * unit_price)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 12,
   "id": "11fd0cf6-a74c-40ad-9555-3094ff189075",
   "metadata": {},
   "outputs": [],
   "source": [
    "# Ensure InvoiceDate is in POSIXct format for time-based analysis\n",
    "data <- data %>%\n",
    "  mutate(invoice_date = as_datetime(invoice_date))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 14,
   "id": "e5d0469e-ff3b-4dc4-87a4-88107f5164e9",
   "metadata": {},
   "outputs": [],
   "source": [
    "# Save the cleaned dataset as a CSV file for further analysis\n",
    "write_csv(data, \"cleaned_data.csv\")\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 15,
   "id": "cc531d7a-4c9b-410e-9b5d-98e5632572b0",
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "\n",
      "Summary of Cleaned Data:\n",
      "  invoice_no         stock_code        description           quantity        \n",
      " Length:406829      Length:406829      Length:406829      Min.   :-80995.00  \n",
      " Class :character   Class :character   Class :character   1st Qu.:     2.00  \n",
      " Mode  :character   Mode  :character   Mode  :character   Median :     5.00  \n",
      "                                                          Mean   :    12.06  \n",
      "                                                          3rd Qu.:    12.00  \n",
      "                                                          Max.   : 80995.00  \n",
      "  invoice_date                      unit_price        customer_id   \n",
      " Min.   :2010-12-01 08:26:00.00   Min.   :    0.00   Min.   :12346  \n",
      " 1st Qu.:2011-04-06 15:02:00.00   1st Qu.:    1.25   1st Qu.:13953  \n",
      " Median :2011-07-31 11:48:00.00   Median :    1.95   Median :15152  \n",
      " Mean   :2011-07-10 16:30:57.88   Mean   :    3.46   Mean   :15288  \n",
      " 3rd Qu.:2011-10-20 13:06:00.00   3rd Qu.:    3.75   3rd Qu.:16791  \n",
      " Max.   :2011-12-09 12:50:00.00   Max.   :38970.00   Max.   :18287  \n",
      "   country          total_revenue      \n",
      " Length:406829      Min.   :-168469.6  \n",
      " Class :character   1st Qu.:      4.2  \n",
      " Mode  :character   Median :     11.1  \n",
      "                    Mean   :     20.4  \n",
      "                    3rd Qu.:     19.5  \n",
      "                    Max.   : 168469.6  \n"
     ]
    }
   ],
   "source": [
    "# Summary of Cleaned Data\n",
    "cat(\"\\nSummary of Cleaned Data:\\n\")\n",
    "print(summary(data))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 16,
   "id": "a6791e24-5ac0-4f09-a52e-cd2b5886eac4",
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "\n",
      "Summary After Handling Outliers:\n",
      "  invoice_no         stock_code        description           quantity     \n",
      " Length:397748      Length:397748      Length:397748      Min.   :  1.00  \n",
      " Class :character   Class :character   Class :character   1st Qu.:  2.00  \n",
      " Mode  :character   Mode  :character   Mode  :character   Median :  6.00  \n",
      "                                                          Mean   : 12.15  \n",
      "                                                          3rd Qu.: 12.00  \n",
      "                                                          Max.   :992.00  \n",
      "  invoice_date                      unit_price       customer_id   \n",
      " Min.   :2010-12-01 08:26:00.00   Min.   :  0.001   Min.   :12347  \n",
      " 1st Qu.:2011-04-07 11:12:00.00   1st Qu.:  1.250   1st Qu.:13969  \n",
      " Median :2011-07-31 14:39:00.00   Median :  1.950   Median :15159  \n",
      " Mean   :2011-07-10 23:53:46.24   Mean   :  2.990   Mean   :15294  \n",
      " 3rd Qu.:2011-10-20 14:33:00.00   3rd Qu.:  3.750   3rd Qu.:16795  \n",
      " Max.   :2011-12-09 12:50:00.00   Max.   :908.160   Max.   :18287  \n",
      "   country          total_revenue     \n",
      " Length:397748      Min.   :    0.00  \n",
      " Class :character   1st Qu.:    4.68  \n",
      " Mode  :character   Median :   11.80  \n",
      "                    Mean   :   21.25  \n",
      "                    3rd Qu.:   19.80  \n",
      "                    Max.   :38970.00  \n"
     ]
    }
   ],
   "source": [
    "# Remove extreme outliers in Quantity and UnitPrice\n",
    "data <- data %>%\n",
    "  filter(quantity > 0, quantity < 1000,  # Cap quantity at a reasonable limit\n",
    "         unit_price > 0, unit_price < 1000)  # Cap unit price at a reasonable limit\n",
    "\n",
    "# Remove transactions with negative total revenue\n",
    "data <- data %>%\n",
    "  filter(total_revenue >= 0)\n",
    "\n",
    "# Summary after handling outliers\n",
    "cat(\"\\nSummary After Handling Outliers:\\n\")\n",
    "print(summary(data))\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 23,
   "id": "3fe88fc8-924d-4579-a4a3-d965bbfabeda",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "'C'"
      ],
      "text/latex": [
       "'C'"
      ],
      "text/markdown": [
       "'C'"
      ],
      "text/plain": [
       "[1] \"C\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAOVBMVEUAAAAAAP9NTU1oaGh8\nfHyMjIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enr6+vw8PD/AAD///8jV26rAAAACXBI\nWXMAABJ0AAASdAHeZh94AAAgAElEQVR4nO2diZaiShBEEXuZfr3Yzf9/7FMUBGWpJbPIICPO\nmXHlmlbV7QIErRqGYbJTbV0Aw+whFIlhBEKRGEYgFIlhBEKRGEYgFIlhBEKRGEYgFIlhBEKR\nGEYgFIlhBFJUpPr14+d29efjtV545u/b5f/qXl01WWh1y/H9V6zIMfmS8GWEi2BwUrTvz4Py\n/Xb1fXmAXh8MFqmqamGTKBITlcIiHbtpqD7KiHS9/HrpDZVMpBkUyXEKi/Sv+mqvfZ2vCYrU\nfFdLK4qpoUhMaAqL9HObOd6r79uw+36rq/rt+/pw815Xx8/bilV7x0ddvXy1j/1WxyulvzIc\nurdr56mpevkcPudY/d7vHr5Gt8j14v6MUb39ld9j9drMgJrm86Wq/12f/v12Xs98+8ptKgYs\nhUVqbut2dX0bpZ+37ZDryH65Xe9FemuvfV3HbXUdtf9V/wbAa24z0n9X2FnWt37qexvePXiN\nkUiDZ4zr7a68tg9Og9oNvrbWy+vd3w/jKKVFem8H+Nd5LF7/fp/X9n6b3/NI/Lk8XH81v6/V\ny33Vrv683/Fzm2Veqp8BsM1X3Q7u73b2+n45D+PvdgJpmtfz6w3ufn6N9mL4jHG93ZWX3zF/\nCDq/if/OfxLqy9OPl6tn4Y4N4yqlRfpqR/xFp3aUvt8mgbfL5fXv+O9tpa55uuP1dvM4AHZ5\naVpau+/u9yJRu0p3ffLw7qfXaC+GzxjX2135euQPQO/VR3t3XQ0WYXyltEiXlbrzf92QO95m\nl3a2GYzs0c6G7o7rLDNYs7t/jtSO5DPtvsf6s1X032WCGN799BrNdR6Z3NU9EOmJP1r6uu/9\ntZW9fvvvp2G8pbhIl8mo3XBpR+JoqK6JdB6l36M1u+u955ngs7s58OFqbP1w97RIM58ZPYq0\nDDpXdv6LUA/EZvykuEiXmeK939aPE+kyJQ3X7Lo9brc1r/F61ft5Mvq87Rd4XGL65SbrfVxq\nHtTtPml3kNxnTcZFiovUVHW7ZpewatfORsM1u+4J/24HNtTV9/2xi3HX2Wt497RIowWf8P2V\nZdDvfR/im8rHWozhlBfprfpsdw3cdja0B9V1Oxv6Z82IdJ5hhmt2/Ug/XjFv14vv666H1+rt\nuvNgePcI+dsiq8cFn/DdlRnQ69Wvj8GExX0O3lJepMsnR/91N36q6v26+/v7YZD/NFN/9Y/1\naMdyN16/2+UvF2cfv2/bTF/dxznDuwfIl+r197bTerzgE767MgP6qOr/rp8xdbu/3x92/zG7\nT3mRzmtA7VTQzTHDD2T7Zx1nNug/x1sf/Uh/u/r1Ofpc9dhJN7h7gLx+dvre2734gewSqLl+\nNPvvDq1q7rhzlvIinYfdy/3GwyFC3cX38bKVMbkd8vMEvKS+fpbzczlsp9tl9l/VXbvfPRz/\nX8f+wJ7xgk/4/so0qPnvfojQV3uIED3yFrB1+Q8eMsCYDJZI580THg7KWAySSBNbMQxjI0gi\nHXnEAGM1SCIxjNlQJIYRCEViGIFQJIYRCEViGIFQJIYRCEViGIFQJIYRCEViGIEUF+kEgLQP\nhCC6QlIkSCAE0RWSIkECIYiukBQJEghBdIWkSJBACKIrJEWCBEIQXSEpEiQQgugKSZEggRBE\nV0iKBAmEILpCUiRIIATRFZIiQQIhiK6QFAkSCEF0haRIkEAIoiskRYIEQhBdISkSJBCC6ApJ\nkSCBEERXSIoECYQgukJSJEggBNEVkiJBAiGIrpAUCRIIQXSFpEiQQAiiKyRFggRCEF0hKRIk\nEILoCkmRIIEQRFdIigQJhCC6QlIkSCAE0RWSIkECIYiukBQJEghBdIWkSJBACKIh5N+fOPIh\nFAkSCEE0g/xrI4p8CkWCBEIQzSAp0kZI+0AIohXk39+iSRRJDWkfCEG0gqRIWyHtAyGIZpBc\ntdsIaR8IQTSDpEgbIe0DIYhmkIfD399BFvkUigQJhCCaQR4ukUU+hSJBAiGIVpAHirQR0j4Q\ngmgFebFowSSKpIa0D4QgGkEeKNJWSPtACKIRZOsQRdoCaR8IQbSBPFCkzZD2gRBEG8irQhRp\nC6R9IATRBPJAkbZD2gdCEE0gbwZRpC2Q9oEQRAvIww5FOjFM6ZwFGl0KZxORbjoBIO0DIYgG\nkP0hDXuaka7ZvnH3AIQgGkD2/lCkLZD2gRDE7ZEHirQp0j4Qgrg5cnis6rxJFEkNaR8IQdwc\nOZSHIm2AtA+EIG6NPFCkjZH2gRDErZEjdyjSBkj7QAjixsgDRdoaaR8IQdxepNlbiciFUCRI\nIARxW+SBIm2OtA+EIG4u0sLNJORSKBIkEIK4KfLx+04o0gZI+0AI4tYiLd5OQC6GIkECIYhb\nIp++gIsibYC0D4QgbizSyh3RyOVQJEggBHFD5MQ3Qs6aRJHUkPaBEMRtRQq4Kwq5EooECYQg\nboec+opiilQeaR8IQdxUpKD7IpBroUiQQAjiZsjJ78ynSOWR9oEQxC1FCrwzGLkaigQJhCBu\nhZz+EReKVB5pHwhB3FCk4HsDkeuhSJBACOJGyJlfFaNI5ZH2gRDE7USKuJsiKSLtAyGI2yDn\nfuaSIpVH2gdCEDcTKep+iqSHtA+EIG6CnP/d5bkHKJIa0j4QgriVSJGPUCQ1pH0gBHEL5PyE\nRJHKI+0DIYgbiRT7EEVSQ9oHQhA3QC5MSBSpPNI+EIK4jUjRj1EkNaR9IASxPHJpQqJI5ZH2\ngRDETUSKf5AiqSHtAyGIxZGLExJFKo+0D4QgbiFSwqMUSQ1pHwhBLI1cnpAoUnmkfSAEcQOR\nlhalSMWR9oEQxMLIlQlp1iSKpIa0D4QglkWuekSRiiPtAyGIxUVaWZYilUbaB0IQiyLXJySK\nVBxpHwhBLC3S2rIUqTTSPhCCWBIZMCFRpOJI+0AIYmGRVpelSKWR9oEQxILIkAmJIhVH2gdC\nEMuKtL4sRSqNtA+EIJZDBk1IFKk40j4QglhUpIBlKVJppH0gBLEYMmxCokjFkfaBEMSSIgUt\nPP08iqSGtA+EIJZCBk5IFKk40j4QglhQpLCFKVJhpH0gBLEQMnhCokilkfaBEMRyIgUuTJEK\nI+0DIYhlkOETEkUqjbQPhCAWEyl0YYpUGGkfCEEsgoyYkChSaaR9IASxlEjBC1Okwkj7QAhi\nCWTMhESRSiPtAyGIhUQKX5giFUbaB0IQCyCjJiSKVBppHwhBLCNSzNKTT6dIakj7QAiiPjJu\nQqJIpZH2gRDEIiJFLU2RyiLtAyGI6sjYCYkiFUbaB0IQS4gUtzRFKou0D4QgaiOjJySKVBhp\nHwhBLCBS5NIUqSzSPhCCqIyMn5AoUmGkfSAEUV+k2KUpUlmkfSAEUReZMCFRpMJI+0AIorpI\n0UtTpLJI+0AIoioyZUKiSIWR9oEQRG2REhafWooiqSHtAyGImsikCYkiFUbaB0IQFZGJHlGk\nskj7QAiirkhJi1Okokj7QAiiHjJ1QqJIZZH2gRBEVZHSFqdIRZH2gRBENWTyhESRyiLtAyGI\nmiIlLk6RiiLtAyGIWsj0CYkilUXaB0IQFUVKXZwiFUXaB0IQlZAZExJFKou0D4Qg6omUvDhF\nKoq0D4Qg6iBzJqRJkyiSGtI+EIKoJlLG8hSpJNI+EIKogsybkChSUaR9IARRAfn3l+cRRSqK\ntA+EIIoj/9pQpDYA/QUAhCAqiZSFoEglkfaBEERp5N9fvklbi1Tfr50zdbn2WBf7/YUAhCBS\npKcMXLn993i59lgf+/2FAIQgctXuMXVDkWwBIYgU6TkUyRYQgiiNPEuQqdE+RDoxTEYuH8WK\nUPIhfTYR6aZT2AvGxP4EgjB/WO+Y6yEN2cjnKQluRrrGen9hACGIosjboUEUqYvx/gIBQhAl\nkd0hdhSpi+3+QgFCEAWR/aGqFKmL6f6CAUIQ5ZD3Q773IdLl/7mjF5YeG8Zyf+EAIYiiIkkh\nNxbpmicrAh8bxnJ/4QAhiGLIweCnSF0M9xcQEIIohTzsTiSJ2O0vJCAEUQg5OieWInUx219Q\nQAiiDHJ8bjlF6mK1v7CAEEQR5MN3NFCkLkb7CwwIQZRAPn7XST7yySSKpIa0D4Qgyoz68bCn\nSF1M9hccEIIosh4mPuopUjmkfSAEMRs58R12FKmLwf4CBEIQJUSSRlKkkkj7QAhiLlLnG+8p\nUjmkfSAEMRM5+eXEFKmLuf6CBEIQ85DTX/JNkbpY6y9MIAQxCznzZfkUqYux/gIFQhBzkHM/\nOkGRutjqL1QgBDEDOfvjLRSpi6n+ggVCENOR8z+CRJG6WOovXCAEMRm58GNiMofvSSMbigQK\nhCCmIpd+lI8idbHTX8hACGKGSNLIJTxFUkPaB0IQE5GLP25JkbqY6S9oIAQxDbn8a8sUqYuV\n/sIGQhCTkCu/Wk6RuhjpL3AgBDEFueIRRepjo7/QgRDEBOSaRxSpj4n+ggdCEOORqx5RpD4W\n+gsfCEGMRq57RJH6GOivHQAhiLHIAI8oUp/t+2sPQAhiJDLEI4rUZ/P+2gUQghgvkjQy6IUo\nkhrSPhCCGIcM8ogi9dm6v/YBhCBGIYNW7CjSPRTJDTEGGegRRepDkdwQI5ChHlGkPhTJDTEc\nGewRRepDkdwQg5HhHlGkPhTJDTEUGeERRepDkdwQA5ExHlGkPhTJDTEMGeURRepDkdwQg0WS\nRsa9IkVSQ9oHQhCDkHEeUaQ+FMkNMQQZt2InVKXw7zu3oUiQQAhiADLWI4rUhyK5Ia4joz2i\nSH0okhviKjLeI4rUhyK5IS4i//5SPKJIfSiSG+IC8q9NvEcUqQ9FckNcF0kSGRGKVAhpHwhB\nnEf+3SKIjAlFKoS0D4QgUiTNUCQ3xNVVO1FkRChSIaR9IASRImmGIrkhLiEPSRpRpHsokhvi\nokgJu75XkBEZvTpFUkPaB0IQKZJmKJIb4gIy5aCGFWRMKFIZpH0gBHFZJGlkTChSGaR9IASR\nImmGIrkhUiTNUCQ3xHlk8iYSRepDkdwQF0WSRkaFIpVB2gdCECmSZiiSGyJF0gxFckOkSJqh\nSG6Is8j0fQ0UqQ9FckNcEkkaGZlhBRRJDWkfCEGkSJqhSG6IFEkzFMkNcQ6ZsYlEkfpQJDfE\nBZGkkbGhSEWQ9oEQRIqkGYrkhkiRNEOR3BBnkDmbSBSpD0VyQ5wXSRoZHYpUBGkfCEGkSJqh\nSG6IFEkzFMkNcRqZtYlEkfpQJDfEWZGkkQkZVEGR1JD2gRBEiqQZiuSGSJE0Q5HcECeReZtI\nFKkPRXJDnBNJGpkSilQCaR8IQaRImqFIbogUSTMUyQ2RImmGIrkhTiEz9zVQpD4UyQ1xRiRp\nZFIoUgmkfSAEkSJphiK5IVIkzVAkN8QJZO4mklyV90IokhrSPhCCOC2SNDIxFKkA0j4QgkiR\nNEOR3BApkk5OjPdcNpG2ruEWmUo2EemmEwDSPhCC+IzMnpA4I/WhSG6IFEkzFMkNkSJphiK5\nIT4hsz9Fokj3UCQ3xCmRpJHJoUgFkPaBEESKpBmK5IZoWqR7MRRJDWkfCEF8RApsIlGkPhTJ\nDXFCJGlkRiiSPtI+EIJIkTRDkdwQKZJmKJIbIkXSDEVyQ3xASuxroEh9KJIb4rNI0sicUCR9\npH0gBJEiaYYiuSFSJM1QJDfEMVJkE4ki9aFIbohPIkkjs0KR9JH2gRBE2yL1BVEkNaR9IASR\nImmGIrkhjpAym0gUqQ9FckN8FEkamRmKpI60D4QgUiTNUCQ3RIqkGYrkhjhECm0iUaQ+FMkN\n8UEkaWRuKJI60j4QgkiRNEOR3BApkmYokhviACm1iUSR+lAkN8SxSNLI7FAkdaR9IATRuEhd\nURRJDWkfCEGkSJqhSG6IFEkzFMkN8Y4U29dAkfpQJDfEkUjSSIFQJG2kfSAEkSJphiK5IVIk\nzVAkN8QeKbeJRJH6UCQ3xKFI0kiJUCRtpH0gBJEiaYYiuSFSJM1QJDfEDim4iUSR+lAkN8SB\nSNJImVwLo0hqSPtACCJF0gxFckOkSJqhSG6IN6TkJhJF6kOR3BDvIkkjhUKRlJH2gRBEiqQZ\niuSGSJE0Q5HcEK9I0U0kIJE+XquqefkWgU+FIrkh9iJJI6WiKNLvsTqnqaovEfpEKJIbomeR\n3qr3s0XNf9WLCH0iFMkN0bNIZ4n6fzqhSG6IFIkiWQdCEFuk7L4G4Srb2jRX7d6rNxH6RCiS\nG2InkjRSLnoi/dZVm/pHhD4RiuSG6Fmkpvl3rKrj+68IfCoUyQ3Rt0jaoUhuiBek8CYSRepD\nkdwQbyJJIwWjJ1LVR4Q+EYrkhkiRKJJ1IATRs0jX/Lz8E4FPhSK5IZ6R0ptIYCI1v5WaSRTJ\nDfEqkjRSMvo7G7hqZxsIQaRIzX9VLUKfCEVyQ/QsUr+v4V2EPhGK5IbYnMQ3kaSrvNSnKVKt\n5hFF8kNsRZJGyuLURNIPRXJDpEiaoUhuiK5Feq/5gSwAEIIo/ykSjkjvPLIBAghBlN9nhyNS\nXX2IYOdDkdwQPYukNxN1oUhuiJ5Feq30Tum7hiK5IXoW6ad+UTvJ/BqK5IaosK8BRiSeRoEB\nhCAqeESR+lAkN0TPIumHIrkhAoh0qZEiqSHtAxGIGptIQCLx1ygQgAhEDY9gROKvUWAAEYiu\nReKvUWAAEYiuReKX6GMAAYgqm0gUqQ9FckIUG6KjmK2Sv0YBCQQg+haJv0aBAQQg+haJv0aB\nAbRPPPgWSe/zoy4AjQsAtE+UO/hmFBSRquOnCHY+AI0LALRPdC7Seb2u/qd6ShJA4wIA7RNB\nRBL7tOtxG+nn8u0nr2rHNVAkJ8SDd5HO+XqvquN/IvSJIDSufaB5ouCXAY+CJNJ5WuL5SMaB\n5okU6TwjvZ1npLkvE6rbdFdul8MHpy6HQWhc+0DzRPcitdtIbyvbSPXtX3fxcP3xchSExrUP\nNE/0LtLl09iPtb12U/IMr1MkdaB14sG7SNVrwOdIgwmJIm0DtE68Dk+EvlYSKeQjpH7zpxcq\nTKQT4yaXzzkxklfprEghp5rXw/84I20CtE7kjBRwqnk9vEaRNgEaJx7cixRwqnk9ukqRNgEa\nJ95GJ0Jfa+1sWD9Dtr7/T5G2AhonAokkZVKOSJE7G65BaFz7QONEihRwqnlnzeNRDFP38cgG\nJaBt4oEipZ9q/mTMTBAa1z7QNrEbmwh9rSRS+qnmFKkk0DaRIhUIQuPaB9omUqR7/knAp4LQ\nuPaBpokH9yJ9Hatj+0ns95HnI5kGmib2QxOhrzVE+mr3M3yfp6PzZpIEfCoIjWsfaJroXqTX\n6r3d8f1SVWprdhCNax9omuhepKr6bX6r6qU6Kn69HULj2gdaJh4oUtX+d56XFIPQuPaBlon3\nkYnQ11ImTYik+xWRCI1rH2iZSJFuIglQF4LQuPaBlokUiSLBAC0TKRJFggEaJh4oUjWMAHsy\nCI1rH2iYOBiXCH1NkRSR9oGGiRSpTBAa1z7QMJEilQlC49oH2iUeKFKZIDSufaBd4nBYIvQ1\nRVJE2gfaJVKkQkFoXPtAu0SKVCgIjWsfaJZ4wBPpJGISRYIEmiWOBiVCX2uIxM+RYIBmiRSp\noUhAQLNEilQqCI1rH2iVeKBIpYLQuPaBVonjMYnQ11oivXPVDgFolUiRbnnnNhIE0CqRIt1S\nV98v1c/vy9IPjeUFoXHtA40SDxSpu1k1/6rP5nfhh8Yyg9C49oFGiQ9DEqGv9UT6rD40z5NF\naFz7QKNEitTltfrvpzpevnM1Hz0dhMa1DzRKpEhdLga9XPY1zP/QWGYQGtc+0CgRUySRw1Yf\nZ57P4+Vn+xS/IxKhce0DbRIPFKlcEBrXPtAm8XFAIvQ1RVJE2gfaJFKk+83b7ecfUZYKQuPa\nB9okUqRrah79jQI0SXzcRILoaw2RPgYefWSTZ4LQuPaBJolP4xGhr5VX7fSC0Lj2gSaJFKlk\nEBrXPtAkkSIN8vt+rKrj+282eC4IjWsfaJH4tIkE0ddKIv3cdjjUP9nkmSA0rn2gReLzcETo\nayWR3qqXs0I/LzxEyDbQIpEiDW9W40v5IDSufaBFIq5IEiZRJEigQeLzJhJEXyuJxFU7DKBB\n4sRgROhrJZG4swEDaJBIkUbh7m8IoEEiRSobhMa1D7RHnNhEguhrDZH0jw9qMBrXPtAecWos\nIvQ1RVJE2gfaI1KkwXWKhAK0R6RIg+sUCQVoj0iRBtd5Yh8K0Bxxal8DRF9TJEWkfaA54uRQ\nROhrrtopIu0DzRGxRRIwiSJBAs0RKdLwOkVCAVojTm4iQfQ1RVJE2gD+/UkTF5MrkjRyOhAi\nFQlC41oA/rVJIS4KOB+KlBWKZBSYKtLKcvOhSFmhSDaBf7ccZmJLpOlNJIi+pkiKSAPANZHm\n0i1XosZ7ZsYhQl9TJEWkBWCaRxQpDUmRVJAWgCs+rJiUMCwoUlYoklXgIW33dzeTRb9expue\n2USC6GuKpIg0AVzu2+Xd33Mjeyl5Ikkj50KRuiA0rgXgigsrxASTXIuUbxJFMgpc6dk1YrxJ\nFCkrFMkoMFOkeJPS3/TsSyH0NUVSRBoArnmwTow1KUskaeRsKFIXhMY1AFzr2ABipEkUKSsU\nySZQQKRIkyhSViiSSeCqA0HEKJMoUlYokkngar+GEWNMSn7T8y+C0NcUSRG5PVBIpOuRRGFP\nzRFJGjkfitQFoXG3B0qJFGESRcoKRbIIXB/94cRQkyhSViiSReB6t0YQA01KfdMLeIS+pkiK\nyM2BoiIFmpQhkjRyIWrIXJMokkFgwMiPIgaZlPiml07ZQOhriqSI3BoY0KlxxBCTkt708umH\nCH1NkRSRWwPlh730HNeFInWhSPaAGvOH5H7Ae1a+IQKhrymSInJ7kYSJjdRBRw+hSH0okj2g\nzq6B/BMzJpBctetCkewBlfax5Z28Ps2jSF0okjmg2s7qZXDC7osLb+m7jhD6miIpIjcXSZg4\nIAt96NNptByEvqZIisi9irRoUuRBR4qf8W6CpEhbj3tpoPoBPdknDwVqhNHXgCKdmJCce1QZ\nn8e/aiRUjaEkvalNRLrpBIDcekYSJj7xM75fOHg2CkdGRQ+ZOSVRJGNA/bWmmVcIIYZuHEUg\nI0ORuiA07sYiCROnXiLpl5MjNcLoa4qkiNy5SNMmrRGjNcLoa4qkiNwQGDpW80qcepVlYoJG\nGH1NkRSR24okTJx7mcfXWSImaYTR1xRJEbl/kSZMmicmaoTR1xRJEelApGeT5ojJGmH0NUVS\nRG4HDB6y+SU+6jFNzNAIo68pkiJyU5GEiYuvNXy1KWKWRhh9TZEUkT5Eepj/nomZGmH0NUVS\nRG4GDB+3MiUOX++RmK0RRl/fkXlvliJZAhY/jG2gyunpgUyNMPqaIiki/Yg0MOn0eHeuRhh9\nTZEUkVsBtziwun/N0/i+fI0w+poiKSI3FEmYGPaihxFRSiOMvqZIikhXInUm3XdeSXkE0dcU\nSRHpS6SrSddvA5LUCKOvKZIiciNgzBAWLbH7fjpZjTD6miIpIrcTSZgYmqFIgliEvqZIikh3\nInXf4S2qEUZfUyRF5DbAqOlARyRRKEZfUyRF5GYiCRPDo+IRRF+P9/unUyiSGSBF2hhJkXYB\njNvQFy9RXiOMvqZIisg5YPJgCxRJmBgXhI6hSPcgNO40MGP1hyIhIClSGaCuSJEf4VAkeSRF\nKgLM2UUcJpIwMTIIHUOR7kFoXIrkEkmRygDVV+2EiZFB6BiKdA9C424gUuxRbhRJHkmRCgEP\n7WGdgsAhOxJMkeSRFKkMMOMkA4qEgKRIZYCXdk40abXCaC5FUkDmmESRQoHXsa4nkjAxOggd\nQ5HuQWjcOZGahKljHvgMlyRGB6FjKNI9CI07BewMUhEpXk+KpICkSAWAXSMnTUkBIgkT44PQ\nMRTpHoTGXRIpqbUpEgSSIukDD5oiJcxyFEkBSZH0gfc2Tlm3WxdJmJgQhI6hSPcgNO4zcGgP\nRdorkiKpA4dNLL8iRpFsICmSNnDsjrRICiuLCUHoGIp0D0LjTok0viX6qY/GfsD4IHQMRboH\noXFXRJI+DoEiWUFmmESRAoCPU5DsIaYqH/HGB6FjKNI9CI07IdLKHZHALNg6MSkIHUOR7plv\nCdVvjcsBPk8ZouezUiQzyD2IpPytcTnAieYVFEnpeHIDRDwkRZJNkEhS30KndIaTASIecgci\nKX/ZVQ5wUhqKtEckRZLNk0jPT4mbkigSBnIHItldtZtRRkokrW+BMEDEQ+5HJKXv6MkBzjRu\nlADLIgVjwoiJgRv1Csg9iHRRycqgGgJnhaFI+0PuQ6TGzPbCg0jTT4qZkuYrTFyzo0gqyD2J\nZOEzlSCRYlp9UaRQSCAxNXCjXgOZbpItkYwcdzb+G0WR/CB3I5KNI6HDJvsI6WcrTF2zo0g6\nyP2IZOJs0TtwcaDLiBRcVRgxOXijXgG5L5E2/0adkUjzTwsvlSKBIHckkoVvHQ0UKbzZ5ypM\nXrOjSDrIPYlk4Huwe+DKQA/2YEGkiLJCiOnBG/UKyF2JJHvaXEqGIi0+kSLtDLk7keROm0tJ\nB1wtJLRSigSC3JdIkmf7JGUg0soz80RK30SiSDrInYkkeLZPUk59FQEihVQ6L1JMWQHEjOCN\negXk3kQSO0khLXeRVp9KkXaF3KNIIsdWpyVOpIBCpyvMWLOjSErI5C4xKpLQsdWJOUWUkCdS\nTFUBxJwAjnoF5O5EkjkkNDG9SAHPDdKNIqEg9yeSxJFsqTndXj+ogGSRctbsKJIScp8i5R7J\nlppOpKAnh9Q5J1JUVevErACOegXkDkXKPwAnOaeYVw9pe4qEgtyjSNkH4CTnFPHiQcpRJBTk\nLkXKPG4gPXEiBTx1qsKsTSSKpITcrUgZH3em5xQ3zJNFiqtqlZgXwFGvgNynSFkfd2bkFNeg\n61VSJBTkTkXK+bgzI6fI9a4UkfLW7CiSEnKvIqV/SpOTU2R7rkoxLVJcUavEzACOegXknkVK\n27mck1iRVtSH6r8AAA19SURBVJ9OkWCQqf1iXaTkncs5OcWud609/7nCzDU7iqSF3K1IifvE\nsnKKbs0UkeJeYZWYG8RRr4Dcr0hJm/J5iZ8uVpagSDDIfYsUvQWSl4TGjBQpd82OImkhdyxS\nwhZIXlJG+fIyUyLFvsIKMTuIo14BuWeR4rdA8pLUlhRpH8hdixS74pSZVJHml6JIMMjdixTz\n9z4vidsvMSJlbyJRJC3kvkWK/Hufl8SmXCpxQqSUl1gg5gdx1Csgdy5S1N/7vCTPFhRpD8i9\nixQzTPNyfiHxWfMBmL9mR5G0kMVEqi+5XTaDy2bivuFjXTJEChymeTkki7TQB88ipb3CLFEg\niKNeA5nYOfEiDS7q++XUfcPH+iS3xLxJ0iJlrH6GVUiRDCN3L9L8O7QiUmiFAmt2FEkNWUik\nenhZVqTZtyjZuIdMkUIqFPCIIqkhS4nUbSI1TaxIp9y0my/KyXuJsKULvA0mOVG9kyHSgiza\nM9LcX3zBv1LXV8jZjpu8//TwJM5IdpGltpEu2UqkmTcpK1IOcM6RR5FS+TNEkUCOegWkC5Gm\n36UdkeZ6gSLhIEvubNhUpOe3Kde4BwGRVudMimQaWVCkxJ0N12S2xNRIFRUpE7guksgmEkVS\nQxb7HGnm6IWpox0kj2zooinSQUSklZVPEY8okhqy5DbSVJ6MmUl2Szy/UUmRsoEUCRzpSaSH\ndyrVuAchkRa34mTW7CiSHjKtg2CO/r7naSgKiiQAXBcphz5BFArmqFdAuhHp6Z2aE2lpK44i\nWUf6EenxrQo17kFGpOXdIUJrdhRJD+lLpOF7lRNJBDjhykikLPgzUSqYo14B6Uikh7Eq07gH\nKZEW9ytSJPNITyI1OiIJAZf2K1Ik80hXIo3erfgkJ/6h8WnwCEUyjnQnkti474D9dQGRZvYr\nSnlEkfSQvkQS3KTpef118aMvKBIQ0plIYjvZepqsSJM76MXW7CiSHtKbSEKfnz7CZIDzImWj\nx0S5YI56BaRHkfIPjXtkCQEpEjAyqZeARZI462GAGtwSPx7wNHlvTiiSHtKdSALn4T2QbtEC\nynlEkRSR/kTK/oqFAUdepOd1RYoEgfQpUs63Zw05w5tKey8E1+wokiLSoUh5X4w6pgyitD9d\n0COKpIj0KNLlTf/9CUBGt5U+4aVIGEiXIjV/bbIQOqfcPh/ERJEwkBQpMQsHawthT7fbFAkB\n6VKkv798k/REGh3EJOkRRVJEuhYpY4wunT6UFYqEiXQp0s2kQ8Z609IJrVm513RqhNfsKJIm\nMqWn9iRS2kidWEyqxkeRhLAdUTaoo14B6VKki0rNVYc0lyYWERTpflgtRYJBOhVpeEhogkqK\nIjUDkWTX7CiSJtK5SE2SS1PPlhSpO6xW1iOKpImkSE28S1PPlKuRIiEiKVKbqM2lyaeJinQ7\nPp0i4SApUpdwlyafIlhjJ5LwJhJF0kRSpEHCVJp+go5IctCGIqkiKdI4AS5NPygr0oEigSEp\n0lPWXFIX6foKJ+k1O4qkiaRIE1ncXJq5W1ikQyuSILOhSKpIijSdeZdmWky0RoqEh0zoLg8i\nNXOreHMrXNIiRX5GHBKKpImkSAuZcGmuvWRrvJwML+0RRVJFUqTljF1qjxnPAwZF4Bze51Ak\nTSRFWst9c2lpeFMk50iKFJDSIkmcDP8ciqSJpEhh6T2aGd4UyTmSIgWnnEhctcNDUqTwcBtJ\nnYiLpEjhKSfS7WR42VAkTSRFisn88BavEWHY2+mY7ZEUyQsQgoiLpEhegBBEYGS8SRQJEghB\nBEZSJCdACCIwkiI5AUIQgZEUyQkQggiMpEhOgBBEYCRFcgKEIAIjKZITIAQRGEmRnAAhiMBI\niuQECEEERlIkJ0AIIjCSIjkBQhCBkRTJCRCCiIyMNokiQQIhiMhIiuQDCEFERlIkH0AIIjKS\nIvkAQhCRkRTJBxCCiIykSD6AEERkJEXyAYQgIiMpkg8gBBEZSZF8ACGIyEiK5AMIQURGUiQf\nQAgiMpIi+QBCEKGRsSZRJEggBBEaSZFcACGI0EiK5AIIQYRGUiQXQAgiNJIiuQBCEKGRFMkF\nEIIIjaRILoAQRGgkRXIBhCBCIymSCyAEERpJkVwAIYjQSIrkAghBhEZSJBdACCI2MtIkigQJ\nhCBiIymSByAEERtJkTwAIYjYSIrkAQhBxEZSJA9ACCI2kiJ5AEIQsZEUyQMQgoiNpEgegBBE\nbKRdkU4Mg5OzSOtP2kSkm04ASPtACCI20u6MdA1C49oHQhCxkRTJAxCCCI6MM4kiQQIhiOBI\niuQACEEER1IkB0AIIjiSIjkAQhDBkRTJARCCCI6kSA6AEERwJEVyAIQggiMpkgMgBBEcSZEc\nACGI4EiK5AAIQQRHUiQHQAgiOJIiOQBCENGRUSZRJEggBBEdSZH2D4QgoiMp0v6BEER0JEXa\nPxCCiI6kSPsHQhDRkRRp/0AIIjqSIu0fCEFER1Kk/QMhiOhIirR/IAQRHUmR9g+EIKIjKdL+\ngRBEdCRF2j8QggiPjDGJIkECIYjwyL8/irRzIAQRHPnXJpRCkSCBEERwJEVyAIQgYiP//qJM\nokiQQAgiNpIieQBCEMGRXLVzAIQggiMpkgMgBBEeGa4RRQIFQhBdISkSJBCC6ApJkSCBEERX\nSIoECYQgukJSJEggBNEVkiJBAiGIrpAUCRIIQXSFpEiQQAiiKyRFggRCEF0hKRIkEILoCkmR\nIIEQRFdIigQJhCC6QlIkSCAE0RWSIkECIYiukBQJEghBdIWkSJBACKIrJEWCBEIQXSEpEiQQ\ngugKSZEggRBEV0iKBAmEILpCUiRIIATRFZIiQQIhiK6QFAkSCEF0haRIkEAIoiskRYIEQhBd\nISkSJBCC6ApJkSCBEERXSIoECYQgukIWF4lh9hiKxDACoUgMIxCKxDACoUgMIxCKxDACoUgM\nIxCKxDACoUgMIxCKxDACoUgMIxCKxDAC2YFI9dYFrAegRIgaDVe5B5HMNm4fgBIhajRc5S5E\nstq4fQBKhKjRcJV7EMnun6kuACVC1Gi4SnyRLg1rtHG7AJQIUaPlKncgUvufycbtAlAiRI2W\nq4QWadCgJhu3gSgRokbzVWKLZLxxG4gSIWo0XyW4SMPG3a6OhQCUCFGj+SqxRbL4p2kcgBIh\najRfJbJIdnfh9AEoEaJG+1VCi9T+Z7hxIUqEqNF+laAiDVaYrTYuQIkQNYJUiSlSPWxdm40L\nUCJEjShVQopUj+d5i20LUCJEjShVgop0u7DaqA1EiRA1olQJKlLXuNuWsRSAEiFqRKkSU6Su\ncS3/lQIoEaJGlCrhRKrbDU/Tf6UASoSoEaXKNmgi1c1tN05/y1wASoSoEaXKa8BE6vfg1GY/\n6QYoEaJGlCpvQRSpa2GbTQtQIkSNKFXegibStVm3LmMpACVC1IhS5S1oIg3+NxqAEiFqRKny\nFjCR2rR/qWxP9QAlQtSIUiWuSMab1myJg5rM1jgKRpWwIllvWrMlDqoyW2Mz9N1ylcNgimS2\nafvjWcyWODwlwWqNF5H6g1QNVzkMkEgAx9I3g1G6ZRlLQTi5Z6iP4SqHwRFpMMdbbdrhGWhb\n1rEc82ckXALRksMAidTY/+tkvT6MVmxwVujuQRGpfji/y2is14exNxnhkKDHoIhk/2D6GqP7\nAUyq627iNF3mODAiWT8GuBufRsfoaH+y2SrbDHYzWC7zIRAi1eY7f3So8talTGVQmc0C77lX\nabzQURBE6vbXGR4BtfH5EsOk0dqx1SJnAiBSf0aK3RGA0Pv3MWq0Gev2D2a/ZWSzyNmYFune\nonaPExl/bmi0yDadSVZr7KZLkL02D7EtUvcH9DodWWzaut8itt/7t6ndaI33o6ssVzkb0yKN\nVuqNtmy/3gnQ+6brQzhyaSG2RRqs1Ftt3dvGm/356BLLBdYT14BiXKT7ODXbun2Bdrfj+lgu\nkCLppjNp6zpmM9w5b7jMxvDqcRu0w70fYl4k++1q2fJBTE/rl1g/tn859kUy37C2h+cg1us0\n/SnXWhBEMt6y1uvDSW1+1pyPcZGsr9i3MV8gox/rIiH8ibJfIaMe4yJh/LlHqJHRjXmRGAYh\nFIlhBEKRGEYgFIlhBEKRGEYgFIlhBEKRGEYgFAk49evHT3vl5+N15rOsj8v9FXtZPWxi4FRV\n9dZeeavmXGnvp0j6YRMDp6qOt3PxjxRp47CJgVNV/6qv8+XX+fLSkT/nmentp33g57Wq39s5\nq2pFem9vMmqhSMCpqrNC58uzThdffuuLN/Xv5YH26nsv0uv1JqMWigScsyT18Xx5rNq1t/fq\npWleqnYievltPqq6X7U73/xX8dhaxVAk4Jwteat+mp/qrRXmeL5+vnFsV+2uD3cidTcZrbBx\ngXNW47P6OE89/92lmbp2v8lohY0LnLMav+fVuZfqlyJtHTYucC5qnC26bBo9rtp1D1OkQmHj\nAueixkf1etlz97izoXuYIhUKGxc4FzV+qqr6vl4d7v7uHq76XXcUSTVsXOC0atRVfzjd4APZ\n7uEPilQmbFyGEQhFYhiBUCSGEQhFYhiBUCSGEQhFYhiBUCSGEQhFYhiBUCSGEQhFYhiBUCSG\nEQhFYhiBUCSGEcj/wigJ3QMF8oYAAAAASUVORK5CYII=",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {
      "image/png": {
       "height": 420,
       "width": 420
      }
     },
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Ensure locale is set to English\n",
    "Sys.setlocale(\"LC_TIME\", \"C\")\n",
    "\n",
    "# Plot Monthly Revenue Trends\n",
    "ggplot(monthly_revenue, aes(x = month, y = total_revenue)) +\n",
    "  geom_line(color = \"blue\", size = 1) +  # Reduce line thickness\n",
    "  geom_point(color = \"red\", size = 2) +  # Add red points for clarity\n",
    "  scale_y_continuous(labels = scales::comma) +  # Format Y-axis with commas\n",
    "  labs(title = \"Monthly Revenue Trends\",\n",
    "       x = \"Month\",\n",
    "       y = \"Total Revenue\") +\n",
    "  theme_minimal() +  # Cleaner theme\n",
    "  theme(axis.text.x = element_text(angle = 45, hjust = 1))  # Rotate X-axis labels\n",
    "\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 24,
   "id": "8aa0bdd2-f116-4c57-9a62-710d6a1f83a2",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAATlBMVEUAAAAAAP9NTU1oaGhz\nfvZ5i/V8fHx+nPJ/nfKFvO6Gw+2HzeuHzuuMjIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp\n6enr6+vw8PD///8XE3vJAAAACXBIWXMAABJ0AAASdAHeZh94AAAgAElEQVR4nO2dh3rjMM9m\nucxu/uIvbVJ1/ze6liWSYLMUGyDI6D3PjK0KgSJOVKw4ZgIA3I3RTgCAvwBEAoABiAQAAxAJ\nAAYgEgAMQCQAGIBIADAAkQBgACIBwABEAoABiNQVhrJvlSe/4PujMY/vhWiP//Zs+Or851tW\nu96aLCRdyK318PJzNa9ugEhd8XuR3v2Cj8taL6VoL+WVo0WvzP2wlbm3i1QIWRLJGDuGSRCp\nK34t0rtf8Dz0+PPzYMxXKdrb9oZvmXu7SIU1yyJt/xDoAojUH7vP6qavp1CjL8a8X3QKzqyz\nvuZTvru2eaNI1xbZFuny/u98SNraQhdApP6gBfX5bI15/nCTX6x5+Bct+eiWPjv1eZbGmKc8\n0GXg/PL1cDGKBD2X6oOxL34Jut7HOeTD2+QOD27Fh5fomOdzOs+5THuIFSm3xof8ejkvb54+\nprJIfsBfAH6cI1ymPBvzQWdcFv03j9Fg63t2/cgNROoPUlAv6+nN6+Stoec6szVuabu8u3KO\nAjlNHi6a0aDryGNBpNdlqcdQ9R/ubOuTbMHn9LycVX65Qr/aGhfyy4V8L4v0trbnJaT84LO0\n8QyfzCxY3BaylBAQqT9CQZ0r135On/ZSuoaOLDy+Zz96C9W4ntrNdfYzfcVBw0gq0udl8ZfL\nqeI64+Gyyj9yohhy+pjPKudCfb1Isac1lxaY+WD25hKkaznmY+KSzONlzfMG5nX+XTZHZ8zJ\nvF+Efiy25ZHsOXYgUn+Egnpeyujt8hN/+bE912vxJ35ZpPgH/nsW9NkHTUV6ufxg/7kcEULs\npBKjnOzl4PGQXNTUW5MuVE79ZV314+LDi0tptvonnrEm85O3hS4lBETqj1BQ9lIsoZrXEVta\n+qpIL5NfPw66nhAWiu8hDjS/zVczD9FnUsavbi/qfc3nanG11luzTv75eI3PLGnqj8v12INr\n3HwsfFq385jMiNIvtWX7nsvtQKT+CAVVL4186bpI9um9sGAhaHGErLJeI5HPSKM1PuaTrdfl\nFsDu1nyslzWlLf5zB1HyI2G6HP9e1puU0YyrbQmrywCR+uM2kfzNBpvNKgQrBt0Safp8Xsrx\noxxzPrd7IDc7drRmPqd8/vdV2eKb+zw2NsGe22iXdkIkUCX0d3oy9OVH8qUvJzzzdUDh9nc0\nFgV98CM7Tu1m3ufb1Q9kRoh1OUpkt8bqrZmnLfcvquo+rCeK8S3183ZeCjPqIj0IGuQ2Lr0B\n8GtCQaWX5/PIe3IR4pZ+dR/IvhQC0bEo6HqG9M8V31zpH6ZysyEPG+e03Mv+miLqrQlza0ek\nSypzSjQZt53LfY9SltfbIgRE6o9QUO/p7e+P+PY3Xfp8LHr4+XmkN5/L9R8F/aS3v58uJf6x\njNDb3+tp4+PlxnN6+5vkdLkbsa811h9y3qbP4s2Gy/uS0prMs2vco98OnRGJVGjLc3JjnhWI\n1B+koIofyL6Wl16XfSwGKiyYfyC73kxYH5YIH8jOJTjf3/6yyyT7RWLSD4nnVdInzSutWUOu\nm7yc4ZVE+loPPWsy69H2X9gOmRGJVGyL4GN7EKk/aEFdHqoJd91e7fIATHHpt8KvURTHSNDo\nEaHLoeHxzZ9XLWMzT8ul1898gWQrjwhNy6VW+rB2pTUu5GUj75fHIUoizfJdLvr880putttO\nmBGJlLYlWl0AiDQMsRZd8iP5SU3fdN83wDGASM/5md1R6L5vgKN7kUzhVsNh6LxvQKB7kayx\nz2P8OqsAnfcNAGMAkQBgACIBwABEAoABiAQAAxAJAAYgEgAMQCQAGIBIADAAkWT47j4gUmQF\nIskwQAkgRU4gkgwDlABS5AQiyTBACSBFTiCSDAOUAFLkBCLJMEAJIEVOIJIMA5QAUuQEIskw\nQAkgRU4gkgwDlABS5AQiyTBACSBFTiCSDAOUAFLkBCLJ8H/An2KzwyGSDNodD3jZ7HCIJIN2\nxwNeNjscIsmg3fGAl80Oh0gyaHc84GWzwyGSDNodD3jZ7HCIJIN2xwNeNjscIsmg3fGAl80O\nh0gyaHc84GWzwyGSDNodD3jZ7HCIJIN2xwNeNjscIsmg3fGAl80Oh0gyaHc84GWzwyGSDNod\nD3jZ7HCIJIN2xwNeNjscIsmg3fGAl80Oh0gyaHc84GWzwyGSDNodD3jZ7HCIJIN2xwNeNjsc\nIsmg3fGAl80Oh0gyaHc84GWzwyGSDNodD3jZ7HCIJIN2xwNeNjscIsmg3fGAl80Oh0gyaHc8\n4GWzwyGSDNodD3jZ7HCIJIN2xwNeNjscIsmg3fGAl80ObyGSXYkHp3jgMmzXFfxqfiS8u+lk\nQT+ShifB7ZXlpzx0WC0Ka9M1amh3POCFdK3JBrIRIUjZ23QqVWWu0zDRxrNttIibluiRho/E\nDMv7FbL5cTZ51pnVNbQ7HvASetaYdGAZ26oIBooiVSYm+vhBm6xnk8XLEqQSpqvZwtIQCeT4\njjVOGdPJESk7Ni1DaYm7+cUKzrwrht8vUjEGRAJBJDMNIpKzoiRMsho9Wtl0bnzpU1yeR6Tv\nMtodD3ghXWvc6/lfKBu1mw3WzUkmlkSqHGmCGM60+F5AGEiXr4oU3UcIIuFmw9EhXWvcq84R\nqXbulf3At3tFInUebyRbMXnNt/K7I9K2RhDpr0G61rgXpVO74pV8uU53ihQf3JK52aaz5W8/\ntdthknbHA15I13qHhhApvurJL6hsVud2KoSvHpGKIhVThEggF2klnipNcokSTS2V/3o1lazq\nFnHTgwSpW1Nx9XT57APg/SLtMEm74wEvpGv7+ED290820Ah0eibSPJQ/2eBXL4pXfbKBpFFI\ncNsk7Y4HvJCu1RPpiGh3POCFdC1Eaol2xwNeNjscIsmg3fGAl80Oh0gyaHc84GWzwyGSDNod\nD3jZ7HCIJIN2xwNeNjscIsmg3fGAl80Oh0gyaHc84GWzwyGSDNodD3jZ7HCIJIN2xwNeNjsc\nIsmg3fGAl80Oh0gyaHc84GWzwyGSDNodD3jZ7HCIJIN2xwNeNjscIsmg3fGAl80Oh0gyaHc8\n4GWzwyGSDNodD3jZ7HCIJIN2xwNeNjscIsmg3fGAl80Oh0gyaHc84GWzwyGSDNodD3jZ7HCI\nJIN2xwNeNjscIsmg3fGAl80Oh0gyaHc84GWzwyGSDNodD3jZ7HCIJIN2xwNeNjscIsnwvb2I\nckCkyApEkmGAEkCKnEAkGQYoAaTICUSSYYASQIqcQCQZBigBpMgJRJJhgBJAipxAJBkGKAGk\nyAlEkmGAEkCKnEAkGf4vqLN7L0Kkw6Ndq12zey9CpMOjXatds3svQqTDo12rXbN7L0Kkw6Nd\nq12zey9CpMOjXatds3svQqTDo12rXbN7L0Kkw6Ndq12zey9CpMOjXatds3svQqTDo12rXbN7\nL0Kkw6Ndq12zey9CpMOjXatds3svQqTDo12rXbN7L0Kkw6Ndq12zey9CpMOjXatds3svQqTD\no12rXbN7L0Kkw6Ndq12zey9CpMOjXatds3svQqTDo12rXbN7L0Kkw6Ndq12zey9CpMOjXatd\ns3svQqTDo12rXbN7L0Kkw6Ndq12zey9CpMOjXatds3svQqTDo12rXbN7L0Kkw6Ndq12zey9C\npMOjXatds3svQqTDo12rXbN7L0Kkw6Ndq13jdpIxZn0z6yCdvMyIB+5lBJFs8hbGz8MOP1RY\nx2aT/JK2Mj1eIYq9vvpJls61xTTyja4tiZfehXatds26j8xE6o94NP9f5n0vk6MF72IckWzy\nHhyIPInWWQvY1bGfFA0Vp8cxaGwXLUku33a6VLqZYt7baNdq1yy7yJDXzChz+fftBiamSh1B\npFiHvMD3ipQGWAeL0+M3DpHyQYjEzrKLIj/iA5Lju3jIuoNDi+TGCtPjGJwiTRBJjnUf0TM2\nKlK4IDquSOT/L0VK1iyIVJgex0gkIKdngiJ9l9Gu1a5xO+lsjBsKe+4yzY/nA10R6kBQpHCd\nTwsyvsoPYxWRfITi9DhGKVrxpkI6koqUhcMRiZV1H5EjEilDesb3zXxAGuOIlNT6745INo8Q\nl3dxeilGtK3o/O43RySbxIdIjCy7yGSv2YRvZo+GEcmS91+KFB2+bFmkbHoSI8QtHQxLItGl\nIFIrll20QyRuj44gUjRwt0ilTeOI1AvLLiKu0Cqkk7+jaQyMIVJcsL8SKay5LmajNUKQeHpp\nO9GsTLY82SSUTYYgEj/rPgrXSFEV+snG1T1fkf4hkcpPNpRL/9YnG7JoJRuoSHS9/MmGZMRO\nO7zSrtWucTspPAs00ff0yaH0EaI7GEQk4NGu1a6p7rW0GvHQ6uHRrtWuqe41iAQStGu1a3bv\nRYh0eLRrtWt270WIdHi0a7Vrdu9FiHR4tGu1a3bvRYh0eLRrtWt270WIdHi0a7Vrdu9FiHR4\ntGu1a3bvRYh0eLRrtWt270WIdHi0a7Vrdu9FiHR4tGu1a3bvRYh0eLRrtWt270WIdHi0a7Vr\ndu9FiHR4tGu1a3bvRYh0eLRrtWt270WIdHi0a7Vrdu9FiHR4tGu1a3bvRYh0eLRrtWt270WI\ndHi0a7Vrdu9FiHR4tGu1a3bvRYh0eLRrtWt270WIdHi0a7Vrdu9FiHR4tGu1a3bvRYh0eLRr\ntWt270WIdHgGKAGkyAlEkmGAEkCKnEAkGQYoAaTICUSSYYASQIqcQCQZBigBpMgJRJJhgBJA\nipxAJBkGKAGkyAlEkmGAEkCKnEAkGf4fYNiLEOnwaFdxBzDsRYh0eLSruAMY9iJEOjzaVdwB\nDHsRIh0e7SruAIa9CJEOj3YVdwDDXoRIh0e7ijuAYS9CpMOjXcUdwLAXIdLh0a7iDmDYixDp\n8GhXcQcw7EWIdHi0q7gDGPYiRDo82lXcAQx7ESIdHu0q7gCGvQiRDo92FXcAw16ESIdHu4o7\ngGEvQqTDo13FHcCwFyHS4dGu4g5g2IsQ6fBoV3EHMOxFiHR4tKu4Axj2IkQ6PNpV3AEMexEi\nHR7tKu4Ahr0IkQ6PdhV3AMNehEiHR7uKO4BhL0Kkw6NdxR3AsBch0uHRruIOYNiLEOnwaFdx\nBzDsRYh0eLSruAMY9iJEOjzaVdwBDHsRIh0e7SrugGVHmIV1kOwhP0Ymp9UIkSLs5V88dBlc\nWMf90JTOoROTJWw0GK1WXsZmQ9nm3WBxvo1Xq6JdxR1A9oZxLyaaZAwd8G8BiBQRi7QM2mji\n5Ko0rOHf7DpGX2Mf6YY2lylGopv3L9X0tiSa0a7iDiB7IzhkyJTLK5lscES6zh6RwuCUjNpQ\n2umsaSqKdHUZPz0SqTRYTQ8i7SLsDH9ASkWakmMURLpKcmq3VGbxfK9UsYlI8YI8ItHNl45v\ntrzmNbSruAPCziiK5C6ccI20m+sikZ/4iQLRSVYzkdJrsw2RvstoV3EH+H1hstfzu1lH/ACd\nOwyhDlRFCvcCyKKXt3BBH4kUX/znNxuKUeJl/Gw6N9/8dCU9HJF24feFCW/m2jUSjkgbpGdx\n1r8nswundjZdJD7rI1OmfcvEk5K5Uag8LkT6DX5feHmMmSDSHdwlUu1oE143Tu2SZeLpyVyI\nxIjfF9GnR9E7RNqLq9MNkQpXNdGKwiKVM7HpGmmW19Cu4g5wuyKSBCLdRnSZE13vJCIt8zMT\nyIT4aJCX/pQVenGZacrloZuPr8zcGlF6EGkXbldQd5IPZNPJEKlKuMLPbx7UHi2onNDFTy2E\n9/qTDaVlpqmoZOnJhmI70hkVtKu4A9yuIJdI9PCDR4TADrSruAOq+2Z/zUGkw6NdxR1Q3TcQ\nCexGu4o7gGEvQqTDo13FHcCwFyHS4dGu4g5g2IsQ6fBoV3EHMOxFiHR4tKu4Axj2IkQ6PNpV\n3AEMexEiHR7tKu4Ahr0IkQ6PdhV3AMNehEiHR7uKO4BhL0Kkw6NdxR3AsBch0uHRruIOYNiL\nEOnwaFdxBzDsRYh0eLSruAMY9iJEOjzaVdwBDHsRIh0e7SruAIa9CJEOj3YVdwDDXoRIh0e7\nijuAYS9CpMOjXcUdwLAXIdLh0a7iDmDYixDp8GhXcQcw7EWIdHi0q7gDGPYiRDo82lXcAQx7\nESIdHu0q7gCGvQiRDo92FXcAw16ESIdngBJAipxAJBkGKAGkyAlEkmGAEkCKnEAkGQYoAaTI\nCUSSYYASQIqcQCQZBigBpMgJRJJhgBJAipxAJBn+6++TtRkiAXa0q7wBWZshEmBHu8obkLUZ\nIgF2tKu8AVmbIRJgR7vKG5C1GSIBdrSrvAFZmyESYEe7yhuQtRkiAXa0q7wBWZshEmBHu8ob\nkLUZIgF2tKu8AVmbIRJgR7vKG5C1GSIBdrSrvAFZmyESYEe7yhuQtRkiAXa0q7wBWZshEmBH\nu8obkLUZIgF2tKu8AVmbIRJgR7vKG5C1GSIBdrSrvAFZmyESYEe7yhuQtRkiAXa0q7wBWZsh\nEmBHu8obkLUZIgF2tKu8AVmbIRJgR7vKG5C1GSIBdrSrvAFZmyESYEe7yhuQtRkiAXa0q7wB\nWZshEmBHu8obkLUZIgF2tKu8AVmbIRJgR7vKG+CaaoxJBqqTf1ttEKln7EIYmaJBa8kCdJ4l\nK9tpA+0qb8Da0rmCLqqYb1pOYbIb8G/7gUg9Y8Obk8NPttEi53dLxi2Zs4V2lTdgaahxr+ZS\npa6eyGQ/anBE+lNQkYqDmUhhFCIFloaS07ZcpCk5RkGkv0RQxpJJtrBIKtIEkQhLQ427BkpF\n8pNxjfRHqYhEL3ySI9U1kb7LaFd5A5aGGjO/rP/dK51s6NTK3hqWUAdHFMnfLqAirXPicfJ/\nNQ03GzxLQ8M10OVmw7VrJByR/hbZgSeflLziGqnE0lB6M8GYCSIdh/0iuYMPRCqxNJSIsnXX\nDiL9LfIrnspdOxyRrrI09Be3vyHS34KKFD5Hij6ALd/0xudIEWtL3YeupQ9ko4EJIv0t4hvd\n2ZMNfhE6gicbclxTjX9uwdDDDx4RAgxoV3kDsja7KuWrKYh0eLSrvAFZmyESYEe7yhuQtRm/\nRgHY0a7yBmRthkiAHe0qb0DWZogE2NGu8gZkbYZIgB3tKm9A1maIBNjRrvIGZG2GSIAd7Spv\nQNZmiATY0a7yBmRthkiAHe0qb0DWZogE2NGu8gZkbYZIgB3tKm9A1maIBNjRrvIGZG2GSIAd\n7SpvQNZmiATY0a7yBmRthkiAHe0qb0DWZogE2NGu8gZkbYZIgB3tKm9A1maIBNjRrvIGZG2G\nSIAd7SpvQNZmiATY0a7yBmRthkiAHe0qb0DWZogE2NGu8gZkbYZIgB3tKm9A1maIBNjRrvIG\nZG2GSIQXaxbEtngMBigBpMhJIsyLMRCJgwFKAClykghjzZvYpg7FACWAFDlJRMKRiIkBSgAp\ncpKI82R+xDZ1KAYoAaTISSLSl338EtvWkRigBJAiJ9mpHW42sDBACSBFTiCSDP/9xym1GSIB\ndrQLXZpSmyESYEe70KUptRkiEX5eHox5eMG9uzvRLnRpSm2GSIGv9Qkhi3t396Fd6NKU2gyR\nAs9mvv399WiexbZ4DLQLXZpSmyESGTXxO7gR7UKXptRmiERGIRIP2oUuTanNECmAUzsmtAtd\nmlKbIVIANxuY0C50aUpthkgE3P7mQbvQpSm1GSIBdrQLXZpSmyESYEe70KUptRkiuWGDh1a5\n0C50aUpthkhuGCKxoV3o0pTaDJEAO9qFLk2pzRAJsKNd6NKU2gyRyOg6bq3YFo+BdqFLU2oz\nRFqxxuAaiQntQpem1GaItPJGPMLX292HdqFLU2ozRCKjOBLxoF3o0pTaDJEAO9qFLk2pzRCJ\ncHnW7vFVbHtHQbvQpSm1GSIF8PQ3E9qFLk2pzRAp8IjfR+JBu9ClKbUZIpHRZfwHNx3uRLvQ\npSm1GSIF3Jfom0exLR4D7UKXptRmiER4fvycT+3wVfp3ol3o0pTaDJHIqMHTDSxoF7o0rp0m\nfF2OIVVKiicf2A9Eao1dWEfoJBuG/AOENlknrOeHwip0qltrOyHtQpdmbeZcIpc6cf/J5HXQ\nTb2lnMYVaVSiUndvdFb+WtLHPaybvJKpUYQraBe6NEsrjXu9DHx7Z8Kr8UId64g0KjtFIi5U\nRKLr2nxqsm4d7UKXZmllfNoGkdzwuL8h21qkTbQLXZqllcZfDFVO7Ux61PodEKk1iSe5L2HM\nTtmMSKn0BC6amov0XUa70KVZWmnM/LIOGtJ8N2b8bDfwtwh1MJgwNcjNBC9S4QYEHajdbNgW\nac/tBu1Cl2ZpZXw0yo9I9Mh0oCPSmcdBHw2yyZCv+WyBdMn01I5MsPlUXCOtLK3cuNkQO3Qo\nkeygR6jCcSY9pcuX9G/JkC2JNFmIRFhauSWSu0y49XphXJE+H1+GfKahdkSCSEIsrdy+/Y0P\nZMW2KELmiSV2FBfIb+SRi6OSSBO5nNq+eadd6NKszaxcBNExiDQSdZHS0i/dbAj3D2y+jo2n\n4smGC66d2SNCJp58VJEAE9qFLk2pzUQkJiDS4dEudGlKbYZIhKfljPdhyFsOHaFd6NKU2oxf\nowi8LOe2Br9qfifahS5Nqc0QKWDNx/z2OdrNhu7QLnRpSm2GSGQ0/S0ScBvahS5Nqc0QKfBk\nnn/mL7fDdzbciXahS1NqM0QK+O+1+xTb4jHQLnRpSm2GSIT1r5rjpt2daBe6NKU2QyTAjnah\nS1NqM0QC7GgXujSlNkMkwpudpg9j8S36d6Jd6NKU2gyRAm/GLDccYNJ9aBe6NKU2Q6TAg/k4\n/3/7NDsecAZX0C50aUpthkhk1Ezv5gEfyN6NdqFLU2ozRApY8/VsPuerJLEtHgPtQpem1GaI\nFHidP4ydD0gvYls8BtqFLk2pzRCJ8GLs+/nABI/uRLvQpSm1GSIBdrQLXZpSmyESYEe70KUp\ntRkiUd6ejJke8czqnWgXujSlNkOkwM/D+oV+H2JbPAbahS5Nqc0QKfBsXubPkP7h95HuRLvQ\npSm1GSKRURP+gzvQLnRpSm2GSGQUIvGgXejSlNoMkQLrqd0LvkXoTrQLXZpSmyFS4Mf9qjl+\nRfY+BigBpMhJdgr3evlV8x+xDR6EAUoAKXKCayEZBigBpMgJRJJhgBJAipzEIv28Pp4vkJ7e\nxDZ3GAYoAaTISSTS+3qrwVg82HAnA5QAUuSEivRlzPP8kN3HkzG423AfA5QAUuSEihQ+PXrG\nL/bdyf+MAHObIdKKNe7To6/5exvAHWg7sgvmNkMkN2xKg+AWtB3ZBXObIZIbhkhsaDuyC+Y2\nQyQ3DJHY0HZkF8xthkhuGCKxoe3ILpjbDJHcMEVsi8dA25FdMLcZIrlhiMSGtiO7YG4zRALs\naDuyC+Y2QyTAjrYju2BuM0QC7Gg7sgvmNkMkwI62I7tgbjNEAuxoO7IL5jZDJMCOtiO7YG4z\nRALsaDuyC+Y2QyQyuo5b/KGx+9B2ZBfMbYZIKxYfyLKh7cgumNsMkVbeiEf42ob70HZkF8xt\nhkhkFEciHrQd2QVzmyESYEfbkV0wtxkiEZ4uE8wDvrL4PrQd2QVzmyFS4GU5tzP4Ev070XZk\nF8xthkgBu/ypvk9cK92JtiO7YG4zRCKjJn4HN6LtyC6Y2wyRAk/m+Weafl7wpy/vRNuRXTC3\nGSIFvtzfR8KfNb8PbUd2wdxmiET4ebn8fSTctLsTbUd2wdxmiATY0XZkF8xthkiAHW1HdsHc\nZohERusPrbrnwa11j4aHoTBoV8KQzafRqKUYhdluk3QLdIPZvCubstE6IXq89SicX87aPHAJ\nbUd2seYaOjzudxPu4frJ137wQiQyWhXJ0jpLX8IrKcMpLc2kbsOKlRiFaTbdQjyDSlDeVJIj\n1dTSRCaizxQvR0Wvou3ILtZcI0vIl4RO68cgfmDjYxGIlPL1+JpNs0SctFLzwesilWQoxCjP\n/p1IVza1LEV/JlwRibb+r4pkymNkssERqUZ5x/yYzKRYpPJQVr8bItFzuGqMaNrNIlXil0Ra\nZTuMSMlpWyzSFJUIRKpS2THZIdz9JC9dIXUgks3m7RUptMz/L4pEjmWRSN9ltB3ZxZLq5Uz+\nMvAdXud3P3kdmGeZb0AIdVAW6Z9Jf+pGp0Q2HoqKNLoWd2dJyTX7fSLtvNlQ2VS21DWRaOIV\nkSpoO7KLJVXjXpIjUnR55BbCEalC7WZD8qcva4eWqPD9sN1a7e4jUhbSpvO2jkjpkcxGYWyU\nSHLE+2MiLZjta6T4XkQORCKj6xNC6Z+QTe/5XhepeIKXT7/n1C5xNbVhWySyFD36XBFpsum2\nr6DtyC5owtsiGTq3BETahv68zobywZ0iXY1Rm32bSJUciUhRGIhUEGnra3Eg0iahGsMnP1c/\nA4reSudh68C1GNG0UPdJjIJIpcUqOVo3j7QwzEoTzz8wrqLtyC6WVEv3uauTcUSqsO/vI9Gq\nLd23y59KoGO/frIhLFWYnRqU3jhY5117soEs5YbKIuVPNtD1r6HtyC7WXOnNhPQD2XQyRKqA\nPzQmg7Yju3DJZs8CmfLkCSJVyb785PFrfrLhSWyDB0HbkV1Us7/txyhECjyZn2UyTLoPbUd2\nUc0eIv2a8nc2/ODU7k60HdkFc5shUuDRLKd2OCLdibYju2BuM0QK+O9swO+a34e2I7tgbjNE\nIizf2fD6I7bBg6DtyC6Y2wyRADvajuyCuc0QCbCj7cgumNsMkQjr13Hh1O5OtB3ZBXObIVIA\nNxuY0HZkF8xthkiBZ3f7G3+N4j60HdkFc5shEhnFl+jzoO3ILpjbDJHIKETiQduRXTC3GSIF\ncGrHhLYju2BuM0QK4GYDE9qO7IK5zRCJgNvfPGg7sgvmNkMkwI62I7tgbjNECjzi2ogHbUd2\nwdxmiBSwOELxoO3ILpjbDJECn4/4Y30saDuyC+Y2QyQyii8/4UHbkV0wtxkikVGIxIO2I7tg\nbjNEAuxoO7IL5jZDJMCOtiO7YG4zRHJ8PhrzjOPjsoYAABVcSURBVJsNHGg7sgvmNkOklc/l\n6uhTbGMHYoASQIqcUJGe57+K9IznVTkYoASQIifxd39P83dD7vmOeLDBACWAFDnJRMKvIrEw\nQAkgRU4gkgwDlABS5AQiyTBACSBFTiCSDAOUAFLkBH9oTIb/7ROa4gBVOkCKDogkg7YxFWiK\nA1TpACk6IIwM2sZUoCkOUKUDpOiASDJoG1OBpjhAlQ6QogMiyaBtTAWa4gBVOkCKDogkg7Yx\nFWiKA1TpACk6IJIM2sZUoCkOUKUDpOiASDJoG1OBpjhAlQ6QogMiyaBtTAWa4gBVOkCKDogk\ng7YxFWiKA1TpACk6IJIM2sZUoCkOUKUDpOiASDJoG1OBpjhAlQ6QogMiyaBtTAWa4gBVOkCK\nDogkg7YxFWiKA1TpACk6IJIM2sZUoCkOUKUDpOiASDJoG1OBpjhAlQ6QogMiyaBtTAWa4gBV\nOkCKDogkg7YxFWiKA1TpACk6IJIM2sZUoCkOUKUDpOiASDJoG1OBpjhAlQ6QogMiyaBtTAWa\n4gBVOkCKDogkg7YxFWiKA1TpACk6IJIM2sZUoCkOUKUDpOiASDJoG1OBpjhAlQ6QogMiyaBt\nTAWa4gBVOkCKDogkg7YxFWiKA1TpACk6IJIM2sZUoCkOUKUDpOiASDJoG1OBpjhAlQ6QogMi\nyaBtTAWa4gBVOkCKjj8skj1zeV9H3b+JTCQzw7vN1rQOEvY62sZUCAmapajib3n3X/pu3F8m\n+c33wEOkv0hQ4bci2SlfMxnZNknbmAo+P7OIZCb6d3zM+j8MTNMvSgQi/UUifcLQtkj5oM1e\nt03SNqaCS88sR6T18OMnrq+lyTuASH8Qmw3+VqR0ZiTSJtrGVHDpRSLFpCLtrxCI9AcREym9\nQvouo21MhTU7c/k3v5yvgJLMDfn/Td5BgVAHRxDJ3yjYL9K6fLjFQCPuudugbUyFNTuz3mww\n0cWQmzXRexC/KBAckf4g9x+RytdIefgy2sZUWJJb9MmukcII8Qsi7QMipaN/X6TVlaJIJkwo\nWHYdiPQXwV27Epfcwp8JzlzJFYJI+/i7Isl8jhR9UnsFbWMqhASLR6TodM7E87aBSH+T8pMN\n6+0D/x6W9aP5kw1k5G892RDfbMg/mYVIe/nDIqmibUyFkGDyiNDyiIN/IMjftYNIO4FIMmgb\nU4GmGBUVRx1AJMCOtjEVaIoQiROIJIO2MRVoigNU6QApOiCSDNrGVKApDlClA6TogEgyaBtT\ngaY4QJUOkKIDIsmgbUwFmuIAVTpAig6IJIO2MRVoigNU6QApOiCSDNrGVKApDlClA6TogEgy\naBtTgaY4QJUOkKIDIsmgbUwFmuIAVTpAig6IJIO2MRVoigNU6QApOiCSDNrGVKApDlClA6To\ngEgyaBtTgaY4QJUOkKIDIsmgbUwFmuIAVTpAig6IJIO2MRVoigNU6QApOiCSDNrGVKApDlCl\nA6TogEgyaBtTgaY4QJUOkKIDIsmgbUwFmuIAVTpAig6IJIO2MRVoigNU6QApOiCSDNrGVKAp\nDlClA6TogEgyaBtTgaY4QJUOkKIDIsmgbUwFmuIAVTpAig6IJIO2MRVoigNU6QApOiCSDNrG\nVKApDlClA6TogEgyaBtTgaY4QJUOkKIDIskwQAkgRU4gkgwDlABS5AQiyTBACSBFTiCSDAOU\nAFLkBCLJMEAJIEVOIJIMA5QAUuQEIskwQAkgRU4gkgwnfbZSHKBKB0jRAZFk0LboBJGaBPRA\nJBm0LTpBpCYBPRBJBm2LThCpSUAPRJJB26ITRGoS0AORZNC26ASRmgT0QCQZtC06QaQmAT0Q\nSQZti04QqUlAD0SSQduiE0RqEtADkWTQtugEkZoE9EAkGbQtOkGkJgE9EEkGbYtOEKlJQA9E\nkkHbohNEahLQA5Fk0LboBJGaBPRAJBm0LTpBpCYBPRBJBm2LThCpSUAPRJJB26ITRGoS0AOR\nZNC26ASRmgT0QCQZtC06QaQmAT0QSQZti04QqUlAD0SSQduiE0RqEtADkWTQtugEkZoE9EAk\nGbQtOkGkJgE9EEkGbYtOEKlJQA9EkkHbohNEahLQA5Fk0LboBJGaBPRAJBm0LTpBpCYBPRBJ\nBm2LThCpSUAPRJJB26ITRGoS0DOOSHZlHaPT4iG/pCVLzm/WrxJNLy6+b+E62hadqEhrJxsT\n9fZ3mGzcu7mnHiDSEMQVPsX1nQ2FQg+C2InOjY0sbmZz4TraFp2ISKsdZoq7O518dylApCG4\nWSS/qI2CbIu0vXAdbYtOQSRDPQn9bb6TyRDpHg4q0vQbkeoL19G26LQlkvGnduvk+ysBIg1B\nes5VOveKh/zydpIT6buMtkVn1kzM5d/6sr5+p8PzQjOV1oAKoQ4GEolc5XuRijcbpum6SMuC\nxVsMuUhXF66jbdHJH5HMVD61o0cknuskHJGGgJzLRbcPykOxGTYSKV0jWzxeYuxrpMSRukjp\n0O+BSENAitgfHvaKtFwoHVEkE7+URYovlm4GIg0BFckNQqQrXPIwxn08VBcpuie+o201INIQ\nZNJMdr9Ikzt+pTclrom0vXAdbYtO2QeyVZGiN4h0I8OJFPSZ7N6bDetbOC2Mp8eLr4F2LVxH\n26JT/mRD+lnRd3ZDHDcbbmcckcZC26LTlUeE1tFv8mCQofNvBSIBdrQtOl15aNWJxN1miATY\n0bboBJGaBPRAJBm0LTrh1yiaBPRAJBm0LTpBpCYBPRBJBm2LThCpSUAPRJJB26ITRGoS0AOR\nZNC26ASRmgT0QCQZtC06QaQmAT0QSQZti04QqUlAD0SSQduiE0RqEtADkWTQtugEkZoE9EAk\nGbQtOkGkJgE9EEkGbYtOEKlJQA9EkkHbohNEahLQA5Fk0LboBJGaBPRAJBm0LTpBpCYBPRBJ\nBm2LThCpSUAPRJJB26ITRGoS0AORZNC26ASRmgT0QCQZtC06QaQmAT0QSQZti04QqUlAD0SS\nQduiE0RqEtADkWTQtugEkZoE9EAkGbQtOkGkJgE9EEkGbYtOEKlJQA9EkmGAEkCKnEAkGQYo\nAaTICUSSYYASQIqcQCQZBigBpMgJRJJhgBJAipxAJBkGKAGkyAlEkmGAEkCKnEAkGQYoAaTI\nCUSSQfvT2O3PY0eo0gFSdEAkGbQ1gkhtAnogkgzaGkGkNgE9EEkGbY0gUpuAHogkg7ZGEKlN\nQA9EkkFbI4jUJqAHIsmgrRFEahPQA5Fk0NYIIrUJ6IFIMmhrBJHaBPRAJBm0NYJIbQJ6IJIM\n2hpBpDYBPRBJBm2NIFKbgB6IJIO2RhCpTUAPRJJBWyOI1CagByLJoK0RRGoT0AORZNDWCCK1\nCeiBSDJoawSR2gT0QCQZtDWCSG0CeiCSDNoaQaQ2AT0QSQZtjSBSm4AeiCSDtkYQqU1AD0SS\nQVsjiNQmoAciyaCtEURqE9ADkWTQ1ggitQnogUgyaGsEkdoE9EAkGbQ1gkhtAnogkgzaGkGk\nNgE9EEkGbY0gUpuAHh6R7MI6kkyyftBGy7mlwjpuVfcaTSVv1keyIYwN4SwNXd0SCUFXCKHd\n6jSrLG4FbY2oSGsfG0M724/lA7cCke6Glrqd0oJNFyM16cbKAWxUwmEkruxs9bCMX6S0JZJN\nuoIlK/l1yVa3TdLWiIi0+mEm2tvnoW/jJ5ts/i1ApLu5VaR0mVSkvLrJhKsixUex4pZikUrH\nxIJISdwq2hoFkczkhQndPb9/z69+cjz/JiDS3dwmUtWEukjJuV8prk02Wt1SUSS6kF03WWjW\nJtoa/U6kbP5NQKS7SUq9fAq1UyTy31ZCZSJFlzp+UhY+3lIiEl0hF8n/T6+Qvstoa3Q6rYmY\ny7/1ZX0lY+b7fGmUzwf7CHXAfrOBVtzGzQabBdgQKbpOSQW1ExVpDXptS+nNBrJCXaQ4bh1t\njfwRyR11akek+PIIR6RbYT0iTaTG8+NQXuhZABsHsHTSlB10shzyk69rx75iqMRUG534FVMv\no62RE8k7gmskkYAedpH8z/vSzHi8XN4kAL04oYXPKFJZ7lyk5L79KCKZ+AUicQf0tD8i5XNs\nsbzLIpFzrKundolBV7eUTI9bYbOs4m1X0NbIibQCkYQCephFCoVbF4ks7SvfpqtZUr42Xbsk\nUnreFx9prnyOtE6sfDBs06zyo14RbY2yD2QhkkhATwuRstO9eB6ZUhQpP7pkp3Y+DDn92n6y\nYYoHs9sgJZGyuBW0NcqfbLj2gWw+/xYgEmBHW6MrjwiZaAyPCPEAkWTQ1ujKQ6uuyweo0gFS\ndEAkGbQ1gkhtAnogkgzaGuHXKNoE9EAkGbQ1gkhtAnogkgzaGkGkNgE9EEkGbY0gUpuAHogk\ng7ZGEKlNQA9EkkFbI4jUJqAHIsmgrRFEahPQA5Fk0NYIIrUJ6IFIMmhrBJHaBPRAJBm0NYJI\nbQJ6IJIM2hpBpDYBPRBJBm2NIFKbgB6IJIO2RhCpTUAPRJJBWyOI1CagByLJoK0RRGoT0AOR\nZNDWCCK1CeiBSDJoawSR2gT0QCQZtDWCSG0CeiCSDNoaQaQ2AT0QSQZtjSBSm4AeiCSDtkYQ\nqU1AD0SSQVsjiNQmoAciyaCtEURqE9ADkWQYoASQIicQSYYBSgApcgKRZBigBJAiJxBJhgFK\nAClyApFkGKAEkCInEEmGAUoAKXICkWQYoASQIicQSYYBSgApcgKRZPiPNtspDlClA6TogEgy\naHsEkdoE9EAkGbQ9gkhtAnogkgzaHkGkNgE9EEkGbY8gUpuAHogkg7ZHEKlNQA9EkkHbI4jU\nJqAHIsmg7RFEahPQA5Fk0PYIIrUJ6IFIMmh7BJHaBPRAJBm0PYJIbQJ6IJIM2h5BpDYBPRBJ\nBm2PIFKbgB6IJIO2RxCpTUAPRJJB2yOI1CagByLJoO0RRGoT0AORZND2CCK1CeiBSDJoewSR\n2gT0QCQZtD2CSG0CeiCSDNoeQaQ2AT0QSQZtjyBSm4AeiCSDtkcQqU1AD0SSQdsjiNQmoAci\nyaDtEURqE9ADkWTQ9ggitQnogUgyaHsEkdoE9EAkGbQ9gkhtAnogkgzaHkGkNgE9EEkGbY+8\nSMaYZMCNfbsBU5h/CxDpZuzCPOTHJz82v8XT43XCgqUV3XLWkjXi1Wx9s34dG22PLBumRa2I\nlqcLF1a8grZHTiSz/g8DYbKpz78JiHQzsTChml0dptPjdYgJfsUpHorXCfPpu726dnmzk02n\nualku2ngONXraHu0ipQ44nr78v5tyOR4/m1ApJtJRCJjtjg9fbNpQVsyK99Ovlq62Xzte0SK\nAxcaUUfbI3qNVBOJLgCR7oRRpKgEbXF6vE4q0pQeV9J18tXyyk/XLokU4lxrRa5UmtYVtD0i\nIvmjEhXJXyOtkyHSnUiJ5Iq6JlJ01hRdM5V+5uemFcOX1s5EItd0t4iUXiF9l9H26D8ukdmY\n+e07vM4Tyci3yeaDnYQ6YLzZsFek+NaBDZOn5Vhj6WKlA8wVkfK1k5sNUbLOoPLNBho4vkOy\n426DtkfpqV24veCnfNMxHJHuhOWINFXOsTZO7QqSZEeLdDuxo+lmC2tXRgtHpDRc8YhUm5Ci\n7VH0OdJi0lmjokiFU7/bgEg3c02k5ehwVaT4xnRc33WRLHkvbjZNjI4fVyQ6QEXKX28FIt1M\nfso10TK16fQpXyq+sLFpsHQ7uUgba98uUha4uEoFbY/o7e/8ZgIRySQL3gFEuplEJF+da/Xa\ndDp5t2RCdsWUHsdsYTisc3VtW15rl0hp4KwtdbQ9ciJd+0B2mpKDFT6QvR1OkabfPdlAaztZ\ncbK1mw0Fka6vbdPVCk820Nh/7MmGiTwBFJ3ELbe/zQJd8HYgEmBH26P6Q6u+xweo0gFSdEAk\nGbQ9gkhtAnogkgzaHuHXKNoE9EAkGbQ9gkhtAnogkgzaHkGkNgE9EEkGbY8gUpuAHogkg7ZH\nEKlNQA9EkkHbI4jUJqAHIsmg7RFEahPQA5Fk0PYIIrUJ6IFIMmh7BJHaBPRAJBm0PYJIbQJ6\nIJIM2h5BpDYBPRBJBm2PIFKbgB6IJIO2RxCpTUAPRJJB2yOI1CagByLJoO0RRGoT0AORZND2\nCCK1CeiBSDJoewSR2gT0QCQZtD2CSG0CeiCSDNoeQaQ2AT0QSQZtjyBSm4AeiCSDtkcQqU1A\nD0SSQdsjiNQmoAciyaDtEURqE9ADkWTQ9ggitQnogUgyDFACSJETiCTDACWAFDmBSDIMUAJI\nkROIJMMAJYAUOYFIMgxQAkiRE4gkwwAlgBQ5gUgyDFACSJETiCTDACWAFDmBSDIMUAJIkROI\nJMMAJYAUOYFIADAAkQBgACIBwABEAoABiAQAAxAJAAYgEgAMQCQAGIBIADAAkQBgACIBwABE\nksCe0c4hwq4Z0cTccPqugi2mVJrW3b5dgEgCWP/SC5a8JcPpuwo2bN12nOYVIJIA/XV25yLZ\nCSKBnO4629L3LisUIoGc7jrbXyJNU6cVCpFATned3X+FQiSQ02dnd12hEAnk9NnZXVcoRAI5\n3XV2/xUKkUBOd51tyf8+KxQigQLdffqePR5Qmtbfkw3dpVkHIh2SHkuxwCBpzkCkQzJIhQ6S\n5gxEAoABiAQAAxAJAAYgEgAMQCQAGIBI4FwFHjr1zSYLJUs/fbTKbwAgEqiJFI/lIhkDkzwQ\nCSyYrBTqIl3efl7Mg3hWwwCRwIL35OvZmOev5cBzHv14Msa+TLlI68DPvPjP9LNa9WA+3aR5\nga8nujJd4Y8BkcCC0+PHzgbZn1Wk9+Uk7qV6RLosfh54Mmf5pq950E06L2mjlS+vfu6fAiKB\nBefJi3mcpkdf/A/m3zR9zoPla6TXeckX83Y27uWy9nuYdF7y8Wd6M5aKFOb+KSASWHCePMxH\nlsuBZZ3y9f76WBTp+fOy+GXS03loeVabTjKXo1RYeX4Nc/8UEAksOE9CyS9Dj+52Xnxq9z4f\nuKZg1XQ+8nxMH+aVTkpjLUP5/cE/wF9rD7iVikjP5uHt/SsXaTkFpF78mOfzxB+IBA5N5dRu\nudFWEOm84OvkztQuPJuvyxlbmJSI9BVO7f4cf7NV4PdUbjbMdxR+0muky9unMZ/z4ucl/12O\nTh/rR7RhUhDJmn9rGLLCXwIigYXs9vd883qu+/I10jTff3twi89KzQebhxBhnhREuoR5vZwB\nkhX+EBAJLGQfyC73rc8nbObxoyjScnL3dVngMv423yqfyCTy6dGLPS+8nOCFFf4QEAkABiAS\nAAxAJAAYgEgAMACRAGAAIgHAAEQCgAGIBAADEAkABiASAAxAJAAYgEgAMACRAGDg/wPkyhnD\naAUWQAAAAABJRU5ErkJggg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {
      "image/png": {
       "height": 420,
       "width": 420
      }
     },
     "output_type": "display_data"
    }
   ],
   "source": [
    "library(ggplot2)\n",
    "library(scales)  # For formatting Y-axis labels\n",
    "library(stringr) # For shortening product descriptions\n",
    "\n",
    "# Top 10 products by total revenue\n",
    "top_products <- data %>%\n",
    "  group_by(description) %>%\n",
    "  summarize(total_revenue = sum(total_revenue)) %>%\n",
    "  arrange(desc(total_revenue)) %>%\n",
    "  slice_head(n = 10) %>%\n",
    "  mutate(short_description = str_trunc(description, 30))  # Shorten descriptions\n",
    "\n",
    "# Plot top products\n",
    "ggplot(top_products, aes(x = reorder(short_description, total_revenue), y = total_revenue)) +\n",
    "  geom_bar(stat = \"identity\", aes(fill = total_revenue), show.legend = FALSE) +\n",
    "  geom_text(aes(label = scales::comma(total_revenue)), \n",
    "            hjust = -0.1, size = 3.5, color = \"black\") +  # Add data labels\n",
    "  scale_fill_gradient(low = \"skyblue\", high = \"blue\") +  # Gradient fill\n",
    "  scale_y_continuous(labels = scales::comma) +  # Format Y-axis with commas\n",
    "  coord_flip() +  # Flip for horizontal bars\n",
    "  labs(title = \"Top 10 Products by Total Revenue\",\n",
    "       x = \"Product Description\",\n",
    "       y = \"Total Revenue\") +\n",
    "  theme_minimal() +\n",
    "  theme(plot.title = element_text(hjust = 0.5, face = \"bold\"),  # Centered and bold title\n",
    "        axis.text.y = element_text(size = 9))  # Adjust Y-axis text size\n",
    "\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 20,
   "id": "aab39534-e307-4c50-86f0-388467fb37a7",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAANlBMVEUAAABNTU1oaGh8fHyM\njIyQ7pCampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enr6+vw8PD////ZWs+3AAAACXBIWXMA\nABJ0AAASdAHeZh94AAAgAElEQVR4nO2djWKqSrJGaePEZOfnyPu/7CgCDWr0k2Cqu2qtuaMG\ncYWzi3VAdM9tWgD4NY31BgB4gJAAVoCQAFaAkABWgJAAVoCQAFaAkABWgJAAVoCQAFaAkABW\noMSQmgnaK96G9T5fmublY/7kv+3Bs/24eNEP7F9nm3Jv9dtrDP8Ym91e/f1QJS5C+hjW+zy9\n6G3y3FfqTS/yb//ph/urX3l2IFGSa0oMqUM9GB14H4PbNP8OR6DpS78OB6PPtjtUbVf/xfdX\nHwt/aXYPaaEy6g/p66XZ9Ct/no5Fu2NOPZvmvX/00mhnd08J6RB0ekgLlVFDSF+vqUmvX/3S\n9zR/F9Qc/l3fr7xrupW+mvFtzkc+Dn2djglz2XB3+O8uNZuP/mTseLffHF47FJrfen29Hk7T\nXj+n2/l22qJ9szktGh9M/ynOTHmdTbOf/oK8JdPtu/7uD8qhgpA++ncZp33rrXs8OU86RtGv\n/HK6m+zI2/PD0Fw2/qbDTtovHkPa5kL/NeMv/Zy8vn/1bnhy1y/9l9+knR+Rsum1OcX4eax+\n8gvylsxCmqwBJVJ+SId3OW/7dn/YXb+PS9PhtO0jnQ495ysPr8kRpmb+Hv9MNq598H62++3x\nisRp6WF/3g+mr+blszuF/OjfhR1268kxZ9yi737py1E+35LP1DUwMX31x8rtIajpL7jYku5u\nugaUSPkh7fp/Db8e75t+H027aytfhnT+DuZMNq5zOsTs+7O8buHn+Prdqcb9cde/eEvUnN6Q\ndSeO296ymTw78NKembpTutPK819wtiXd3XQNKJHyQ9r07XT/vh8uYm8311a+H9JcNnuPNH84\nNW4mF+O3hzdI/74nxqY/5h2Fp6PM5Mwuf4703v/6bPromn47djhdfH2jpmtAiRQ7mHGXmT0Y\n/mW/aa6tfBnS5uzUbi4TQ5p+qvWdJl1c/M7t8ZRzcmZ3WrpPwxnZ7POxlIab6eKfNoqQyqbY\nwdwO6eVqSNthpx4/fH2dvqn4XhzS9Hd9vB7354vLCf27qe3szG644tafKM5Nx6v0H/0Fhot/\nlOvbB8VS7IB+OLXr3yNcP7W7efn7O70sPLU7v7RxvAQ+fio0ntp1LzgcjaZndoPmrf9iw8x0\nLO509Jouvr5RF5sAhVF+SLs+i/76wOlN9/WLDf0Hsm+Tw1AaPpz97s6vrsg+7ob0enrR1+Rb\nRtN3Ye+nX909eTjCTM/sxvU2J8XctG1eT51PF8+2ZNy+K5sARVF+SN9Nsztdse4+MEof3cXm\n6299+q8ITb5E8Hn6itD+PXX77Ez20mz3R9d5SN/tPKSv7vObr5Qvf+/yga7pLtv9S/3J2yZN\nz+zGDfvqfuHMdPpM6qM9Wzz5xZPtm78QyqP8kM4+Q93OPw+dr/x1WvPf5Knh1f2uP5WdPlzd\nXblAdnb54iN/Gtp/IJsmnxTNPiL+mH9ldvyneD31NTG1x1+1mW3k5P3S8W6yfWcvhOKoIKSz\nb/UcdqzX8zcM48pXvkizfzt+VeB1WDiRtZ+bJr2dvx352hyPaPPrgN/Hb+2crtR9dl8Rml2X\nO35FaPjO0L5p5hfHh0fpdAo4MR2PncOjvHj6i/P2nb0QiqPYkK5T/NWr92ZzfyXwR+k75hml\nh/Q1vFeCYBS+Y55Tdki8i4lL0TvmJWWHtOFdTFiK3jEBaoGQAFaAkABWgJAAVoCQAFaAkABW\ngJAAVoCQAFaAkABWoL6Q/qvQXOVG12i222hC+gtzlRtdo5mQdJgvZgs1IRVgrnKjazQTkg7z\nxWyhJqQCzFVudI1mQtJhvpgt1IRUgLnKja7RTEg6zBezhZqQCjBXudE1mglJh/litlC7C+l/\nAH9G3u8ICWAxeb8jJIDF5P2OkAAWk/c7QgJYTN7vCAlgMXm/IySAxeT9jpAAFpP3O0ICWEze\n7wgJYDF5vyMkgMXk/Y6QABaT9ztCAlhM3u8ICWAxeb8jJIDF5P2OkAAWk/c7QgJYTN7vCAlg\nMXm/IySAxeT9jpAAFpP3O0ICWEze7wgJYDF5vyMkgMXk/Y6QABaT9ztCAlhM3u8ICWAxeb8j\nJIDF5P2OkAAWk/e7NUJKs7uzhz+sla6v9NOLdaz/aCESeb97TkgXP52vdSsWQoJayPudTUg3\nWyEkqIW8360bUmpTSm1/f/z59GO3dBJSOl9/XGFyP3raYSUJ6z9aiETe71YOKQ2B5GCGxxdv\njubrd4+n9/n53F63xbex/qOFSNzZGZeHlO/PQ8prDQendLnCT/cPnO9Z/9FCJPJ+t/apXTsL\nKfVneNO1rhVGSFAleb97bkjTFS4uNhAS1E7e72xCGp4lJKiavN+t8s2GcVe/8R4pzUKarHTz\nYsPMLmH9RwuRyPvdOl8RGi9zTxq5cfn7dD8N5cfL3y0hQbnk/a6g79rJrdzE+o8WIpH3uzJC\neuygcxPrP1qIRN7vyghpPAf8PdZ/tBCJvN8VEtJ6WP/RQiTyfkdIAIvJ+x0hASwm73eEBLCY\nvN8REsBi8n5HSACLyfsdIQEsJu93hASwmLzfERLAYvJ+R0gAi8n7HSEBLCbvd4QEsJi83xES\nwGLyfkdIAIvJ+x0hASwm73eEBLCYvN8REsBi8n5HSACLyfsdIQEsJu93hASwmLzfERLAYvJ+\nR0gAi8n7HSEBLCbvd+5CuvMPVKS5yo2u0Wy30YT0F+YqN7pGMyHpMF/MFmpCKsBc5UbXaCYk\nHeaL2UJNSAWYq9zoGs2EpMN8MVuoCakAc5UbXaOZkHSEz84W4nG+wcyEpENImC3UhCTjcb7B\nzISkQ0iYLdSEJONxvsHMhKRDSJgt1IQk43G+wcyEpENImC3UhCTjcb7BzISkQ0iYLdSEJONx\nvsHMhKRDSJgt1IQk43G+wcyEpENImC3UhCTjcb7BzISkQ0iYLdSEJONxvsHMhKRDSJgt1IQk\n43G+wcyEpENImC3UhCTjcb7BzISkQ0iYLdSEJONxvsHMhKRDSJgt1IQk43G+wcyEpENImC3U\nhCTjcb7BzISkQ0iYLdSEJONxvsHMtYaUZndnS4WFN5b/CCFhtlA/N6RTBpMYUktIf6rG/Efq\nJx+R0ulusoSQ/lSN+Y/UfxVSSsfDU3eb2nQ6VJ2WdT9P1pk9P12uQUiYLdTPfo+U8t344/my\nGz+nyfJhi2/zY0h3XgewOk8Oqb1cNoZyZfljZ3cckTBbqJ9+1S71R5n+3K6dHnnysnZyrncR\n2AMndoSE2Ub9/MvfaXpUuTgitdNg2qtHpPahlAgJs4W6oJDunfJpEBJmC/UffCB7frp2K5yL\ndS8vNtyBkDBbqP/qmw3Dpe10cUl89vPZeyMuf2OuRM137WQ8zjeYmZB0CAmzhZqQZDzON5iZ\nkHQICbOFmpBkPM43mJmQdAgJs4WakGQ8zjeYmZB0CAmzhZqQZDzON5iZkHQICbOFmpBkPM43\nmJmQdAgJs4WakGQ8zjeYmZB0CAmzhZqQZDzON5iZkHQICbOFmpBkPM43mJmQdAgJs4WakGQ8\nzjeYmZB0CAmzhZqQZDzON5iZkHQICbOFmpBkPM43mJmQdAgJs4WakGQ8zjeYmZB0mC9mCzUh\nFWCucqNrNBOSDvPFbKEmpALMVW50jWZC0mG+mC3UhFSAucqNrtFMSDrMF7OFmpAKMFe50TWa\nCUnnaZ/HupxvMDMh6RASZgs1Icl4nG8wMyHpEBJmCzUhyXicbzAzIekQEmYLNSHJeJxvMDMh\n6RASZgs1Icl4nG8wMyHpEBJmCzUhyXicbzAzIekQEmYLNSHJeJxvMDMh6RASZgs1Icl4nG8w\nMyHpEBJmCzUhyXicbzAzIekQEmYLNSHJeJxvMDMh6RASZgs1Icl4nG8wMyHpEBJmCzUhyXic\nbzAzIekQEmYLNSHJeJxvMDMh6RASZgs1Icl4nG8wMyHpEBJmCzUhyXicbzBzhJBSz+HR9Ifp\nQwlCwmyhLiek6aN0+VCFkDBbqAlJxuN8g5kJSYeQMFuo6wvpv9v8FNKdlwGsT95rudiQ8fgv\nymDmmEekdLZcg5AwW6gLDmmakw4hYbZQE5KMx/kGMwcNqbsjJMw1qMsJaXaxYVjIxQbMdaiL\nCWktCAmzhZqQZDzON5iZkHQICbOFmpBkPM43mJmQdAgJs4WakGQ8zjeYmZB0CAmzhZqQZDzO\nN5iZkHQICbOFmpBkPM43mJmQdAgJs4WakGQ8zjeYmZB0CAmzhZqQZDzON5iZkHQICbOFmpBk\nPM43mJmQdAgJs4WakGQ8zjeYmZB0CAmzhZqQZDzON5iZkHQICbOFmpBkPM43mJmQdAgJs4Wa\nkGQ8zjeYmZB0CAmzhZqQZDzON5iZkHSYL2YLNSEVYK5yo2s0E5IO88VsoSakAsxVbnSNZkLS\nYb6YLdSEVIC5yo2u0UxIOswXs4XaXUhP+hCp9TnfYGZC0iEkzBZqQpLxON9gZkLSISTMFmpC\nkvE432BmQtIhJMwWakKS8TjfYGZC0iEkzBZqQpLxON9gZkLSISTMFmpCkvE432BmQtIhJMwW\nakKS8TjfYGZC0iEkzBZqQpLxON9gZkLSISTMFmpCkvE432BmQtIhJMwWakKS8TjfYGZC0iEk\nzBZqQpLxON9gZkLSISTMFmpCkvE432BmQtIhJMwWakKS8TjfYGZC0iEkzBZqQpLxON9gZkLS\nISTMFmpCkvE432BmTyGlI6tbM4SE2UL91yGlye1TICTMFuo/Dimd3a8PIWG2UBuF1D0+neOl\nw4PuJrVtf9Y3eSY9ehAjJMwWaruQUn9zaibfnD9zHtJ/t7ka0p3XADyFJ4eU8oFmcj+9OQuq\n1Q9IHJEwm6jt3iOlNA9qdnORGiFhLlptGNJ00fzm7BRvPL1TICTMFuoSQ7o46SMkzKWr7T5H\n+vk90nDhgZAwV6M2/GbDeJH74iZ1F8SvXIEQICTMFuo6vmtHSJgLVxOSjMf5BjMHD+mhL7kS\nEmYLdQ0hPQQhYbZQE5KMx/kGMxOSDiFhtlATkozH+QYzE5IOIWG2UBOSjMf5BjMTkg4hYbZQ\nE5KMx/kGMxOSDiFhtlATkozH+QYzE5IOIWG2UBOSjMf5BjMTkg4hYbZQE5KMx/kGMxOSDiFh\ntlATkozH+QYzE5IOIWG2UBOSjMf5BjMTkg4hYbZQE5KMx/kGMxOSDiFhtlATkozH+QYzE5IO\nIWG2ULsLiflitlATUgHmKje6RjMh6TBfzBZqQirAXOVG12gmJB3mi9lCTUgFmKvc6BrNhKTD\nfDFbqN2F9KQPkVqf8w1mJiQdQsJsoSYkGY/zDWYmJB1CwmyhJiQZj/MNZiYkHULCbKEmJBmP\n8w1mJiQdQsJsoSYkGY/zDWYmJB1CwmyhJiQZj/MNZiYkHULCbKEmJBmP8w1mJiQdQsJsoSYk\nGY/zDWYmJB1CwmyhJiQZj/MNZiYkHULCbKEmJBmP8w1mJiQdQsJsoSYkGY/zDWYmJB1Cwmyh\nJiQZj/MNZiYkHULCbKEmJBmP8w1mJiQdQsJsoSYkGY/zDWYmJB1CwmyhJiQZj/MNZvYaUjqx\nqpOQMFuobUN6gpOQMFuoCUnG43yDmd2HlNrjCV5/mnf8oXsmnd1LEBJmC3UhIaXhp5R/GH+e\nrdr+d5vLkO68AOBZ/FlIaTwITdqaBdRehHQHjkiYLdSFHJH6uy6ri5AeurRHSJgt1CWFdO2U\nrn3gYNRBSJgt1AWFdP6eiJAw16MuLKSLU7vLiw13ICTMFurHQtq8fa75y89P7Q4ZpVlVXP7G\nXIn6sZCapkmvH0/bmDUgJMwW6sdC2v/bHlpqXv59P22DfgshYbZQP/4e6WOXDi1tSj0uERJm\nC/WCiw3fu6Y7LD1le34NIWG2UD8c0te2Oxx9vjTbJ23S7yAkzBbqB0P6eBnP6poy/9IfIWG2\nUD94+btptl/DU8/4SxC/h5AwW6gfvPy9+7q+XjkQEmYL9YNHpNenbchaEBJmC/VjIaUy3xdN\nISTMFurHQvp62ZX7UewJQsJsoX74K0I9T9ug30JImC3UhCTjcb7BzMWEVAGEhNlCTUgyHucb\nzFxMSMMp3cr/66hrQkiYLdQPhJSahvdIz6HGnbJGcxkhvU86en/aBv0WQsJsoV52alcwhITZ\nQs3FBhmP8w1mLiekXeI90hOocaes0VxMSDsuNjyFGnfKGs3FhJQKvsrQQ0iYLdRcbJDxON9g\n5mJC2jb7p23JShASZgv1YyF9pxf+GsUTqHGnrNFcTEgVfLOB+WK2UBNSAeYqN7pGczEhVQDz\nxWyhJqQCzFVudI3mYkLi1K42NeY/UhNSAeYqN7pGczEhnfh+eXvGpqwD88VsoV70HmnflFvS\nUz5C6vA432Dm0kIq+atChITZQr0opH+F/g/oHyEkzBbqhRcbdk/boN9CSJgt1ItCSuV2REiY\nTdTuPpAlJMwWakKS8TjfYOZyQtrvNk2z2RX8t5IICbOF+tG/j9S/SSr3byUREmYL9WMhvTbH\nv9j3/dKU+/+5j5AwW6gfvWo3vy8QQsJsoSYkGY/zDWYuJiRO7Z5DjTtljeZiQuJiw3Oocaes\n0VxMSFz+fg417pQ1mssJqXwICbOFmpBkPM43mLmUkN67vz3x+fr1tM35PYSE2UL9SEgvTdMl\nlAr+WxSEhNlE/UBI/5r00T34TM2/p23QbyEkzBbqB0J6aT76Rx/Ny7O259cQEmYL9QMhTb7O\nwDcb1qXGnbJGc3kh8b/ZUIka8x+pHzq1G77P8M1XhNalxp2yRnMZIb2P+byO75bKg5AwW6gf\nufydmu3n4e5z22yetj2/hpAwW6gfCWn4ymrJ31klJMwm6se+IvRve8hoW+6HSC0hYbZR8107\nGY/zDWZ2F5J49TzJa2YICbOF2iSkdL2Pi4VLPq0iJMwWakKS8TjfYGanIY036UB/e/jP8HA8\ntet/0iAkzBZqi5DS5L/j+6AxmvkTk6d7/rvNLKQ76wI8FYuQpsva/MT0OQmOSJgt1AZHpDTc\nTk7txif6YPqTvWGdB87tCAmzhdoipBOzc7Y0O0oNj9LZ0UuBkDBbqIs4Ik1+nl2FuPoe6Q6E\nhNlC/fch5XKGs7rZxYZhlTQLiVM7zGWrLUNqT9e789XuNHzA1D/Kl785ImEuW8137WQ8zjeY\nmZB0CAmzhZqQZDzON5iZkHQICbOFmpBkPM43mJmQdAgJs4WakGQ8zjeYmZB0CAmzhZqQZDzO\nN5iZkHQICbOFmpBkPM43mJmQdAgJs4WakGQ8zjeYmZB0CAmzhZqQZDzON5iZkHQICbOFmpBk\nPM43mJmQdAgJs4WakGQ8zjeYmZB0CAmzhZqQZDzON5iZkHQICbOFmpBkPM43mJmQdAgJs4Wa\nkGQ8zjeYmZB0CAmzhdpdSMwXs4WakAowV7nRNZoJSYf5YrZQE1IB5io3ukYzIekwX8wWakIq\nwFzlRtdoJiQd5ovZQu0upCd8gNTjcb7BzISkQ0iYLdSEJONxvsHMhKRDSJgt1IQk43G+wcyE\npENImC3UhCTjcb7BzISkQ0iYLdSEJONxvsHMhKRDSJgt1IQk43G+wcyEpENImC3UhCTjcb7B\nzISkQ0iYLdSEJONxvsHMhKRDSJgt1IQk43G+wcyEpENImC3UhCTjcb7BzISkQ0iYLdSEJONx\nvsHMhKRDSJgt1IQk43G+wcyEpENImC3UhCTjcb7BzISkQ0iYLdSEJONxvsHMhKRDSJgt1IQk\n43G+wcwBQkoHri5/VERImC3UhYSUxpvfQkiYLdRlhJRmd7+CkDBbqIsKqXvUn+P153ppskiC\nkDBbqAsJaUwl1zPeD4t6/rvNKaQ7KwH8BX8eUh9Te/ZmKc2a0uCIhNlCXcYRqWdWzekoRUiY\nq1AXG1I+xSMkzOWrywgpX7VLl/eEhLl8dSEh5QPR5GIDp3aYq1GXEVK+bje9/M0RCXM16lJC\nGvj1Z7KEhNlCTUgyHucbzExIOoSE2UJdWki/hpAwW6gJScbjfIOZCUmHkDBbqAlJxuN8g5kJ\nSYeQMFuoCUnG43yDmQlJh5AwW6gJScbjfIOZCUmHkDBbqAlJxuN8g5kJSYeQMFuoCUnG43yD\nmQlJh5AwW6gJScbjfIOZCUmHkDBbqAlJxuN8g5kJSYeQMFuoCUnG43yDmQlJh5AwW6gJScbj\nfIOZCUmHkDBbqAlJxuN8g5kJSYeQMFuo3YXEfDFbqAmpAHOVG12jmZB0mC9mCzUhFWCucqNr\nNBOSDvPFbKEmpALMVW50jWZC0mG+mC3U7kJ62sdILucbzExIOoSE2UJNSDIe5xvMTEg6hITZ\nQk1IMh7nG8xMSDqEhNlCTUgyHucbzExIOoSE2UJNSDIe5xvMTEg6hITZQk1IMh7nG8xMSDqE\nhNlCTUgyHucbzExIOoSE2UJNSDIe5xvMTEg6hITZQk1IMh7nG8xMSDqEhNlCTUgyHucbzExI\nOoSE2UJNSDIe5xvMTEg6hITZQk1IMh7nG8xMSDqEhNlCTUgyHucbzExIOoSE2UJNSDIe5xvM\nTEg6hITZQk1IMh7nG8xcc0jpwPmiW6s/uPwCQsJsoX52SGm8uVz84/oPLL+AkDBbqJ8cUprd\nXSz/8QXy8gsICbOF+m9Cmh6Z0vE/x/O9lPrTvuGuPS6c/3x6Rb9cgpAwW6ifHdLwDqkvY7gd\nukhtbqyv5+rPk/dZ/92mC+nOOgB/wnoh9TENRaQ2/9/QUQ5n/OEsqOnyu3BEwmyh/pvL3+lm\nSP0pXpotISTMNan/MKTpeV0+35uf5o3neoSEuSr1n12100P66V6DkDBbqJ9+saG7HW/OjzbT\nZ6f356d2Fx/q/gghYbZQ/903G+YhXb38PTyf0iw2Ln9jLl7Nd+1kPM43mJmQdAgJs4WakGQ8\nzjeYmZB0CAmzhZqQZDzON5iZkHQICbOFmpBkPM43mJmQdAgJs4WakGQ8zjeYmZB0CAmzhZqQ\nZDzON5iZkHQICbOFmpBkPM43mJmQdAgJs4WakGQ8zjeYmZB0CAmzhZqQZDzON5iZkHQICbOF\nmpBkPM43mJmQdAgJs4WakGQ8zjeYmZB0CAmzhZqQZDzON5iZkHQICbOFmpBkPM43mJmQdAgJ\ns4XaXUjMF7OFmpAKMFe50TWaCUmH+WK2UBNSAeYqN7pGMyHpMF/MFmpCKsBc5UbXaCYkHeaL\n2UJNSAWYq9zoGs2EpPO0z2NdzjeYmZB0CAmzhZqQZDzON5iZkHQICbOFmpBkPM43mJmQdAgJ\ns4WakGQ8zjeYmZB0CAmzhZqQZDzON5iZkHQICbOFmpBkPM43mJmQdAgJs4WakGQ8zjeYmZB0\nCAmzhZqQZDzON5iZkHQICbOFmpBkPM43mJmQdAgJs4WakGQ8zjeYmZB0CAmzhZqQZDzON5iZ\nkHQICbOFmpBkPM43mJmQdAgJs4WakGQ8zjeYmZB0CAmzhZqQZDzON5iZkHQICbOF2iakdGK6\n5OrDBRASZgu1UUizu7OHv4OQMFuoCUnG43yDmT2H1J/i9Q+P96l/vrvvnp2fBd6GkDBbqC1D\nGgKa1JPOQhqWTY5Y/93mGNKdVQD+hueHNF5sOAvp8uH0RoEjEmYLtfWp3VAUIWF+vtlzSO38\nISFh9vgHTUgZj/MNZvYe0tWLDYmQMNejNv9mw9XL39OHhIS5AnVp37X79QezhITZQl1QSI8d\neX6CkDBbqAsKqU2PfIPhJwgJs4W6pJBWgZAwW6gJScbjfIOZCUmHkDBbqAlJxuN8g5kJSYeQ\nMFuoCUnG43yDmQlJh5AwW6gJScbjfIOZCUmHkDBbqAlJxuN8g5kJSYeQMFuoCUnG43yDmQlJ\nh5AwW6gJScbjfIOZCUmHkDBbqAlJxuN8g5kJSYeQMFuoCUnG43yDmQlJh5AwW6gJScbjfIOZ\nCUmHkDBbqAlJxuN8g5kJSYeQMFuo3YXEfDFbqAmpAHOVG12jmZB0mC9mCzUhFWCucqNrNBOS\nDvPFbKEmpALMVW50jWZC0mG+mC3UhFSAucqNrtFMSDp8IIvZQk1IMh7nG8xMSDqEhNlCTUgy\nHucbzExIOoSE2UJNSDIe5xvMTEg6hITZQk1IMh7nG8xMSDqEhNlCTUgyHucbzExIOoSE2UJN\nSDIe5xvMTEg6hITZQk1IMh7nG8xMSDqEhNlCTUgyHucbzExIOoSE2UJNSDIe5xvMTEg6hITZ\nQk1IMh7nG8xMSDqEhNlCTUgyHucbzExIOoSE2UJNSDIe5xvMTEg6hITZQk1IMh7nG8xMSDqE\nhNlCTUgyHucbzExIOoSE2UJtFVI6cPP5pWJCwmyhNgopjTe3VlgCIWG2UNuElGZ3N9Z4HELC\nbKE2DWl6ZEr5dO94l9rx59TeOQ2cQUiYLdRGIQ1p9KGMt11P3QrTvtrpEeq/2xxDurMKwN/w\n9JD6mIZw0hjQrXsNjkiYLdSml7/TPKR0OlBNz/QSIWGuQm0f0nhel/LS9trPGoSE2UJtfdWO\nkJ6rxvxHaquLDd3teNOmdh7Q7BQvryZASJgt1ObfbJjc/nj5uyUkzIWr+a6djMf5BjMTkg4h\nYbZQE5KMx/kGMxOSDiFhtlATkozH+QYzE5IOIWG2UBOSjMf5BjMTkg4hYbZQE5KMx/kGMxOS\nDiFhtlATkozH+QYzE5IOIWG2UBOSjMf5BjMTkg4hYbZQE5KMx/kGMxOSDiFhtlATkozH+QYz\nE5IOIWG2UBOSjMf5BjMTkg4hYbZQE5KMx/kGMxOSDiFhtlATkozH+QYzE5IOIWG2UBOSjMf5\nBjMTkg4hYbZQuwuJ+WK2UBNSAeYqN7pGMyHpMF/MFmpCKsBc5UbXaCYkHeaL2UJNSAWYq9zo\nGs2EpMN8MVuoCakAc5UbXaOZkHSYL2YLNSEVYK5yo2s0ExJA1RASwAoQEsAKEBLAChASwAoQ\nEsAKEBLAChASwAoQEsAKEBLAChASwAoUHlI6cPOJH1cwpMqNPmzV9aUFb3NJf9Blh5TGmx+e\n+HEFQxos3bQAAAMQSURBVKrc6ONOd3Vpf1PiNhf1B11dSGn2RCXzLX+jD9uTzheMt4Vuc1F/\n0JWElI/R5c+34+5GF8b4Z1nXNvcPCtjoOkKa9FJPSDc2urz3G/32VrbNp20qYqPrCimdKD+k\n6XwvN3p8thhSW982j9tUxEZXElIaj951HJGGM7tKNnp2Cl3JNhe2d1QS0tmioufbXm5W6Rs9\n/3d5vyzfFrnNhe0dhPQEpv92PF9Q7EbnU7v8Y9nbXNTeUVFISXmiBNLkrpqNnr9Hmi0sdZuL\n2jvKDunnj6gL/sB9PGWvaaPbYberaZtL2jsKDwmgDggJYAUICWAFCAlgBQgJYAUICWAFCAlg\nBQipKpqR6dL3dLbS2drbz7/avrgQUlVcD2n+02VITUNJz4aQqqO5mNnPIXV3+12zefpWRYeQ\nqmPs5Pu1aV6/Tweew4+f26ZJu/YypP7B/rj6vt33VW2ar2HRcYXv7fTF0xeAAiFVx5DHPh0L\nSvs+pI/TSdzuxyNSt/rhwbY5xNd+Hx8Oiw5rptmLu9vxWbgPIVXH0MmueWnbl3Hn3zT/2vbr\n+PD6e6S345q75v1Q3K579UdedFjzZd++N2kaUn4W7kNI1TF0sjkeWboDS7/k++Pt5WpIr1/d\n6t2i7eHR6avp00VNd5TKLz7e5mfhPoRUHUMneZc/PXoZLufNT+0+jgeuNlfVHo48n+1n8zZd\ndO46Pbq8Pgg/wR9TdfwQ0muzef/4vgzpdAo47WLfvB4W7glpTfhjqo4fTu1OF9quhHRY8a0d\nztQ6Xpvv7owtLzoL6Tuf2oEGf1jV8cPFhuMVhf35e6Tu7qtpvo6rH9b81x2dPvuPaPOiHFJq\n/vWayQvgLoRUHReXv48Xr4/7/fX3SO3x+ttmWP2Y1PFgs8mG46IcUqd5684AJy+AexBSdVx8\nIHu6bn04YWtePq+GdDq5++5W6H5+P14qbyeLJp8e7dJh5dMJXn4B3IOQAFaAkABWgJAAVoCQ\nAFaAkABWgJAAVoCQAFaAkABWgJAAVoCQAFaAkABWgJAAVoCQAFbg/09z0dLpgNAmAAAAAElF\nTkSuQmCC",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {
      "image/png": {
       "height": 420,
       "width": 420
      }
     },
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Total revenue by country\n",
    "country_revenue <- data %>%\n",
    "  group_by(country) %>%\n",
    "  summarize(total_revenue = sum(total_revenue)) %>%\n",
    "  arrange(desc(total_revenue))\n",
    "\n",
    "# Plot revenue by country\n",
    "ggplot(country_revenue[1:10,], aes(x = reorder(country, total_revenue), y = total_revenue)) +\n",
    "  geom_bar(stat = \"identity\", fill = \"lightgreen\") +\n",
    "  coord_flip() +\n",
    "  labs(title = \"Top 10 Countries by Revenue\", x = \"Country\", y = \"Total Revenue\") +\n",
    "  theme_minimal()\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 26,
   "id": "43531ea8-d564-4f92-95a9-b0be8907fe0f",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAANlBMVEUAAABNTU1oaGh8fHyH\nzuuMjIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enr6+vw8PD///8uMO2sAAAACXBIWXMA\nABJ0AAASdAHeZh94AAAgAElEQVR4nO3di1riWhqE4QRG0faw4f5vdjgTCMsKmlWx4vc/z7Q2\nst5UL1NNQHpPs2EY5sfTTB2AYeYwFIlhRhiKxDAjDEVimBGGIjHMCEORGGaEoUgMM8JQJIYZ\nYSgSw4wwFIlhRpgRitQcpn3+OP72+svr56v73rnH1R0LXyzP+rlpFjdZmsVq/SDDMD+Z8Yq0\nndXht7dfvv1NoSuHmx8u0tP2wMt+lpYmMcYZpUj7D5+vTfNS/vKXt3x1sz78R994Xx5azTCe\nGa9Im81H09x5GKhfpPtZ2m9pDPOtGbNIm9XuIenw24/n3bOm9+PF1u7DetE8nS/tXtpm+dZZ\nvP1wvuPmsL49Peva3rJqm8Vb55CXrzbHZb0sx8+2D03HI202b9vPn9c3N1/px3usT0+61pdn\nXwzz1YxapI9tVQ6/fT8+U3m79ONp9xzqWKTV+SlVoUhv5/W7W5bnzw/T+WqpSMdHpH+dJ2+H\ng97e3NXP91gdD/bv7sUqw/Rm1CJtzk1YNP82u/NwcXkNYbk+3Xd7rm6/+tbuntxcitR9sWF7\nkfiyfWDYntif+7u/b9ZPl1cUrr56/9Luvd235KNZbh8UP5a7Xmyr9bZZ7587dW/u6Jd7fB4f\niZb7IzCMnEpF6j1INM37+TfNvmXb83ZVKtLq+FLB8+Euu4eHdfcKsvPV2yKdZnm45/5Kbr17\npHxuXjfHi7XuzR29c4+n461c2THDplKRnrZPYf59dr7cKczm9JrE5fHqtkiL4yPB581dDnP1\n1ftFWrwe73ma3efrC3C5uaN37rG/SOXKjhk8IxepPf72sz2fzveKdFl4v0hn8uYuNwfs/1Rq\n/5t1e3o+1fQbU7j55h7bvwk+uLJjhs+oRXo/v9iwfQr0vDtRX6Yo0u6ljvebNXeuNq8+vy3S\n7iGJKztm8Iz88ve/qxfxns+PUPcv7YpF+sGl3f7Dy/GNDW3nh7Xt5cKte3NHb7s/Bts+GnFl\nxwyeMYt0eMn59q/7e0XaP4N5370gcCjVW+/FhsMb9J5vXo84zNVX779qtzjc5fnw4WN3pOfj\n6wft9c0dvXOPXaQVV3bM4BmvSLu3CJ2fEx1e/l4dLvU6L1Ifi7T76r92d/21bJ7Wu1fCm6s7\nfjbN6vAC98edIl199X6RPg5f+9j/rOhj/5zprWk/zi9/X27u6J177P4ILVd2zOAZpUj9N60e\nfyDbfh5eIrst0sv57oc7rg4vml3ueP0D2cvSw3S/er9I20eXReeenR/ILm9u7uqde+zvw5Ud\nM3TGK9Ji1f1nFO/7twjtHmI+FpdnSueXB3ZvETq8HvC+/fLL/varO16/Rajz4farhSJtn/Ds\nrx8/d+//ObwWvnndHuD4VtbLzVd65x67Hy1xZccMnRGKNNN55cqOGT4UqTAf7fEldIYZMBTp\n7pyfWDHMoKFId2dxfmLFMEOGIjHMCEORGGaEoUgMM8JQJIYZYSgSw4wwFIlhRhiKxDAjDEVi\nmBGGIjHMCFOxSP/Vo2vaobHZEifdtymSkU61ia1timSkU21ia5siGelUm9japkhGOtUmtrYp\nkpFOtYmtbYpkpFNtYmubIhnpVJvY2qZIRjrVJra2KZKRTrWJrW2KZKRTbWJrmyIZ6VSb2Nqm\nSEY61Sa2timSkU61ia1timSkU21ia5siGelUm9japkhGOtUmtrYpkpFOtYmtbYpkpFNtYmub\nIhnpVJvY2qZIRjrVJra2KZKRTrWJrW2KZKRTbWJrmyIZ6VSb2NqmSEY61Sa2timSkU61ia1t\nimSkU21ia5siGelUm9japkhGOtUmtrYpkpFOtYmtbYpkpFNtYmubIhnpVJvY2qZIRjrVJra2\nHUVq7sxY9vgTetawJU56oiL9rzcUKckmtrYpkpFOtYmtbYpkpFNtYmubIhnpVJvY2qZIRjrV\nJra2KZKRTrWJrW2KZKRTbWJrmyIZ6VSb2NqmSEY61Sa2timSkU61ia1timSkU21ia5siGelU\nm9japkhGOtUmtrYpkpFOtYmtbYpkpFNtYmubIhnpVJvY2qZIRjrVJra2KZKRTrWJrW2KZKRT\nbWJrmyIZ6VSb2NqmSEY61Sa2timSkU61ia1timSkU21ia5siGelUm9japkhGOtUmtrYpkpFO\ntYmtbYpkpFNtYmubIhnpVJvY2qZIRjrVJra2KZKRTrWJrW2KZKRTbWJrmyIZ6VSb2NqmSEY6\n1Sa2timSkU61ia1timSkU21ia5siGelUm9japkhGOtUmtrYpkpFOtYmtbYpkpFNtYmubIhnp\nVJvY2qZIRjrVJra2KZKRTrWJrW2KZKRTbWJrmyIZ6VSb2NqmSEY61Sa2timSkU61ia1timSk\nU21ia5siGelUm9japkhGOtUmtrYpkpFOtYmtbYpkpFNtYmubIhnpVJvY2v5xkf7Tc69IA5Yx\nzG+fEYv0RcXOx+ARKdsmtrYpkpFOtYmtbYpkpFNtYmubIhnpVJvY2qZIRjrVJra2KZKRTrWJ\nrW2KZKRTbWJrmyIZ6VSb2NqmSEY61Sa2timSkU61ia1timSkU21ia5siGelUm9japkhGOtUm\ntrYpkpFOtYmtbYpkpFNtYmubIhnpVJvY2qZIRjrVJra2KZKRTrWJrW2KZKRTbWJrmyIZ6VSb\n2NqmSEY61Sa2timSkU61ia1timSkU21ia5siGelUm9japkhGOtUmtrYpkpFOtYmtbYpkpFNt\nYmubIhnpVJvY2qZIRjrVJra2KZKRTrWJrW2KZKRTbWJrmyIZ6VSb2NqmSEY61Sa2timSkU61\nia1timSkU21ia5siGelUm9japkhGOtUmtrYpkpFOtYmtbYpkpFNtYmubIhnpVJvY2qZIRjrV\nJra2KZKRTrWJrW2KZKRTbWJrmyIZ6VSb2NqmSEY61Sa2timSkU61ia1timSkU21ia5siGelU\nm9japkhGOtUmtrYpkpFOtYmtbYpkpFNtYmubIhnpVJvY2qZIRjrVJra2KZKRTrWJrW2KZKRT\nbWJrmyIZ6VSb2NqmSEY61Sa2timSkU61ia1timSkU21ia5siGelUm9japkhGOtUmtrYpkpFO\ntYmtbYpkpFNtYmubIhnpVJvY2qZIRjrVJra2KZKRTrWJrW2KZKRTbWJrmyIZ6VSb2NqmSEY6\n1Sa2timSkU61ia1timSkU21ia5siGelUm9japkhGOtUmtrYpkpFOtYmtbYpkpFNtYmubIhnp\nVJvY2qZIRjrVJra2KZKRTrWJrW2KZKRTbWJrmyIZ6VSb2NqmSEY61Sa2timSkU61ia1timSk\nU21ia5siGelUm9jaHnBGt9u593HwsShSuE1sbeszuj3+cvtx+LEoUrhNbG1TJCOdahNb2wOL\ntKFIf9gmtraHFOnwnKhQpP/03CvSgGUM89vnoSK1Gy7t/rZNbG3zHMlIp9rE1jZFMtKpNrG1\nTZGMdKpNbG1TJCOdahNb27yzwUin2sTWNu+1M9KpNrG1TZGMdKpNbG1TJCOdahNb2xTJSKfa\nxNY2RTLSqTaxtU2RjHSqTWxtUyQjnWoTW9sUyUin2sTWNkUy0qk2sbVNkYx0qk1sbVMkI51q\nE1vbFMlIp9rE1jZFMtKpNrG1TZGMdKpNbG1TJCOdahNb2xTJSKfaxNY2RTLSqTaxtU2RjHSq\nTWxtUyQjnWoTW9sUyUin2sTWNkUy0qk2sbVNkYx0qk1sbVMkI51qE1vbFMlIp9rE1jZFMtKp\nNrG1TZGMdKpNbG1TJCOdahNb2xTJSKfaxNY2RTLSqTaxtU2RjHSqTWxtUyQjnWoTW9sUyUin\n2sTWNkUy0qk2sbVNkYx0qk1sbVMkI51qE1vbFMlIp9rE1jZFMtKpNrG1TZGMdKpNbG1TJCOd\nahNb2xTJSKfaxNY2RTLSqTaxtU2RjHSqTWxtUyQjnWoTW9sUyUin2sTWNkUy0qk2sbVNkYx0\nqk1sbVMkI51qE1vbFMlIp9rE1jZFMtKpNrG1TZGMdKpNbG1TJCOdahNb2xTJSKfaxNY2RTLS\nqTaxtU2RjHSqTWxtUyQjnWoTW9sUyUin2sTWNkUy0qk2sbVNkYx0qk1sbVMkI51qE1vbFMlI\np9rE1jZFMtKpNrG1TZGMdKpNbG1TJCOdahNb2xTJSKfaxNY2RTLSqTaxtU2RjHSqTWxtUyQj\nnWoTW9sUyUin2sTWNkUy0qk2sbVNkYx0qk1sbVMkI51qE1vbFMlIp9rE1jZFMtKpNrG1TZGM\ndKpNbG1TJCOdahNb2xTJSKfaxNY2RTLSqTaxtU2RjHSqTWxtUyQjnWoTW9sUyUin2sTWNkUy\n0qk2sbVNkYx0qk1sbVMkI51qE1vbPy7Sf3ruFWnAMob57TNikb6o2PkYPCJl28TWNkUy0qk2\nsbVNkYx0qk1sbVMkI51qE1vbFMlIp9rE1jZFMtKpNrG1TZGMdKpNbG1TJCOdahNb2xTJSKfa\nxNY2RTLSqTaxtU2RjHSqTWxtUyQjnWoTW9sUyUin2sTWNkUy0qk2sbVNkYx0qk1sbVMkI51q\nE1vbFMlIp9rE1jZFMtKpNrG1TZGMdKpNbG1TJCOdahNb2xTJSKfaxNY2RTLSqTaxtU2RjHSq\nTWxtUyQjnWoTW9sUyUin2sTWNkUy0qk2sbVNkYx0qk1sbVMkI51qE1vbFMlIp9rE1jZFMtKp\nNrG1TZGMdKpNbG1TJCOdahNb2xTJSKfaxNY2RTLSqTaxtU2RjHSqTWxtUyQjnWoTW9sUyUin\n2sTWNkUy0qk2sbVNkYx0qk1sbVMkI51qE1vbFMlIp9rE1jZFMtKpNrG1PVWRhswQu2JsbAM9\nm9hTFWnILUPsirGxDfRsYlMkI51qE1vbFMlIp9rE1jZFMtKpNrG1TZGMdKpNbG1TJCOdahNb\n2xTJSKfaxNY2RTLSqTaxtU2RjHSqTWxtUyQjnWoTW9sUyUin2sTWNkUy0qk2sbVNkYx0qk1s\nbVMkI51qE1vbFMlIp9rE1jZFMtKpNrG1TZGMdKpNbG1TJCOdahNb2xTJSKfaxNY2RTLSqTax\ntU2RjHSqTWxtUyQjnWoTW9sUyUin2sTWNkUy0qk2sbVNkYx0qk1sbVMkI51qE1vbFMlIp9rE\n1jZFMtKpNrG1TZGMdKpNbG1TJCOdahNb2xTJSKfaxNY2RTLSqTaxtU2RjHSqTWxtUyQjnWoT\nW9sUyUin2sTWNkUy0qk2sbVNkYx0qk1sbVMkI51qE1vbFMlIp9rE1jZFMtKpNrG1TZGMdKpN\nbG3fnK3N8fdte3Vze7itvfo4+FgUKdwmtra7Z2vbdKZ7p31xDiW6fBx+LIoUbhNb292z9bXT\no9fO7e2GIv1pm9jaLlzadedYHor0Z21ia3vAiw1fF+k/Pd8t0gCaYaaccpFW7e1zpHbDI9If\nt4mt7ZuzddV7seHcG4r0Z21ia/vmbG2vXmXY33IYivSHbWJre8CLDRsekf64TWxt35ytT836\n3jKK9KdtYmv75mz9bJefd5bxzoY/bRNb271Lu3vvbPjhsShSuE1sbVMkI51qE1vbvPvbSKfa\nxNY2RTLSqTaxtc2lnZFOtYmtbYpkpFNtYmv77tn6uXwZ81gUKdwmtrbvn63rZoQmUaS52MTW\nduFs5dIO20LPJvb9s/VfM+i9CwOPRZHCbWJru/Riw2rEY1GkcJvY2r5fpHaEHlGk2djE1jY/\nkDXSqTaxtU2RjHSqTWxt356t69WiaRaru/8q6bvHokjhNrG13fv3SMcnSff+VdJ3j0WRwm1i\na/vmbH1udv+w73PZPI94LIoUbhNb24X/ZgM/kMW20LOJTZGMdKpNbG1zaWekU21ia5sXG4x0\nqk1sbfPyt5FOtYmtbX4ga6RTbWJrmyIZ6VSb2Nq+Pltf9/964v35Y9RjUaRwm9javjpbl02z\nr1A7xr+ioEizsYmt7e7Z+q9p3/afvLfNvxGPRZHCbWJru3u2Lpu342dvzXLEY1GkcJvY2u6e\nrZ23M/DOBmwLPZvYpSLx32zAdtCziX19aXd6P8MnbxHCttCzid09W1/P9Xk+P1sa41gUKdwm\ntravzta2eXrffnh/ahZjHosihdvE1vbV2Xp6y+oo71mlSLOxia3tm7P139O2Rk8j/BBpQ5Hm\nYxNb27zXzkin2sTWNkUy0qk2sbVNkYx0qk1sbVMkI51qE1vbFMlIp9rE1jZFMtKpNrG1TZGM\ndKpNbG1TJCOdahNb2xTJSKfaxNY2RTLSqTaxtU2RjHSqTWxtUyQjnWoTW9sUyUin2sTWNkUy\n0qk2sbVNkYx0qk1sbVMkI51qE1vbFMlIp9rE1jZFMtKpNrG1TZGMdKpNbG1TJCOdahNb2xTJ\nSKfaxNY2RTLSqTaxtU2RjHSqTWxtUyQjnWoTW9sUyUin2sTWNkUy0qk2sbVNkYx0qk1sbVMk\nI51qE1vbFMlIp9rE1jZFMtKpNrG1TZGMdKpNbG1TJCOdahNb2xTJSKfaxNY2RTLSqTaxtU2R\njHSqTWxtUyQjnWoTW9sUyUin2sTWNkUy0qk2sbVNkYx0qk1sbVMkI51qE1vbFMlIp9rE1jZF\nMtKpNrG1TZGMdKpNbG1TJCOdahNb2xTJSKfaxNb2by7SnSn+OSrExjbQs4n9m4t0Z1nxz1Eh\nNraBnk1silSMjW2gZxP7x0X6T8+IRRpwNIaxzYhF+qJi52PwiJRtE1vbFKkYG9tAzyY2RSrG\nxjbQs4lNkYqxsQ30bGJTpGJsbAM9m9gUqRgb20DPJjZFKsbGNtCziU2RirGxDfRsYlOkYmxs\nAz2b2BSpGBvbQM8mNkUqxsY20LOJTZGKsbEN9GxiU6RibGwDPZvYFKkYG9tAzyY2RSrGxjbQ\ns4lNkYqxsQ30bGJTpGJsbAM9m9gUqRgb20DPJjZFKsbGNtCziU2RirGxDfRsYlOkYmxsAz2b\n2BSpGBvbQM8mNkUqxsY20LOJTZGKsbEN9GxiU6RibGwDPZvYFKkYG9tAzyY2RSrGxjbQs4lN\nkYqxsQ30bGJTpGJsbAM9m9gUqRgb20DPJjZFKsbGNtCziU2RirGxDfRsYlOkYmxsAz2b2BSp\nGBvbQM8mNkUqxsY20LOJTZGKsbEN9GxiU6RibGwDPZvYFKkYG9tAzyY2RSrGxjbQs4lNkYqx\nsQ30bGJTpGJsbAM9m9gUqRgb20DPJjZFKsbGNtCziU2RirGxDfRsYlOkYmxsAz2b2BSpGBvb\nQM8mNkUqxsY20LOJTZGKsbEN9GxiU6RibGwDPZvYFKkYG9tAzyY2RSrGxjbQs4lNkYqxsQ30\nbGJTpGJsbAM9m9gUqRgb20DPJjZFKsbGNtCziU2RirGxDfRsYlOkYmxsAz2b2OlFavozVuwK\nE2oTW9vxRSrf56exK0yoTWxtU6Ri7AoTahNb2xSpGLvChNrE1jZFKsauMKE2sbVNkYqxK0yo\nTWxtU6Ri7AoTahNb2xSpGLvChNrE1jZFKsauMKE2sbVNkYqxK0yoTWxtU6Ri7AoTahNb2xSp\nGLvChNrE1jZFKsauMKE2sbVNkYqxK0yoTWxtU6Ri7AoTahNb2xSpGLvChNrE1jZFKsauMKE2\nsbVNkYqxK0yoTWxtU6Ri7AoTahNb2xSpGLvChNrE1jZFKsauMKE2sbVNkYqxK0yoTWxtU6Ri\n7AoTahNb2xSpGLvChNrE1jZFKsauMKE2sbVNkYqxK0yoTWxthxWpPxSpvk1sbQ847drt3Ps4\n+FgjFmnILUP3QsWuMKE2sbWtT7v2+Mvtx+HHokjhNrG1TZGKsStMqE1sbQ887SjSKBNqE1vb\nPy7Sf3rMRRqQiGFGmUeL1G6iH5Ee+j9RCv3rdzZ/tUfQ331ESi/SkDv1YleYUJvY2h5UpLb7\nC0X6/oTaxNb2kCK1l18p0o8m1Ca2tof8QLbzgSL9aEJtYmt7wM+R2uNbGXLf2UCRfi09m9hh\n77WjSFPYxNY2RSrGrjChNrG1TZGKsStMqE1sbVOkYuwKE2oTW9sUqRi7woTaxNY2RSrGrjCh\nNrG1TZGKsStMqE1sbVOkYuwKE2oTW9sUqRi7woTaxNY2RSrGrjChNrG1TZGKsStMqE1sbVOk\nYuwKE2oTW9sUqRi7woTaxNY2RSrGrjChNrG1TZGKsStMqE1sbVOkYuwKE2oTW9sUqRi7woTa\nxNY2RSrGrjChNrG1TZGKsStMqE1sbVOkYuwKE2oTW9szLNIP/0+UQs+a2ZyREfSfKNKgZQNi\n19ySLJvY2qZIxdg1tyTLJra2KVIxds0tybKJrW2KVIxdc0uybGJrmyIVY9fckiyb2NqmSMXY\nNbckyya2tilSMXbNLcmyia1tilSMXXNLsmxia5siFWPX3JIsm9japkjF2DW3JMsmtrYpUjF2\nzS3JsomtbYpUjF1zS7JsYmubIhVj19ySLJvY2qZIxdg1tyTLJra2KVIxds0tybKJrW2KVIxd\nc0uybGJrmyIVY9fckiyb2NqmSMXYNbckyya2tilSMXbNLcmyia1tilSMXXNLsmxia5siFWPX\n3JIsm9japkjF2DW3JMsmtrYpUjF2zS3JsomtbYpUjF1zS7JsYmubIhVj19ySLJvY2qZIxdg1\ntyTLJra2KVIxds0tybKJrW2KVIxdc0uybGJrmyIVY9fckiyb2NqmSMXYNbckyya2tilSMXbN\nLcmyia1tilSMXXNLsmxia5siFWPX3JIsm9japkjF2DW3JMsmtrYpUjF2zS3JsomtbYpUjF1z\nS7JsYmubIhVj19ySLJvY2qZIxdg1tyTLJra2KVIxds0tybKJrW2KVIxdc0uybGJrmyIVY9fc\nkiyb2NqmSMXYNbckyya2tilSMXbNLcmyia1tilSMXXNLsmxia5siFWPX3JIsm9japkjF2DW3\nJMsmtrYpUjF2zS3JsomtbYpUjF1zS7JsYmubIhVj19ySLJvY2qZIxdg1tyTLJra2KVIxds0t\nybKJrW2KVIxdc0uybGJrmyIVY9fckiyb2Nr+q0XqT3GLamxJlk1sbf/VIvVvKW5RjS3Jsomt\nbYp0uqW4RTW2JMsmtrYp0umW4hbV2JIsm9japkinW4pbVGNLsmxia5sinW4pblGNLcmyia1t\ninS6pbhFNbYkyya2tinS6ZbiFtXYkiyb2Nr+cZH+05NRpAF/EIa5nhGL9EXFzsfwNuKby3qx\na25Jlk1sbVOk0y3FLaqxJVk2sbVNkU63FLeoxpZk2cTWNkU63VLcohpbkmUTW9sU6XRLcYtq\nbEmWTWxtU6TTLV+8IXz8LakwczkjI2iK9NCyeltSYeZyRkbQFOmhZfW2pMLM5YyMoCnSQ8vq\nbUmFmcsZGUFTpIeW1duSCjOXMzKCpkgPLau3JRVmLmdkBE2RHlpWb0sqzFzOyAiaIj20rN6W\nVJi5nJERNEV6aFm9LakwczkjI2iK9NCyeltSYeZyRkbQFOmhZfW2pMLM5YyMoCnSQ8vqbUmF\nmcsZGUFTpIeW1duSCjOXMzKCpkgPLau3JRVmLmdkBE2RHlpWb0sqzFzOyAiaIj20rN6WVJi5\nnJERNEV6aFm9LakwczkjI2iK9NCyeltSYb6wf/pvFimStinSF8tG/zezUxWp/0cbi/7xUKTh\nx5q+EaMtG2tLKgxFMtIU6YfLxtqSCkORjDRF+uGysbakwlAkI02RfrhsrC2pMBTJSFOkHy4b\na0sqDEUy0hTph8vG2pIKQ5GMNEX64bIhM2RLam53f2oW6Rf/jIoiPXJq/7plf61IFe0fDkUq\n3RKxbLwijfZoR5Hq2xRp7GUjFmksmyLVtynS2MuqFumLxyiKZKQpUv1lg4o06KrtsaNRJCNN\nkeovG1akIcso0s+GIpVuiVj21SviXxXpzgw5Wvlbe5lhtR0Q+7v2F0ORhh9r6lPbXKQ70IAt\n+e7xy9/ay3z38W8ATZGOQ5HGXmYu0pBnWxSpvk2Rxl5mLtIXR9t8cbT+t4si/cimSGMvo0jf\nO0vGH4pUPkcClt2DvvU6AkX64VCk8jkSsGzq449YpG/+sOt7Z8n4Q5HK50jAsqmPP2KRvrns\ne2fJ+EORyudIwLKpj/8LizToR2vjD0UqnyMBy6Y+/m8s0hchv/rx16Bry/JY/xkVRRp72dTH\nr1qkQS+bDKCHFWnIn23ICTjIpki/bNnUx69apEEhB9D3fiIwoKMU6Tvfo9BlUx8/tkjf+7MN\nOQHvDEX69cumPv70RXrooYUiDT/W9KeWc9nUx5++SA+FpEjDjzX9qeVcNvXxKVKPvjMU6dcv\nm/r4FKlH35lBV6RfHI0iVV829fGHvbOv/+3680V66GgUqfqyqY8/bFn/20WRHjkaRaq+bOrj\nU6QefWco0q9fNvXxKVKPvjMU6dcvm/r4FKlH3xmK9OuXTX18itSj7wxF+vXLpj4+RerRd4Yi\n/fplUx+fIvXoO0ORfv2yqY9PkXr0oHeWU6Rftmzq41OkHv3tP9sQ+3SIR5I9NhTpFy/rf7sy\nijRkejRFSlw29fFDivTNi60ht/ROQIqUuGzq44cUqeKy3glIkRKXTX18itQ7ASlS4rKpj0+R\neicgRUpcNvXxhy373nOUjD9b/2SnSIHLpj4+y/onO0UKXDb18VnWP9kpUuCyqY/Psv7JTpEC\nl019fJb1T3aKFLhs6uOzrH+yU6TAZVMfn2X9k50iBS6b+vgs65/sFClw2dTHZ1n/ZKdIgcum\nPj7L+ic7RQpcNvXxWdY/2SlS4LKpj8+y/slOkQKXTX18lvVPdooUuGzq47Osf7JTpMBlUx+f\nZf2TnSIFLpv6+Czrn+y/s0jtdobcjyKxbJJl/ZP9VxapPf8ihiKxbJJl/ZOdIgUum/r4LOuf\n7BQpcNnUx2dZ/2RPKNJ/egb9V/0Y5teNPLVHLFJ5vvpvmP90KtqhsdkSJz3NpV2Fmcv2Z9jE\n1jZFMtKpNrG1TZGMdKpNbG1TJCOdahNb2453NlSYuWx/hk1sbTvea5dlh8ZmS5w0RZqUTrWJ\nrW2KZJDCRa0AAAVFSURBVKRTbWJrmyIZ6VSb2NqmSEY61Sa2timSkU61ia1timSkU21ia5si\nGelUm9japkhGOtUmtrYpkpFOtYmtbYpkpFNtYmubIhnpVJvY2qZIRjrVJra2KZKRTrWJrW2K\nZKRTbWJrmyIZ6VSb2NqmSEY61Sa2timSkU61ia1timSkU21ia5siGelUm9japkhGOtUmtrYp\nkpFOtYmtbYpkpFNtYmubIhnpVJvY2qZIRjrVJra2KZKRTrWJre2KRWKYvzMUiWFGGIrEMCMM\nRWKYEYYiMcwIQ5EYZoShSAwzwlAkhhlhKBLDjDAUiWFGGIrEMCNMUpH2/1/qp/9P9duPv3cS\nY7fHfKGxj5vujB1UpMN3dnP45fbj753I2G3nQ17s46ZbY+cUqd0knpGhscOL1G4oUmmO+xH4\nrQ2M3XY/5sXebChScTLPyNDY56dIm01i7A1FKs7l23r/W/xLp+3+L+iMPP6SVqTzLxSpMOet\nyPrWdr6dbZsT+zB5RdoPRfpq2vb4sJ31rT3HPvwuJfZh4nb7MBRJTt4j0n4CY3Np9/BQpOoT\nGLv71C4w9oYifTmnJxt3P/7eSYxdihsS+/y4xDsbGCZqKBLDjDAUiWFGGIrEMCMMRWKYEYYi\nMcwIQ5EYZoShSFWm2U+7+hx29/XrU9ssXw8rh/lffPG1vdxtP88f37aYgcMmVpnmNG9D7v3R\nHou3HqVIly+eY3zVJIo0xrCJVeZwcn4+77shZ9E8b+/2uWxWj/nyi8fPVs3yuxYzcNjEKnM6\nOZ+bl+2v70+7y7zNulnsbtt/eGmbxevNvde7j4f/fT7tFmzn/Mn6udnX7dq/4JuzuXsEurnb\nCT599tEuL/T2ptVR6Fm3x2VKQ5GqzOkM/tg9FrwdLq9W2/N1d6X3b1uu1f6WU5OeOleAhzO9\nPSzYrPefPG1v33+yuPU7+NkcUKRl83yht78chb51e1ymNBSpylydyovm365SzaFW29q87x5z\nNu/N6UWBz+1f/6t/n+cF2zN9vXndfXm1PePfdze9HE7v11v/gl/M20u77YPK83WRdg86Z3p/\ntJfdwjvWzXGZ0lCkKnPzmPD59rLcffa0e9a/Oz/b5rn7MsT6ZbH7e/99c76025w6eLyqWhxq\n8HTrd/CzeefFhs/rIn1uOvTlaHesm+MypaFIVea6SMvD2bz72/5pe/20fXh4214xLa5eG/9Y\nPS93Dwi3V2Fn52Rc+x38bN4Wqd2//H2L3ljXQTvW1XGZ0rBDVeZ05r3v/i5/3j5vf/vc37Ro\nPg9PlDYfi6Z9v13VPl6kDn4ye6/adT7/skh3LYo0aNihKnM6856a1+Nv9i/JbR+OVu1py187\np/L6vOr6TL+5tOv5V/jJ/KJIn5evdy7tuse+sRacIMOGfaoyl58j7X/zvlkvT6fv/gWHdnvT\nx/nFhlWz3P7lv14dXkPrntqr7XP9j9Mnm3/nnwd1u3LCz+b9IrXbC8fDHQ+3nulukXrWzXGZ\n0lCkKnN+lr+7elt1Lo/emt0ToeNNL6e7L45PZj5vi/R5evX58GL1+R0Klyuu1c1nL/tXz893\nu0Taf/nlwp/pbm171s1xmdJQpCpzOCEXq8PV0/P2Yej9eFIfXiPbbK/w2pfL/V+Xu5+Erje9\nJzEf2y8871Z87pFrf3+PC34yX+8Waffll+4TrxPdOVrfujkuUxqK5J13frg5z6FI3lkOexsr\nkzYUyTlNw9P2mQ5Fck7LWwTmOhSJYUYYisQwIwxFYpgRhiIxzAhDkRhmhKFIDDPCUCSGGWEo\nEsOMMBSJYUaY/wNlxx3mFZZnggAAAABJRU5ErkJggg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {
      "image/png": {
       "height": 420,
       "width": 420
      }
     },
     "output_type": "display_data"
    }
   ],
   "source": [
    "# RFM Analysis\n",
    "# Ensure invoice_date is a Date object\n",
    "rfm_data <- data %>%\n",
    "  mutate(invoice_date = as.Date(invoice_date)) %>%  # Convert to Date\n",
    "  group_by(customer_id) %>%\n",
    "  summarize(\n",
    "    recency = as.numeric(Sys.Date() - max(invoice_date)),  # Days since last purchase\n",
    "    frequency = n_distinct(invoice_no),  # Unique invoices\n",
    "    monetary = sum(total_revenue)  # Total revenue\n",
    "  )\n",
    "\n",
    "# Plot Distribution of RFM Scores\n",
    "library(ggplot2)\n",
    "\n",
    "# Plot Recency\n",
    "# Recency Histogram with appropriate binwidth\n",
    "ggplot(rfm_data, aes(x = recency)) +\n",
    "  geom_histogram(binwidth = 10, fill = \"skyblue\", color = \"black\") +  # Set binwidth to 10\n",
    "  labs(title = \"Distribution of Recency\", x = \"Days Since Last Purchase\", y = \"Count\") +\n",
    "  theme_minimal()\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 27,
   "id": "b7929f22-57e9-442c-b2f0-5109de7f641f",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAANlBMVEUAAABNTU1oaGh8fHyM\njIyampqnp6et2OaysrK9vb3Hx8fQ0NDZ2dnh4eHp6enr6+vw8PD////oVXkWAAAACXBIWXMA\nABJ0AAASdAHeZh94AAAgAElEQVR4nO2di3ajuBJFUZzk5j3m/3/22tiAVCoQdks6epy9ZhKC\nkVCJs8PD7u5hJIT8MwN6AIS0AEUiJAIUiZAIUCRCIkCRCIkARSIkAhSJkAhQJEIiQJEIiQBF\nIiQCFCkpg8WxFh/zdj+nYTh9K32dPsN73Xrl/PZggztfr5cdv36FduzuZup1Y48Xvt/MMLy8\nn3dHc3Ta4NQyzkp5WKTvebufW6MPra9TcK8PvhIY3N/LfcfmN7Bnp7/p62bXr3M13/IVikRU\nHgjD5yLcy3D5/f+lZerHDIFzUmSR/szw+nP5/n05Rx4zyepvq+vPwVwN+vv0+6RIROVwGH5P\nw8t945/bueh9WC+nlm5+QqekyCK9DO/3pffhZX/Pfn9bXZvh77bwOciLP4pEVKww/F7uC8zb\n733tp5F3Qe/zxu+339O/VsrWbq5Lw3B+GV7dLqeThvm4v241up5L3s73q8OpzeUy7e3H7vrj\nNpbzrMqycLnafF02fLleiDldv1/UP/3cf343w8v3spvb/xeUTkU1cmacUqqglnHWzBqGb+u2\n4HL/My2/rxtec3Tf+HT7ZiXPE+l1amt3edHvypsU6bbaLAn/kXcnl57msbzf134tt2dv1l3M\n91Vsu2tjF3S6L0uRlE4vBVqFy5lxS6mCWsZZM0sYfi/ynMfzJSN/17Xmctn2bcQtgvPrXr9I\n+r5e2l1ie5ZdXn64demK9Hu9HTlPyb2tne6/Lqm2Tg/LWP7ua0/zpddl6/XB2vmm49L1x2TG\nx3SteenkZzy/3ga3DHj64nd6vfEyb19z7WJm3FKqoJZx1swShvf7b+G3W6ZvoTLv2sY7Il3S\nNV0+/Xhdvt+eQpyNK9LbtHo6uVkJd3c63Yr9Xjt5nc4K6kXYOJ9llsW7ZHdlbg0HXyS/04tJ\nt8d2r9/KzLilVEEt46yZJYkvd3emX9DzE4PXF21jVaSZ9/UFp8v53PGqpn3t7vV6MljODdPq\n2xbXTn6nWyLrImxPpAu/3x8n+0G3KpLX6ZXz1HKaB3dmBreUKqhlnDWzJNFZmH87vwzaxtsi\nmdvvcLGdnfDpBsuLtbX533Rn8/IpVt+/v14vNq2LMPvSblxPa7dvn2Z5k2xPJK/ThZ/T1S6v\nDLuUKqhlnDWzL9JJFWn+TWw96XYvyPZEGgIiXT9V4Lzb64h0PXvYF2H2w4Zf8bDh83JCef/6\nC4skO13HZN92+SLxHoksbFza3R8q65d2u4+/rZ+8a6LRuU2Zvhl5aTfx+3ZN8Lz6bL18OXHY\nF2Hfd5l/zvdnes5V48/Sblck2enJfmSolGGXUgW1jLNmrIcNNy3ut9RTeM/6w4b7G7If1tlA\nFcnp8vVm3+ctidfuv28PG253+kb0sf4w3G7t7+/0fg/vzkXY7Un17+Xkc3vQZ3V96+L7gEii\n0/WR4dd1p2Jm3FKqoJZx1swShssl0PvtIe/0htH1MzLfZjirG98/ImSUbuyfnC4/p6fYX9Mt\ny2l4Pd8fH39fPyM3P/7+m/u+hPd17Wzam7mdX8YX43yC4XJLNb3l+mFuH+exun65Gnh/SO2I\n9DcuIt3tEZ2eLmO9VP73Pj3sEzPjllIFtYyzZtYwuG87vmqf2Zw3/r1t+aV1Y//kvCF7e0f0\n4/ra7U3X92mz9+Wjri/2G7Lmb+3MeXP4e3Afry0fWr2+U+R0/Tm/8COu+Jbz0svsguj07zQ3\n/fBnxi2lCmoZZ804Nyb2B2EuWXzb/MSm8sco1O2cjwh9rZ+r+XlZP2LzeVmeJPl9mc5xP9NH\nhP7szj7up50r50E+Xvu+Sn/6+L59Ksnq+vO685/pU0SWSLfd3B5dvNzPql6n36/TH6P41WbG\nLaUGahlnexQckc/tz6Z+vm+98g+dtkC5R7N1yhXpd75XKr7Tgij2aDZPqSJZ90qFd1oUhR7N\nDihVpBf7Iw9Fd1oUhR5NQuqCIhESAYpESAQoEiERoEiERIAiERIBikRIBCgSIRGgSIREgCLl\n5z82KXAn/9iEIuWnhlwU1aTUcVEkLDXkoqgmpY6LImGpIRdFNSl1XBQJSw25KKpJqeOiSFhq\nyEVRTUodF0XCUkMuimpS6rgoEpYaclFUk1LHRZGw1JCLopqUOi6KhKWGXBTVpNRxUSQsNeSi\nqCaljosiYfkfqRDtSFIkKOhIkGfQjiRFgoKOBHkG7UhSJCjoSJBn0I4kRYKCjgR5Bu1IUiQo\n6EiQZ9COJEWCgo4EeQbtSFIkKOhIkGfQjiRFgoKOBHkG7UhSJCjoSJBn0I4kRYKCjgR5Bu1I\nUiQo6EiQZ9COJEWCgo4EeQbtSFIkKOhIkGfQjiRFgoKOBHkG7UhSJCjoSJBn0I4kRYKCjgR5\nBu1IUiQo6EiQZ9COJEWCgo4EeQbtSFIkKOhIkGfQjiRFgoKOBHkG7UhSJCjoSJBn0I4kRYKC\njgR5Bu1IUiQo6EiQZ9COJEWCgo4EeQbtSFIkKOhIkGfQjiRFgoKOBHkG7UhSJCjoSJBn0I5k\nSSKZ6T93aVq8cf95WRrlK/ZKsYVxFp1m+jbGW/J2Py+qrxu32RboSJBn0I5kuSLdFo2zcpxT\nurZYvpn7T/ZX10d7R8Ft1J7s3S9fNocXkOgKOhLkGbQjWZtI6+IofjRrtOVL46iKtLvNst4R\nSVvcHB5FahTtSJYr0j2Z6vWellghkrthHJHs3WvnN6O33AEdCfIM2pGsRyTrN75QwLnIyiaS\nvDcLiPSfCjoS5BnUQ7ke6nJFWp8FWJtO39Ybekck9+bff9ig9uJus7xsv+rvftwZHs9IjaId\nyYJFWk5HRy7tjNzEveqz1ozHtnFXiVedrvx+KVLbaEeyGZG2zjbr18ClndjGXS9epUhdox3J\nQkSacxoQSbmrcRomFkkfiZEt5Ch3QEeCPIN2JAsTyV24/2/H9/a6Z4K1wj0b+NEfvaCr24yj\nL4+9e/fObG7hDI8iNYp2JAsRaX08oDw82PpowcYFnfuphfX79icbtG3GUVVS+2SDWod8QQcd\nCfIM2pEsRaROQUeCPIN2JCkSFHQkyDNoR5IiQUFHgjyDdiQpEhR0JMgzaEeSIkFBR4I8g3Yk\nKRIUdCTIM2hHkiJBQUeCPIN2JCkSFHQkyDNoR5IiQUFHgjyDdiQpEhR0JMgzaEeSIkFBR4I8\ng3YkKRIUdCTIM2hHkiJBQUeCPIN2JCkSFHQkyDNoR5IiQUFHgjyDdiQpEhR0JMgzaEeSIkFB\nR4I8g3YkKRIUdCTIM2hHkiJBQUeCPIN2JCkSFHQkyDNoR5IiQUFHgjyDdiQpEhR0JMgzaEeS\nIkFBR4I8g3YkKRIUdCTIM2hHkiJBQUeCPIN2JCkSFHQkyDNoR5IiQfkvvAmbZN/JPzahSPmp\nIRdFNSl1XBQJSw25KKpJqeOiSFhqyEVRTUodF0XCUkMuimpS6rgoEpYaclFUk1LHRZGw1JCL\nopqUOi6KhKWGXBTVpNRxUSQs6LcWG2eaY4rUAeikNc40xxSpA9BJa5xpjilSB6CT1jjTHFOk\nDkAnrXGmOaZIHYBOWuNMc0yROgCdtMaZ5pgidQA6aY0zzTFF6gB00hpnmmOK1AHopDXONMcU\nqQPQSWucaY4pUgegk9Y40xxTpA5AJ61xpjmmSB2ATlrjTHNMkToAnbTGmeaYInUAOmmNM80x\nReoAdNIaZ5pjitQB6KQ1zjTHFKkD0ElrnGmOKVIHoJPWONMcU6QOQCetcaY5pkgdgE5a40xz\nTJE6AJ20xpnmmCJ1ADppjTPNMUXqAHTSGmeaY4rUAeikNc40xxSpA9BJa5xpjilSB6CT1jjT\nHFOkDkAnrXGmOS5aJON/MxfGeeH+g5k3X9ZsNZYtl59H+wdr2+m7tf3a1unF6cIdkLNkllbK\nGLxdrB2sL2zOxx7opDXONMcViGSW7+Mcr9ENurO5+81qPC9rm7vr9P7ttW4Lpwt3n/KLvQt9\nLJYXxl5nDU2MMmgSOmmNM81x0SLNOXEC5S4qIglDjLrsbSZ72F/cEm309yM3MLL5xo5FB84W\nxt02ZBI6aY0zzXFVIllRjSeS18Tr7KBI1kveKcrb1QMieTtRJmQfdNIaZ5rj8kWy/n9cpK3/\n7c1FE7+zoEj+HdLtCkzcIdkND4m0diCHNk+IvEP6TwWdtMbRJz0N66GOJpLysMEPp/q/uNGX\nLe8PE9zUensVvdgPDuwO/Q2CIjkdLxW6Q7P2ceBpAzppjTPNcdlnJPuX76ickdRQSgecxm7L\ncb/l9qLWiyqKv3T8jOSs04uSu9BBJ61xpjkuXiRjffdEcuPsf3caL+cSZyNn+VGRtF7k+S6N\nSEtxchQa6KQ1zjTHVYkkL9oeE2l+zVPAT+RjIrkyiP24S6Pc/Z5ITgeqSKL1FuikNc40x4WL\nJALnv49kvG10Lzy7/NOQtZtRi7ZzTnRWKjpd92N2NvAFUnZh7HVyaLcbNVmACjppjTPNcV0i\njdYnG9YXNj4tEBDJvRRbmogPGNj9r2uNGJj91MHep/bczox29/Zu+cmGOpnmuHSRSATQSWuc\naY4pUgegk9Y40xxTpA5AJ61xpjmmSB2ATlrjTHNMkToAnbTGmeaYInUAOmmNM80xReoAdNIa\nZ5pjitQB6KQ1zjTHFKkD0ElrnGmOKVIHoJPWONMcU6QOQCetcaY5pkgdgE5a40xzTJE6AJ20\nxpnmmCJ1ADppjTPNMUXqAHTSGmeaY4rUAeikNc40xxSpA9BJa5xpjilSB6CT1jjTHFOkDkAn\nrXGmOaZIHYBOWuNMc0yROgCdtMaZ5pgidQA6aY0zzTFF6gB00hpnmmOK1AHopDXONMcUqQPQ\nSWucaY4pUgdkP8i1Nyl1XBQJSw25KKpJqeOiSFhqyEVRTUodF0XCUkMuimpS6rgoEpYaclFU\nk1LHRZGw1JCLopqUOi6KhKWGXBTVpNRxUSQsNeSiqCaljosiYUG/Y9kCoTmmSB2ADmELhOaY\nInUAOoQtEJpjitQB6BC2QGiOKVIHoEPYAqE5pkgdgA5hC4TmmCJ1ADqELRCaY4rUAegQtkBo\njilSB6BD2AKhOaZIHYAOYQuE5pgidQA6hC0QmmOK1AHoELZAaI4pUgegQ9gCoTmmSB2ADmEL\nhOaYInUAOoQtEJpjitQB6BC2QGiOKVIHoEPYAqE5pkgdgA5hC4TmmCJ1ADqELRCaY4rUAegQ\ntkBojilSB6BD2AKhOaZIHYAOYQuE5pgidQA6hC0QmmOK1AHoELZAaI4pUgegQ9gCoTmmSB2A\nDmELhOaYInUAOoQtEJpjitQB6BC2QGiOKVIHoEPYAqE5Ll8kI76tP1+WZ5YlpY3xVi1bmo31\nbgOn7/vXZZWxXzXqMPyd3itROrb6d7vwdyIGtgM6hC0QmuNaRDLi++qAGzi7zT3Ac46XVc6S\nut7tw+577k0Mzt+33EruxmtqrTbriP3R+E1E8T7oELZAYIorEMnVwQ/4UZFkB/dFdb37LYZI\n/uKeSN6i1hVFyklginsWaf5JWe/2EVMkMThVJDP67SgSmMAU1yKS9f+DIomWikjKercPIYF/\noihHpP9U0CFsAX1ms7PG6N9FWu+17UC6d/nrTxsiLT2o690+tN7UhwryB5l+5RGBZYWoy2on\nuuLDBgChOa7gjCSy/tgZyfg9uPFW12t9OPsyzj4fOCMZ0f+/n5GCGlGkGITmuA6RjPX9QZGc\nX/NGF8lbL/pY+9VOhppI7qklqUgHTEKHsAVCc9y8SM7CP4uk7Tr6GUlZpEhoQnNcg0humh4S\naW1538w4LdZO3PXafpyXPNn8wYqujFjaFcmIMalu6bvXQIewBUJz3IxI2t2/L9J64WWcTsR6\nsZ+5b683zWJbJLudvVOtqbt6eRgxd6F+ssHfpQo6hC0QmOI6RCL/BjqELRCaY4rUAegQtkBo\njilSB6BD2AKhOaZIHYAOYQuE5pgidQA6hC0QmmOK1AHoELZAaI4pUgegQ9gCoTmmSB2ADmEL\nhOaYInUAOoQtEJpjitQB6BC2QGiOKVIHoEPYAqE5pkgdgA5hC4TmmCJ1ADqELRCaY4rUAegQ\ntkBojilSB6BD2AKhOaZIHYAOYQuE5pgidQA6hC0QmmOK1AHoELZAaI4pUgegQ9gCoTmmSB2A\nDmELhOaYInUAOoQtEJpjitQB6BC2QGiOKVIHoEPYAqE5pkgdgA5hC4TmmCJ1ADqELRCaY4rU\nAegQtkBojilSB2Q/yLU3KXVcFAlLDbkoqkmp46JIWGrIRVFNSh0XRcJSQy6KalLquCgSlhpy\nUVSTUsdFkbDUkIuimpQ6LoqEpYZcFNWk1HFRJCzo92Aq59AcU6QOQCexcg7NMUXqAHQSK+fQ\nHFOkDkAnsXIOzTFF6gB0Eivn0BxTpA5AJ7FyDs0xReoAdBIr59AcU6QOQCexcg7NMUXqAHQS\nK+fQHFOkDkAnsXIOzTFF6gB0Eivn0BxTpA5AJ7FyDs0xReoAdBIr59AcU6QOQCexcg7NMUXq\nAHQSK+fQHFOkDkAnsXIOzTFF6gB0Eivn0BxTpA5AJ7FyDs0xReoAdBIr59AcU6QOQCexcg7N\nMUXqAHQSK+fQHFOkDkAnsXIOzTFF6gB0Eivn0BxTpA5AJ7FyDs0xReoAdBIr59AcU6QOQCex\ncg7NMUXqAHQSK+fQHFOkDkAnsXIOzTFF6gB0Eivn0BzXKpKZv1+QS+uiubMuGX+d3avWh/Ly\nvEt7D/YOvdd2dmWcNmvv7t6d7pbtjPE7VkAnsXL2J/dOpSIZO2fyy/rViuEooylyuzbc6ENZ\nZ+Qe3BdsCfRdiTHamhp7IKOlz+huZ4u+BTqJlROe4LF2kbxAi9/rh0TSZFD60F9+TKSdXd22\nsn8n7IhkV0+RUhOe4LERkfQlL78BkexruM0+nHVPi7TRvybSXTaKhCM8wWOtIs2/ybU7pAJE\nMt5rR0VaK1v+V0WyzmWOSP+poJNYOfqkYlgPdVSRpmXjLjkhde7F56skcc/+byIdfNiwsStv\nqz2R7IFviKSDTmLlhCd4rPSMtHVqcYK/LJtQs38+I3ldGvla6Iwkz2TG6cY4AxFnPIqUmvAE\nj7WKJJ757oukXuD56//l0k64Km0Ii2RtZZ99dkQajdz3NugkVk54gsdaRZq/ykDb13z+xU9A\npN0+tl5+TqSNMVoiOd1QJCjhCR7rFGlN4/rOz+57QM437TrsvrDXh7Nuzb3oQxFJ22xjjGZ+\nzapwfUkO3H/DeAt0EisnPMFj7SKNoU82OC3M8uJDn2xYt1JelgbJBwf31/Y+2WBtNS/pIvmf\nbLDb74BOYuWEJ3isUyTyIOgkVs6hOaZIHYBOYuUcmmOK1AHoJFbOoTmmSB2ATmLlHJpjitQB\n6CRWzqE5pkgdgE5i5RyaY4rUAegkVs6hOaZIHYBOYuUcmmOK1AHoJFbOoTmmSB2ATmLlHJpj\nitQB6CRWzqE5pkgdgE5i5RyaY4rUAegkVs6hOaZIHYBOYuUcmmOK1AHoJFbOoTmmSB2ATmLl\nHJpjitQB6CRWzqE5pkgdgE5i5RyaY4rUAegkVs6hOaZIHYBOYuUcmmOK1AHoJFbOoTmmSB2A\nTmLlHJpjitQB6CRWzqE5pkgdgE5i5RyaY4rUAegkVs6hOaZIHYBOYuUcmmO4SO9muPF4r+Qg\n2Q9y7U1KHdeOSO/DQJFSU0MuimpS6rh2RDLD5+PdkceoIRdFNSl1XDsi8UyUgRpyUVSTUse1\nI9LrcH68O/IYNeSiqCaljmtHpD9z+nu8P/IQNeSiqCaljmv30o4PG5JTQy6KalLquCgSFvQb\nMbVRo0gkA+hg1gZFIiroYNZGlSKd31+G4eWdz+4Sgg5mbdQo0t/9E0KGz+7SgQ5mbdQo0ttw\nffz9dxreHu+VHAQdzNqoUaT5aR2f2iUEHczaoEhEBR3M2qhRJF7aZQAdzNqoUSQ+bMgAOpi1\nUaNIfPydAXQwa6NKkUh60MGsDYpEVNDBrI3qRBoGfmg1B+hg1gZFIiroYNZGdSKRPKCDWRsU\niaigg1kbNYo0X9IZ83iv5CDoYNZGdSKZYeA9UgbQwayN6kT6tDziX2+XDnQwa6M6kUZ+WDUL\n6GDWRo0ikQygg1kbVYo0fdbu9PF4n+Qw6GDWRo0i8dPfGUAHszZqFOnEP4+UHnQwa6NGke4P\nG8586JAQdDBro0aR5r9Efzg93is5CDqYtVGjSOPb6fd6ace/Sj8h6GDWRo0iDQM/3ZAcdDBr\nowORzI37D/Zaa4UZ5Qui3by8rpo3MPai8ZZEr9aetdeN28xtaI/UjKPc1N/W71dstg06mLVR\no0gPYqti5jQuEjnpXF4w9jq7J00+I7Y18lW711Hs2Xvd6cyW3YzOD94AlW29nTnrdkEHszZ6\nFWlZJ2Jlp1vr6EmRtEV1pTsabeziS3hbMUB/JyroYNZGdSI9/idktwM2L3op8+WQL9o/B0XS\ne1VSLk6Pstut0+jutvLV8FXdBDqYtdGXSPb/66v+GUAVafOX+mMiydu1oyJZY1dPKuq2/r2h\nf4f0nwo6mLWhz2IRrIf6Hy/trNts6/8lc0ZLrhlHcSfvnZDUhw3r6/aroqXTxn89JJLx97Cx\nrbczZwC7oINZG9WdkS6cHvtokMylOAdpSd8/Ixn7u3KVZTZfdYai66sMWIx9GfDmGUnpxhMn\nZBI6mLVRo0jmsTOUe1Uz/TKWoTsikrqN14FYv9X9EyI5Yw+IJB+LU6Tk1CjS7+n9kc80KGck\n7/7Eu/gavagZ8f0BkZReFZvlt1HZ2ihFBLdVraVIcalRpOceNjgqyPeRrDuK5etmTpU1myKN\na3/3XuWexevqC/bYVRO3tlV25rwPvQ06mLXRqUij/GSDtZX7zEB0o93em1F92OC1Eztw5bM/\nzKC84Ik0ys9OaNtaO+MnG9JSo0gkA+hg1gZFIiroYNZGlSK9TiuGF/4xinSgg1kbNYr0frs5\nGvhHzROCDmZt1CiSGX6u3375Z5ESgg5mbdQoEv9V8wygg1kbNYr0Orydr3+5Hf/OhoSgg1kb\nNYq0/L12v4/3Sg6CDmZt1CjS/K+a86FdQtDBrI0qRSLpQQezNigSUUEHszaqFOnTjOPPYPi3\n6CcEHczaqFGkz2G4PXCgSelAB7M2ahTpZfi5/P/5O4Q/w0yeBR3M2qhRpMsJ6Xt44RuySUEH\nszZqFMkMf2/D7/Uu6fFeyUHQwayNGkX6uL4Zez0hvT/eKzkIOpi1UaNI4/tgvi8nJnqUEHQw\na6NKkUh60MGsDYpEVNDBrI06Rfp8HYbxxM+sJgQdzNqoUaTzy/Q3CA23P99HkoAOZm3UKNLb\n8H59D+mLfx4pIehg1kaNIl3fiJ3/J4lAB7M2KBJRQQezNmoU6X5p986/RSgh6GDWRo0inec/\nas4/IpuOGnJRVJNSx7X7+Ptj+qPm58c7JUepIRdFNSl1XHxDFksNuSiqSanjokhYashFUU1K\nHde2SOeP0+UG6fXz8S7JcWrIRVFNSh3Xpkjf90cNg+EHGxJSQy6KalLquLZE+huGt+uH7H5e\nh4FPG9JRQy6KalLquLZEWt89euMf7EsI+n2Z3Ijy2xfJDPO7R3/Xv7eBJAId7NyI8tsXyfpc\nED8ilBB0sHMjyqdIJA7oYOdGlE+RSBzQwc6NKJ8ikTigg50bUX4PIlk83is5CDrYuRHlUyQS\nB3SwcyPKb18kkgd0sHMjyqdIJA7oYOdGlE+RSBzQwc6NKJ8ikTigg50bUT5FInFABzs3onyK\nROKADnZuRPkUicQBHezciPK7EGl+/8jwHxpLBzrYuRHlty+S4RuyWUAHOzei/PZF+rQ84l/b\nkA50sHMjym9fpJEfVs0COti5EeV3IRLJADrYuRHl9yHS67RieOFfWZwOdLBzI8rvQqT327Xd\nwL9EPyHoYOdGlN+FSOb2T/X98l4pIehg50aU34VIs0AUKSHoYOdGlN+FSK/D23kcz+/8py8T\ngg52bkT5XYj0N//7SPxnzdOBDnZuRPldiHQ5GU3/PhIf2iUEHezciPL7EImkBx3s3IjyKRKJ\nAzrYuRHldyFS2R9aNet3s/xkLd2wt7U3M8bZYJwXl9XOBuu+NvuwO3J72gcd7NyI8ikSnHtE\nzV0k35X1m5m/WZutm1ibOeusH1yRtD7MKNce/LMn6GDnRpTfhUg3/k4fj3eaASHS6sr9Zeub\n/aJ1+lij7p3PRnUDuavRE8k9TR4BHezciPI7Emk8D0WaZO6/9yOKNEYTSfa0DTrYuRHl9yRS\noZ9skCLN11O+SNb/62aj44m4mxq9HwJ92LvxG9/4TwUd7Nzos9AE66HWhfkaDv5yzUtIJPc5\nwL5I9wZrM/Um6qhIt/Z82KAiyu/ijLQ8ayjyn740GxZ5pxb3sszaxsv49j2SEEn2YWRz3iNt\nIcrvSSRTpEeKSKPRRZrPDM5m42MijeImTDyls3ah9rQNOti5EeV3IVLZHBdp3XxLJGN16e7C\nWt4TSTanSFuI8ikSHP+uZRyNItKabWez0RHJuZcaZVPrB7UPTx+vp23Qwc6NKL99kYr/95E0\nkbQzkiKScmmnfh5hT6RRF4mfbAggyqdIJA7oYOdGlN++SFdeT3/XTza8Pt4pOQo62LkR5Xch\n0utwvq2mSelABzs3ovwuRLpf0p15aZcQdLBzI8rvQqTTcLu04xkpIehg50aU34VIy9/ZwD9r\nng50sHMjyu9CpPvf2fBxfrxTchR0sHMjyu9DJJIedLBzI8qnSCQO6GDnRpTfh0j3v46Ll3YJ\nQQc7N6L8LkTiw4YMoIOdG1F+FyK9zY+/+a9RpAMd7NyI8rsQiX+JfgbQwc6NKJ8ikTigg50b\nUX4XIvHSLgPoYOdGlN+FSHzYkAF0sHMjyu9CJD7+zgA62LkR5fchEkkPOti5EeV3IdKJ90bp\nQQc7N6L8LkQyPEOlBx3s3IjyuxDp98R/rC856GDnRpTfhUj8y08ygA52bkT5FInEAR3s3Ijy\nuxCJZNPjLAEAABQZSURBVAAd7NyI8ikSiQM62LkR5Xcg0u9pGN74sCE16GDnRpTfvki/t7uj\n38c7JI9QQy6KalLquLZEerv+q0hv/LxqamrIRVFNSh3XlkjTo7pzmf9YX0vUkIuimpQ6rl2R\n+EeRklNDLopqUuq4KBKWGnJRVJNSx0WRsNSQi6KalDouioSlhlwU1aTUcW2LxH9oLAfo93Xy\noZZPkUgc0PHOh1p++yKRPKDjnQ+1fIpE4oCOdz7U8ikSiQM63vlQy6dIJA7oeOdDLZ8ikTig\n450PtXyKROKAjnc+1PIpEokDOt75UMunSCQO6HjnQy2fIpE4oOOdD7V8ikTigI53PtTyKRKJ\nAzre+VDLp0gkDuh450MtnyKROKDjnQ+1fIpE4oCOdz7U8ikSiQM63vlQy6dIJA7oeOdDLZ8i\nkTig450PtXyKROKAjnc+1PIpEokDOt75UMunSCQO6HjnQy2fIpE4oOOdD7V8ikTigI53PtTy\nKRKJAzre+VDLp0gkDuh450MtnyKROKDjnQ+1fIpE4oCOdz7U8ikSiQM63vlQy6dIBWBurEtm\nXW9vMy+KRkqrubt543HdTtnpsonTkd77Juh450MtnyIVgJVka80cY+vr/TXjNhrdjFt9mLml\ntZmro+uas3u9903Q8c6HWj5FKoCdJI+eNUIku5XT2yzSsrVvkPuC0fr0et8EHe98qOVTpALY\nS7Kf5X8VaWunG7unSBK1fIpUAPLqa1cks7Op1dsq0rz1gyKt91xyuP+poOOdD73+hlgPdW0i\naQ8bHhFp/2GDLZK32eiI5D5X0B6AbIKOdz7U8nlGKgBxSnAfCgiRjFynn5GczYxs4PSv736r\n903Q8c6HWj5FKgB5beXmWYg0nx4Cl3bOnZF5RCR5/qNIArV8ilQAepLtwCtbJBbJv3EKgI53\nPtTyKVIBaPf9o/4+0mqDtakmkvuIwboXEj6tuxNN5coQ6HjnQy2fIhWA/4TBLOvtbZwNtj/Z\nsPbhqWl3KAYgmo78ZMMWavkUicQBHe98qOVTJBIHdLzzoZZPkUgc0PHOh1o+RSJxQMc7H2r5\nFInEAR3vfKjlUyQSB3S886GWT5FIHNDxzodaPkUicUDHOx9q+RSJxAEd73yo5VMkEgd0vPOh\nlk+RSBzQ8c6HWj5FInFAxzsfavkUicQBHe98qOVTJBIHdLzzoZZPkUgc0PHOh1o+RSJxQMc7\nH2r5FInEAR3vfKjlUyQSB3S886GWT5FIHNDxzodaPkUicUDHOx9q+RSJxAEd73yo5VMkEgd0\nvPOhlk+RSBzQ8c6HWj5FInFAxzsfavkUicQBHe98qOVTJBIHdLzzoZZPkUgcashFUU1KHRdF\nwlJDLopqUuq4KBKWGnJRVJNSx0WRsNSQi6KalDouioSlhlwU1aTUcVEkLDXkoqgmpY6LImGp\nIRdFNSl1XBQJC/rdnRzslE+RSBzQIc/BTvkUicQBHfIc7JRPkUgc0CHPwU75FInEAR3yHOyU\nT5FIHNAhz8FO+RSJxAEd8hzslE+RSBzQIc/BTvkUicQBHfIc7JRPkUgc0CHPwU75FInEAR3y\nHOyUT5FIHNAhz8FO+RSJxAEd8hzslE+RSBzQIc/BTvkUicQBHfIc7JRPkUgc0CHPwU75FInE\nAR3yHOyUT5FIHNAhz8FO+RSJxAEd8hzslE+RSBzQIc/BTvkUicQBHfIc7JRPkUgc0CHPwU75\nFInEAR3yHOyUT5FIHNAhz8FO+RSJxAEd8hzslE+RSBzQIc/BTvkUicQBHfIc7JRPkUgc0CHP\nwU75FInEAR3yHOyUT5GOY5bvtyVz4f7N3JfndevapZ39delqXBsq+5n7spZED36ndofqejli\nuy5lQEZuvQU65DnYKZ8iHccVScTt9s0sX610mrXRaIzoav66xtTYeogvYo9+p86Sul4UI3r2\nBuQ13AId8hzslE+RHmAJ1VbQrG9bIjlWyI1GdRO/83GrU7dDdb23pI1C7pUiTeyUT5EewBbJ\n6K+M1ibO4q5IoxtxI1f4uwqINP+krPc7VXWmSAo75VOkRzDr/w+KJFruiLRsqd4heWc9t1Mp\nkj7ajV0fFek/FXTIc6BX3hzroS5BJPdhw45It608ke4vaUtKx/aolg7V9c6InUXR3n7EwDPS\nxE75PCM9wqNnJOP85J8hlHOBDK63ZEQTp1O3Q3W9t7QxCl7a+eyUT5EeYuuuY+vSbtl6/u1u\nrF70CItHzXsi+Z36Innr7SX3ZEiRQuyUT5EewnoQoAXN+iZEGu2FXZHECu/0tXFGekqkvVFQ\nJJ+d8inSY6y5OvY+0m1xzaextnO7czq6brkqa9xXnK5Ep06H6nq3G9nzxoAo0sRO+RTpMexc\n2Z8VWF6Xt+dGy7y7/XKVJToMfLJB7/TIJxucEayXiF57WfAu6JDnYKd8ikTigA55DnbKp0gk\nDuiQ52CnfIpE4oAOeQ52yqdIJA7okOdgp3yKROKADnkOdsqnSCQO6JDnYKd8ikTigA55DnbK\np0gkDuiQ52CnfIpE4oAOeQ52yqdIJA7okOdgp3yKROKADnkOdsqnSCQO6JDnYKd8ikTigA55\nDnbKp0gkDuiQ52CnfIpE4oAOeQ52yqdIJA7okOdgp3yKROKADnkOdsqnSCQO6JDnYKd8ikTi\ngA55DnbKp0gkDuiQ52CnfIpE4oAOeQ52yqdIJA7okOdgp3yKROKADnkOdsqnSCQO6JDnYKd8\nikTigA55DnbKp0gkDuiQ52CnfIpE4lBDLopqUuq4KBKWGnJRVJNSx0WRsNSQi6KalDouioSl\nhlwU1aTUcVEkLDXkoqgmpY6LImGpIRdFNSl1XBQJSw25KKpJqeOiSFhqyEVRTUodF0XCgn6z\nNC3B8ikSiQM66mkJlk+RSBzQUU9LsHyKROKAjnpaguVTJBIHdNTTEiyfIpE4oKOelmD5FInE\nAR31tATLp0gkDuiopyVYPkUicUBHPS3B8ikSiQM66mkJlk+RSBzQUU9LsHyKROKAjnpaguVT\nJBIHdNTTEiyfIpE4oKOelmD5FInEAR31tATLp0gkDuiopyVYPkUicUBHPS3B8ikSiQM66mkJ\nlk+RSBzQUU9LsHyKROKAjnpaguVTJBIHdNTTEiyfIpE4oKOelmD5FInEAR31tATLp0gkDuio\npyVYPkUicUBHPS3B8ikSiQM66mkJlk+RSBzQUU9LsHyKROKAjnpaguVTpOiYG/cf7LXWCjPK\nF9x2yybWqvUlq9Hykttc2WDdxeUl4/btj85Y/TnD2gId9bQEy6dI0bGja5YEz6uceC8vmNHx\nxG3iyWc3Wvpzdqtt4Axv2aH7xRJJFBQ0CR31tISqp0jxUUVa1olUWhu7UTUy57ZIdqN5C/u8\npW7gNDaKNNqSsvcN0FFPS6B4ipQARSTx690LqTwHuK/JKLuNFJH0DZzWmirjrkgh0FFPS7B8\nihQdcZIRJxvlqslf7b62L9K8g02RVHfNqNwhbYgk75D+U0FHPS16zY2yHupSHjaoIhlfkSXY\nxtlSLEQW6T7W0V6yRHKfmYSfNqCjnpZQ9TwjxWf3Kko8Vzh0RgqIZOkie/I1EyLJJe2M5G2n\ng456WgLFU6QEuBdF0+9yeZ55SKRNoZZGJiCSchKkSI8RKJ4iJUDLrAyolENc/8mXxJJsJEXS\nN5CD8qTZEMkbhw466mkJFE+REqCdQeT7SOtrZvmqiyRPZmojY9yO1Q1kt9aY1tOkHKf76h7o\nqKclVD1Fio9+KSY+O2Bb4b1nKprZD9fkZw2sU8iBTzasS24v2mcc+MkGm2D5FInEAR31tATL\np0gkDuiopyVYPkUicUBHPS3B8ikSiQM66mkJlk+RSBzQUU9LsHyKROKAjnpaguVTJBIHdNTT\nEiyfIpE4oKOelmD5FInEAR31tATLp0gkDuiopyVYPkUicUBHPS3B8ikSiQM66mkJlk+RSBzQ\nUU9LsHyKROKAjnpaguVTJBIHdNTTEiyfIpE4oKOelmD5FInEAR31tATLp0gkDuiopyVYPkUi\ncUBHPS3B8ikSiQM66mkJlk+RSBzQUU9LsHyKROKAjnpaguVTJBIHdNTTEiyfIpE4oKOelmD5\nFInEAR31tATLp0gkDuiopyVYPkUicaghF0U1KXVcFAlLDbkoqkmp46JIWGrIRVFNSh0XRcJS\nQy6KalLquCgSlhpyUVSTUsdFkbDUkIuimpQ6LoqEpYZcFNWk1HFRJCw15KKoJqWOiyJhQb9l\nmpID5VMkEgd02FNyoHyKROKADntKDpRPkUgc0GFPyYHyKRKJAzrsKTlQPkUicUCHPSUHyqdI\nJA7osKfkQPkUicQBHfaUHCifIpE4oMOekgPlUyQSB3TYU3KgfIpE4oAOe0oOlE+RSBzQYU/J\ngfIpEokDOuwpOVA+RSJxQIc9JQfKp0gkDuiwp+RA+RSJxAEd9pQcKJ8ikTigw56SA+VTJBIH\ndNhTcqB8ikTigA57Sg6UT5FIHNBhT8mB8ikSiQM67Ck5UD5FInFAhz0lB8qnSCQO6LCn5ED5\nFInEAR32lBwonyKROKDDnpID5VMkEgd02FNyoHyKROKADntKDpRPkUgc0GFPyYHyKRKJAzrs\nKTlQPkWSmBv3H+y11gozyhfcduv27qrbT8bux+1R2bvTj+jMrCu8ATntb7tyx6hs6w5cKWIb\ndNhTEiyeIvnYIZ5zuobYyebygrHXWa1HO/yOO8aM9ibSB3vvxurP90a2N/Y6424gbFC29Xc0\nukVsgw57SkK1jxTJRxVpWSdCZW38oEjqJlsieecvmfNAe12GrW2dHSknYR102FMSKP0KRZJs\nx2te9DImkjeKvIdF0lPriSQ79ockBrF1It3dVr4avqqbQIc9JQfKp0gScZLxL3PkRY+/esrl\ner2nizT3rPYo9u7ftNl7M844nK7WfchXN7b17w79O6T/VNBhT4lecbOshzrSwwZVJGNnzFoQ\nzxpG/9JOPGxYloxIrb5349yJOc8N9LPH2n691VMfpIgq7ztytw0/bUCHPSWh2keekXxkKsUZ\nwxFr/9JOijSKre8+6T1qe7d+8PcmV6/t5alxZ9uNcvzGPuiwpyRQ+hWKJFHODjJykUS6nSk2\netT2/phITvuASPKxOEVyCJR+hSJJlHOCpYL43W058k8iKYLYZyS5/02RtJF6ZQS39c6D3h4V\n0GFPSaD0KxRJ4p0c5qsjodTtu1m+PiHSaIx8Vdm7tv9tkZw9z+3Fup1tvR2NzttNO6DDnpJQ\n7SNF8tFEGv1PFixb+Xf8zvb+Zwd2zzG6SG5/0wca9IcN65aeSKNopG7r7UgWsQ067CkJFk+R\nSCzQYU/JgfIpEokDOuwpOVA+RSJxQIc9JQfKp0gkDuiwp+RA+RSJxAEd9pQcKJ8ikTigw56S\nA+VTJBIHdNhTcqB8ikTigA57Sg6UT5FIHNBhT8mB8ikSiQM67Ck5UD5FInFAhz0lB8qnSCQO\n6LCn5ED5FInEAR32lBwonyKROKDDnpID5VMkEgd02FNyoHyKROKADntKDpRPkUgc0GFPyYHy\nKRKJAzrsKTlQPkUicUCHPSUHyqdIJA7osKfkQPkUicQBHfaUHCifIpE4oMOekgPlUyQSB3TY\nU3KgfIpE4oAOe0oOlE+RSBzQYU/JgfIpEokDOuwpOVA+RSJxqCEXRTUpdVwUCUsNuSiqSanj\nokhYashFUU1KHRdFwlJDLopqUuq4KBKWGnJRVJNSx0WRsNSQi6KalDouioSlhlwU1aTUcVEk\nLDXkoqgmpY6LImGpIRdFNSl1XBQJSw25KKpJqeOiSIREhiIREgGKREgEKBIhEaBIhESAIhES\nAYpESAQoEiERoEiERIAiERIBikRIBChSbsyFJP06vW99/8d9BHqPspcsO5k6irkXipQZs3yJ\n3O/asdn+/o/7CPQeZS9ZdjL1YQ7s7TAUKTOJRDJWxxTp2H4oUs2kOiPlEGneT/q9pN/JvSeK\nVCsUqYydUKTKqV2kqOnb2EXcuxd9H2PkUihSZijSwb0k3cnSCUWqlcpFyqdrWpFuUKR6qVsk\n4+wq6cmispMrRcpM1SIZd1cUaYUi5abiTzbM10P8ZIMPRSIkAhSJkAhQJEIiQJEIiQBFIiQC\nFImQCFAkQiJAkYjCsGCv/TRiI+ul0zCcPg/0PPVxbfmZ5N00GBSJKOgiuT9ZP/693DY2fwd6\nvn8Z2opeW9WQiPhJ3xTpZTj9jOPPaQifZZZGFIn0wZL0v7dhePu7naYuP/68Xk497/YG38Pp\ntnAaPufVctO/12np1sfl/+vCeXi5bnr/VjcUiWwwe3I201Xb+S7B9+0q7t0S6XX4uS1MRq0i\n2Zua25Ij0vg+fF82/Ro+8lcXG4pENpg9eb/acVrMeRm+xvHXuctZr9LW1dev9qan8/h5vfJz\n7pF+p1PZ4mHNUCSywazHy3C5rPu7Xn7d1/x9f5wOiWRv+me/uiy8Dr+XpRae31EkssGsxyrG\nbek0P87TRHpxRBKb+iL9Dq+XC8C3XCUlhCKRDTZEehtePr//HJGWa7Of9dbp+lVu6ot0Pd3d\nbpRqhyKRDTYu7aYvZ0ekr+lW5/T6dxrO99WrPuddkb6Hd9NEBpsogqRg42HDcDn9nN17pNv7\nSNd3Zb8uP5jL13kDd1NFpEvT+dl53VAksoH3+Pv6EPvqlXePNP6Z+8rrJd60wcf1RbnpbclY\nC9Mj8i9AcdGhSGQD7w3Z2/Pry53P5fwjP+TzeT2zfL9Nzw0uF2sf8/2Us+n0EbtZpM/7w7rb\nA73qoUgkIuffR1v8tPCxhpEiETCnJp7ZUSQCZWjkUQNFIlDM8IoeQiQoEiERoEiERIAiERIB\nikRIBCgSIRGgSIREgCIREgGKREgEKBIhEfg/tcWkS9lqC5YAAAAASUVORK5CYII=",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {
      "image/png": {
       "height": 420,
       "width": 420
      }
     },
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Top Products by Quantity Sold\n",
    "top_selling_products <- data %>%\n",
    "  group_by(description) %>%\n",
    "  summarize(total_quantity = sum(quantity)) %>%\n",
    "  arrange(desc(total_quantity)) %>%\n",
    "  slice_head(n = 10)\n",
    "\n",
    "# Plot Top Selling Products\n",
    "ggplot(top_selling_products, aes(x = reorder(description, total_quantity), y = total_quantity)) +\n",
    "  geom_bar(stat = \"identity\", fill = \"lightblue\") +\n",
    "  coord_flip() +\n",
    "  labs(title = \"Top 10 Products by Quantity Sold\", x = \"Product Description\", y = \"Total Quantity\") +\n",
    "  theme_minimal()\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 28,
   "id": "fb286e68-feef-42f1-b79d-a7ca8decad09",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAANlBMVEUAAAAAAP9NTU1oaGh8\nfHyMjIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enr6+vw8PD///+kWpIAAAAACXBIWXMA\nABJ0AAASdAHeZh94AAAgAElEQVR4nO2di3qiMBBG0dra+9b3f9kVr1xCIJBJZpJzvm+71qo/\ng3Mkidg2JwDYTJN7AwBKAJEAIoBIABFAJIAIIBJABBAJIAKIBBABRAKIACIBRACRACIgJNLX\n275pXo5/o7i5vKbD0jDnLf13f/50eUyfv7dzgc8HubB/+1n3YGAeGZFe7y58DeOKEakt8fB8\nkDvHdY8G1hER6aPZtwb9fjTN4CV6WdsGNncWkXql3R6kLfh93cOBcURE2je/1wsfzdsgriCR\nXN/8NM1oOAs1ICLSsE2PL+dh0Pfz++/D+fvrqO/nrZ1afE/c/9yWL81r7x7nnx33zcv13l+H\nZv9+vfnwgc5Xvu8v9/m7z2X+upOawaWf86TuNsW5XdP+98g/DW40GHs+Lx6vh6R7xa5sKBER\nkQ79qcL+OV+6dNznczrx7ZxLdUR6vdyuc49zgz7ucbxcemtvPnqg863v9znerv18jruGIn01\ng228i/TamfZ0bjQp0s/Fu2fFjmwoERGRftsX7s/7HOL90kPvl6l523E/l9fqn0PbYi/N56nt\nsv7LdUekQztS6t7jfNz5Pv29to92Hked7/21b28+eqDz7a4//Dn93q493EecI5HOj/T+d/o7\nq/c7EOnwHKn1bjQxtLte7FTsyIYSkVm1+70u271eXo1frtOGS7O1X47X7//a1273DKUj0mWs\n1r/H1+Xi5YE+LlfvG8cDXSRru//YrrBd7/PS+WlvcfB4O+y8tf/3ROoMOns38orUrXicDSUi\n9Ybs39f74blA/HP57nRvs2cLv7aHrtFrdUeky3/de3Ta/Nav5wdxPNB91t928HW81R1dDUR6\nuR0vLsePnkidR+zdyCtSt+JxNpSI6JkN34dL/3zsHx177c5nC/9efvTyMdiogUiNW6T7zQ6u\nB7r/8HZY+OmPrgZDu17glEj9rZoUad+veJwNJSIh0rOt/tq2+jgfmI6fvx2Rujf+ems77t39\nAJ2ePo2v6rkyfKDeD9vDQm90JSbSd3sA6lY8zoYSkRDp0F07a4dEz5Xv9st++C7tz9vlZbyz\nUQORuvcYt/nf812czgM9hnbNdZN+e6OrgUjxhnbHdmrWrXicDSUiIdJz7eyznSQ9FphP18tv\n13dpf55n2AyXCoYide/RafPXq18fznXo5roS8X1N+WqOvdHVQKTj7Y3j22LD3317e9vVu9GE\nSD8Xk7sVj7OhRETmSIdm/3luxt9jc13i/rgvUt+Wv9tO/Nk/l7+PnTc9T6exSN17dET6uKxw\nfzbP5e/OAzWXZbvP/W3d7WXfG10NRDqPwo7Xle3LfOb177a9PVt6N3KK1J4i1OrbrXicDSUi\nItLv4b44cFlruH/zfeu4r+fbq7f3Uff9F+yhSN17dKdN15j39vLogS7XN4+3U7/687CBSL03\nZK8PdXRM5zo3Gop05xLXrXicDSUitGr39Xr5GMV1avPRvj/7/fV83+i3PcnnusD2fTmzZzDw\nGYnUuUdv/eHzeYrQ8IGa6ylC9/eB/pqmvzg+uNQ5Rej0/XJ/1MGQs3sjl0j3grsVj7OhRESX\nvxXxkXF0lTMbElGJSD/75nv+VuVlQyqqEKkzV6oqG9JRhUgvo3Mn6siGdFQhEoA0iAQQAUQC\niAAiAUQAkQAigEgAEUAkgAggEkAEEAkgArZF+lddMCUrDUYkW8GUrDQYkWwFU7LSYESyFUzJ\nSoMRyVYwJSsNRiRbwZSsNBiRbAVTstJgRLIVTMlKgxHJVjAlKw1GJFvBlKw0GJFsBVOy0mBE\nshVMyUqDEclWMCUrDUYkW8GUrDQYkWwFU7LSYESyFUzJSoMRyVYwJSsNRiRbwZSsNBiRbAVT\nstJgRLIVTMlKgxHJVjAlKw1GJFvBlKw0GJFsBVOy0mBEshVMyUqDEclWMCUrDUYkW8GUrDQY\nkWwFU7LSYESyFUzJSoMRyVYwJSsNRiRbwZSsNBiRbAVTstJgRLIVTMlKgxFJZfBut8uUPAki\neUEkjcG73aRJpZasMRmRrAcjkopkRLIevJs2qdSSNSYjkvHgHSKpSEYk48E7j0mFlqwyGZGM\nByOSjmREsh2823lMKrNkncmIZDv4ohAi5U9GJNvBV4UmTCqzZJ3JiGQ6eIdISpIRyXTwXSC3\nSUWWrDQZkUwHI5KWZESyHPz0B5EyJyOS5eCnPs5DUokla01GJMvBiKQmGZEMB3ftcZlUYMlq\nkxHJcHDXHUTKm4xIdoP77jhMKq9kvcmIZDe4bw4iZU1GJLvBA3PGJpVXst5kRDIbPBQHkXIm\nI5LZ4JE3I5OKK1lxMiKZDUYkTcmIZDXYsbiASDZKRiRNwY73jYZulVay5mREshqMSKqSEclo\nsPPkusGVhZWsOhmRjAY7PzeBSCZKRiRFwe4Pl/dNKqxk1cmIZDN44rc0IJKFYETSEzzxC7j6\nJpVVsu5kRLIZjEjKkhHJZPDEyG7wk6JKVp6MSCaDJz1CJAPBiKQmeFqkrklFlaw8GZEsBk+P\n7BDJQDAiaQn2eNT9YUkla09GJIvBsyLtpJKXgUheEElJsG9kh0j6gxFJSbDXo45JBZWsPhmR\nDAYjkr5kRLIX7B/ZdW5QTsn6kxHJXvCcR4ikPBiRdATPinQ3qZyS9Scjkrng2ZEdIikPRiQV\nwfMe3U0qpmQDyZlF+gfBtI4suc3sjSApoiIlxMRr1QIWjOxutyqmZAvJDO2sBS/y6KpbKSVb\nSEYka8GIpDIZkYwFLxvZLb+dCIjkBZEUBC/1A5H0BiNS/uDlfuQ0CZG8IFL+4OV2IJLaYETK\nHxxgR0aTEMkLImUPDpEDkbQGI1L24CA38pmESF4QKXswImlNRiRLwYFqZDMJkbwgUu7gQDEQ\nSWcwIuUODhTjHyKpDEakzMGhR5h/uQ5JiOQFkTIHh2qBSDqDESlzcLBIuWZJiOQFkfIGB1uB\nSDqDESlvcLAU/3It3CGSF0TKG4xIipMRyUxwuBP/Vt0rAojkBZGyBocbgUg6gxEpa/A6kbKY\nhEheECln8AohEElnMCLlDF7hw7+1d9wKInlBpJzBm0RKbBIieUGkjMFrdEAkncGIlDF4jQ3/\nnndNaxIieUGkjMGIpDsZkWwEr5LhnpzcJETygkj5glepgEg6gxEpX/AmkZKbhEheEClb8DoT\nEElnMCJlC14nwjM5sUmI5AWRsgUjkvZkRLIQvNKDTnJakxDJCyLlCl5pASLpDEakXMHbRUp7\n6ioieUGkTMFrDydDkZKZhEheEClT8FoHEElnMCLlCV7tQC85pUmI5AWR8gSvNgCRdAYjUp7g\nOCKlNAmRvCBSluD1AiCSzmBEWsPm9l3/AIOS05mESF4QaQW7ze2LSBaSEUmY3VaTNtx9WHIy\nkxDJCyKtYLfVpA13RiSdwYi0gt1WkyKKlOw8IUTygkgr2G00aYuETpFSmIRIXhApnGvrbjBp\nS+sjks5gRArn1rnrTYoqUiqTEMkLIoVzb9y1Jm3qfETSGYxI4Twad6VJmxrfUXIakxDJCyKF\n8+zbdSYhkpFkRBKl27drTNrW966Sk5iESF4QKZi2a/91vwls4m1dj0g6gxEpmJ5IK0yKL1IS\nkxDJCyIF0xcp2KSNTY9IOoMRKZiBSKEmbex5d8mIlDsYkULZDUUKNElMJGGTEMkLIoVyaVnH\n51QX9vHWlp8oGZEyByNSKA6RQkza2vFTJYubhEheECkUl0gBJkmKJGoSInlBpFCcIi02aXO/\nT5aMSFmDESmQnVukpSZtbvfpkoVNQiQviBTItV2nznib7WRhkQRNQiQviBTIpEiLTNre7J6S\nESljMCIFMi3SEpO297qvZFGTEMkLIgXiEWmBSfIiiZmESF4QKYydT6RZkyJ0urdkRMoWjEhh\n3FrV+27OdC9HaHR/yYImIZIXRApjRqQZkxDJVDIiyTEnktekGHOYmZLlTEIkL4gUxqxIPpNi\ndPkCkWRMQiQviBTEbl6kaZOiNPlcyYiUJxiRgri36ezamaubo/T4bMlSJiGSF0QKYpFIUyal\nE0nCJETygkhBLBPJbVKcDp8vGZFyBCNSEAtFcpoUp8EXlCxjEiJ5QaQQdktFcpmUVKT4JiGS\nF0QK4dGhywZYvXaO1N5LSkak9MGIFEKASCOTInX3opIlTEIkL4gUQohIQ5NSixTbJETygkgh\nBInUNylWby8rGZFSByNSALswkXomxWrthSXHNwmRvCBSAM/uDGjnzh8li7ENIckx8kKDBUAk\ncbSL9DQpWmOHJMfICw6ODyKJo16kh0nR+jooOUpiaHB0EEkc/SLdTcojUkyTEMkLIgWwRqSb\nSelFin1IQiQviLSc3SqRTlE9ClU4TmhgcGQQSZz0Iq0JzilSPJMQyQsiLWetSEF/P2mO0GNh\nnNTA4LggkjhGRIrZ0cHHwki5iOQHkZazXqSIhA8qcwRHBZHESbqLd/ZEynYojAoiiZNcpCzB\nPbINKs2UnCcYkRaDSJlAJHEQaZYM7wTHBpHEQaRZkp8tGx9EEiflLt7ZFCn15zcEQCRxUouU\nJbhPeHIkkyyVnCEYkZZiWqREv75IBkQSB5GWgEgJghFpKXZFSvRLx8VAJHES7uKdcZHE/56M\nHIgkTmKRsgQPWJWMSOLBiLQQ0yLJ//FaSRBJHERaSITBnbWSEwcj0kJsixThkGSu5LTBiLSM\nnXGRtptkr+SkwYi0jEEf2uuqzYM7eyUnDUakZZgXafMhyWDJKYMRaRn2RdpqksWSEwYj0jIK\nEWmDSRZLThiMSIsYNqHJrkIkwWBEWsSwB2121SaTbJacLBiRFlGOSKtNsllysmBEWkQZIm06\nJBktOVUwIi2iEJG2mGS15ETBiLSE0ZjIaldtGNxZLTlR8CKR9hNXn+n+n56UImUJHrMxGZGE\ngpeINKHJ/vZl//gmOYgUzGqT7JacJHiBSPuRJfvnV0RKDCLpDA4Y2j1HcA6R8oBI4aw1yXDJ\nKYKXi9Q58AxF6s+R/hXHZYqeeyNiUVQxudki0v5K94pT4UO78Yu45ZfnlYckyyUnCA4Qaf8Y\n29U2RypLpJUmmS5ZPjjwiNT5HpGyEEmkcJNMlywfjEgLKEykdYck2yWLB69abOhfW7xIjldw\n4121xiTjJUsHr1r+vl9dyZkNjrYz3lVrBnfGS5YO5ly7ecoTac0hyXrJwsGINE+BIl2PSUEu\nmS9ZNhiR5ilXpBCXzJcsG4xIs7j6zX5X7UJVsl+yaDAizeJqtgK6arcLc6mAkiWDEWmWQkU6\nBbpURsliwYg0S7kinUJcKqZkmWBEmqVokfoq+VwqqGSJYESaw9lgZXXVIpfKKjl6MCLN4Wyu\n4rpqXqXiSo4bjEhz1CHSadalEkuOGIxIc1Qj0snvUqElxwpGpDlqEunkcanckqMEI9IM7pFO\nyV01sfRQcskRghFpBveMofCucrlUeMlbgxFphipFOjmGeOWXvCkYkWaoVaTT0KUqSl4fjEgz\nVCzSKfzMVhEQSZxEM+8cwVMkT85vEiKJk0akLMFTZEjObRIiiYNIiUCkORDJDyLdQCQ/iOQH\nkW4gkh9E8sIZnHcQyQ8ieZlqnzpFymQSIomDSOlAJC+I5AWRHiCSF0TygkgPEMkLIvmYnBgg\nUkIQSZwUImUJniarSHlMQiRxEClhMCL5QCQfiNQJRiQfiOQDkTrBiOQDkTxMTwsQKWVyltTA\nYETyMN06tYqUxSREEgeRUgYjkgdE8oBIvWBE8oBIHhCpF4xIHhDJAyL1ghHJAyJN45ldVytS\nDpMQSRx5kbIE+8jZVYg0DSJNg0iDYESaBpGmQaRBMCJNg0jTINIgGJGmQaRJfHPrekXKYBIi\niSMuUpZgL1m7CpEmQaRJEGkUjEiTINIkiDQKRqRJEGkSRBoFI9IkiDSFd2ZdsUjpTUIkcaRF\nyhLsJ29XIdIUiDQFIjmCEWkKRJoCkRzBiDQFIk2BSI5gRJoCkSbwz6trFim5SYgkjrBIWYJn\nyNxViDQBIk2ASM5gRJoAkSZAJGcwIk2ASBMgkjMYkSZAJDczs+qqRUptEiKJIytSluA5cncV\nIrlBJDeINBGMSG4QyQ0iTQQjkhtEcoNIE8GI5AaRnMzNqREpfXJ6EGkzc+1St0iJTcpd8iIQ\nyQkiTQYjkhNEcoJIk8GI5ASRnCDSZDAiOUEkF7MTAUTKkJwcRNrKbLNULlJak7KXvAREcoFI\nnmBEcoFILhDJE4xILhDJBSJ5ghHJBSI5mJ8GIFKO5NQg0kbmW6V2kZKalL/kBSCSA0TyBiOS\nA0RygEjeYERygEgOEMkbjEgOEGnMgkkAImVJTgwibWNBo1QvUkqTFJQ8DyKNQaSZYEQag0hj\nEGkmGJHGINIYRJoJRqQxiDRiyRQAkfIkpwWRNrGkTRApoUkaSp4FkUYg0mwwIo1ApBGINBuM\nSCMQaQQizQYj0ghEGrJoAoBIiNQHkYYsahJESmiSipLnQKQhiLQgGJGGINIQRFoQjEhDEGkI\nIi0IRqQhiDRg2fAfkRCpDyINWNYiiJTQJB0lz4BIAxBpUTAiDUCkAYi0KBiRBiDSAERaFIxI\nAxCpz8LBPyIhUh9E6rOwQRApoUlKSvaDSH0QaWEwIvVBpD6ItDAYkfqMRPp4bZrT4Sfi5giC\nSNmCEanPQKS/l+bMqWm+o26RFNF38dKhPyIhUp+BSG/N8WzR6bM5RN0iKUREyhK8GC1dlXC1\nQUvJXgYinSV6/DMAIuULRqQeiNQDkRYHI1IP99Du2LxF3SIpEClfMCL1GC427JsL+9+oWyRF\n7F28eOCPSIjUZzSEe39pmpfjX8TNEURCpCzBy1HTVelWG9SU7MPGXGgKRMoYjEhdEKkLIgUE\nI1KX0ardnahbJAUiZQxGpC6I1GH5sB+REKmPU5jfw3ukTRFGQKQswQHo6apkqw16SvbgPvL8\nNTZMQqScwYjUYWIIV+/QLktwAIq6CpE6uIX5bPZxNkUYRMoZjEgdphYbjhvizdJ2Ru5tMAS7\nq2OaW6T9Bo9SEve1KmD2zBHplG61QVHJ09iYC00RX6QswSFo6ipEeoJITxApMBiRngxFOu7r\nfUMWkQKDEenJQJhjzWc2IFJgMCI9GQizbz6iboowUXdxyNwZkVoSrTZoKnkSx0fNDRFdpCzB\nQajqKkR6MBDntTHykb4riJQ3GJEeDET63R9sfMj8CiLlDUakB3yM4gEiBQcj0gNEuhM0c0ak\nC2lWG1SVPIUNYaaILVKW4DB0dRUi3UGkO4i0IhiR7vDXKO4g0opgRLrDX6O4g0grghHpDn+N\n4kbYvBmRriRZbdBV8gT8Ev0bYR2BSDcQ6QYi3UCkVcGIdIO/RnEDkVYFI9IN/hrFDURaFYxI\nN/hrFFcCZ82IdCPFaoOykt0MRDLy/tGduCJlCQ5FW1ch0pXhYsPLV9RNEQaRsgcj0pWBSOdx\n3f7dyLjuhEgKghHpynCO9Nv+9pNXG+c1IJKCYES64ni/6PvYNC+f0bZGkmi7OHTOjEh3EOmK\n+8+6VPd5pNB2QKQ7CZbttJXsxHVEejsfkWz8MiFEyh+MSBecc6S36uZIiLQ6GJEujFftXj4q\nXLVDpNXBiHRh+D7Sa5XvIwUP9BHpASJdGJ5rF3VDxIkpUpbgcNR1lfxqg7qSXfBR8xZE2hCM\nSC181LwFkTYEI1ILHzVvQaQNwYjUwidkT2uG+Yj0BJFaEOm0phUQ6Yn4aoO+kh3wUfMTIm0M\nRqQTHzW/gEibghHpxEfNLyDSpmBEOvG7v1tWDPIRqQMinaZFeo+xIeLEEylL8BoUdpX0aoPC\nksf0RPp+aV4u78T+vNg4UiGSimBE6ov0fVln+Dkfjs7TpNgbJQIiqQhGpL5Ir83xsvB9aBob\nI7s4u3jNyASRuiBSX6Sm+Tv9Nc2heTFyzmo8kbIEr0JjVyHSUKTLl/NxyQqIpCJYeLVBY8kj\nHCIZ+mgfIukIRiSXSJG3RpIYu3jVyyki9UAkRFrXBIjUA5EQCZEiBCPSQKQOsTdKBETSESy7\n2qCy5CGIhEgRghHJhjBTRNjF615MEakPIiHSqhZApD6IhEiIFCEYkRAJkSIEi6426Cx5QO0i\nrewARBqASGJbkYI4ImUJXovSrkIksa1IASJpCUak7uUK30dCpDjBiNS9XJ9IayfJiDRAcrVB\nacl9bAgzRRSRsgSvRmtXIZJlEElNMCL1OdY3tMsSvBqtXYVIPY51zZFWj+wRaQgi9dg3P4fm\n9+9QyR8aW/3sI9IQwdUGrSX3GP9Zl/fm6/RXyR8aQ6R4wYjU+7Y5fTUfZj4ni0h6ghGpy2vz\n+du8tL9zNeoWSbFxF68fjiDSCETq0hp0aNcaqvhDY+ufe0QagUg9vl7aP9tn5XdEIpKeYLnV\nBrUld7ExhJsCkRQFI5Jdtu3iDa+hiDQGkbrf3r7f76NtjSTbRcoSvAW9XYVId/aVnf2NSFGD\nEenOR8ejj9gbJQIiKQoWW23QW3KHiaGdERBJUzAimWXTLt7yCopIDhCpw9/xpWlejn8xt0eO\nzSJlCd6E4q5CpCe/twWH/W/ULZICkTQFI9KTt+ZwVuj3UMMpQogUOVhqtUFxyU8mFhuMLDps\n2cWbnnZEcoFIz2/rEilL8DY0dxUiPahoaIdI0YMR6UFFiw2IFD0YkZ5Us/y9bWaMSC6EVhs0\nl/zAxlxoio0iZQneiOquQqTrZXNWIZKuYES6XkakBMEbUd1ViHS9XJFIG4fziOQEka6XKxMp\nS/BWVHeVzGqD6pLv1PpnXRBJJBiRLpcRST54K7q7CpEul23Y02H1Lt46BkEkN4h0uVyXSFmC\nN6O7qxDpchmRxIM3o7urRFYbdJd8A5HSBm9GeVchkkkQSVswIplk7S7ePAJBpAkQySRbRMoS\nvB3lXYVIJkEkbcESqw3KS76CSEmDt6O9qxDJIit38faXTUSaApEsskGkLMER0N5ViGQRRFIX\njEgWQSR1wYhkkXW7OMLKEiJNIbBsp73kC7WKlCU4Buq7CpEMgkj6ghHJIIikLxiRDLJqF8cY\nxSPSJIhkkNUiZQmOgvquir/aoL7kFkRKFxwF/V2FSPZAJIXBiGSPNbs4ytADkaZBJHusFSlL\ncBz0dxUi2QORFAZHX23QX/IJkRIGx8FAVyGSORBJYzAimWPFLo4z8EAkD4hkjpUiZQmOhIGu\nQiQ3+5apH3hvIA4iaQyOvdpgoORlIvmu33tuIA8iqQxGJCdjT/bPr9ZEivRqiUg+EMnFQ5Pn\nAK4vUj6PVoqUJTgWFroKkVzcZ0CPA9BIpMEU6Z9m2uc49zYUTz07OUikuy9db/b78Q8ywBFJ\nZXDk1QYLJS9d/n4IdP/uNBDIiEixnmJE8oJIU/SnQrZFyhIcDRNdhUgOHGsKjsUGREqEia5C\nJAf7zr+eL12RMq3cIZLOYERy0T2BYdkPkhG6i6PNghHJS9zVBhMl13WuXbTnF5H8IJItEElp\nMCLZApGUBiOSLQJ3cbyhOyL5QSRbrBApS3BETHRV3NUGEyUjUorgiJjoqriHJBMlI1KK4IiY\n6CpEMkb4k4tIaYIRyRTZnlxEmgGRTIFIWoNjrjaYKBmREgTHxERXncrY2YjkpoTn1kZXncrY\n2YjkpIjRho2uOiGSLbK9245IcyCSJRBJbXAJ7zUgkhNEShmMSJbI9mEzRJqlgDOEEclFGSck\n2+iqFkQyBCIpDrb/uX5EcoFIiYMRyQ4BlRby+zhsdNUVRDJDoEhZgiNjoquumP+1tojkAJGS\nByOSGRBJdXAkk0yUXItIcadIiLQIRLJCmEhZgmNjoqvuxDHJRMmIJBwcGxNddQeRjIBIyoMR\nyQaLK408RUKkhUTZ7yZKrkikLMHRMdFVDxDJBoikPTiGSSZKRiTZ4OiY6KoniGQCRFIfjEgW\nWFpp7LUGRFpMhF1vouR6RMoSHB8TXdUBkSyASPqDt5tkomREEg2Oj4mu6oJIBlhYafQpEiIF\nsHnvmyi5GpGyBAtgoqt6IJJ+EMlCMCKpB5EsBG89JJkouQaR4k+RECkERFLPcpGyBEtgoqsG\nbDTJRMmIJBgsgYmuGoBI2kEkG8GIpJxFlQpMkRApjG1PgYmSKxEpS7AIJrpqCCIpB5GMBG8y\nyUTJiCQXLIKJrhqBSLpZUqnEFAmRQtnyLJgouQ6RsgTLYKKrxiCSahDJTDAiaQaRzARvOCSZ\nKBmRxIJlMNFVDhBJMwsqFVlrQKRw1j8RJkquQqQswUKY6CoXiKQYRDIUjEh6QSRDwasPSSZK\nLl0kmSkSIq0AkfSyTKQswVKY6Co3a00yUTIiCQVLYaKr3CCSWhDJVPBKk0yUXLhIQlMkRFoF\nImllkUhZgsUw0VVTIJJSEMlW8LpDkomSEUkmWAwTXTUFIillrlKpKRIirWTVE2Ki5PJFyhIs\nh4mumgSRdIJI1oIRSSWIZC14zSHJRMlFiyQ2RUKktSCSShaIlCVYEBNd5WGFSSZKRiSJYEFM\ndJUHRNIIItkLDjfJRMkliyQ3RUKk9SCSQuZFyhIsiYmu8oJI+kAkg8HBhyQTJSOSQLAkJrrK\nCyLpA5EsBoeaZKLkgkUSXGtApC0gkjpmRcoSLIqJrpoBkbSBSCaDAw9JJkpGpPjBopjoqhkQ\nSRu+SiWnSIi0jbDnxkTJZYuUJVgWE101ByIpA5GMBgeZZKJkRIoeLIuJrpoFkXThqVR0ioRI\nW0EkVcyIlCVYGBNdNU/I65yJkhEpdrAwJrpqHkRSBSKZDQ4wyUTJpYokO0VCpM0gkib8ImUJ\nlsZEVy0BkRSBSHaDlx+STJSMSJGDpTHRVUtAJEVMVio8RUKkCCx+jkyUXLBIWYLFMdFVi0Ak\nPSCS5eClJpkoGZHiBotjoquWgUhqQCTTwYikhalKpdcaECkKC58mEyWXK1KWYHlMdNVCEEkL\niGQ7eJlJJkpGpKjB8pjoqqUgkhImKhWfIiFSJBBJBx6RsgQnwERXLWbRS56JkhEpZnACTHTV\nYhBJB9B83FMAAAqNSURBVIhkPXiJSSZKLlEk+SkSIsUCkVQwLVKW4BSY6KoAFphkouQCRUpw\nQEKkaCCSBhDJfjAiKcBVaQqPECke88+XiZIRKVpwGkx0VQiIpIApkbIEp8FEVwUxa5KJkosT\nKckBCZEigkj5QaQSghEpO+NK03iESDGZe85MlIxIkYJTYaKrwkCkifictM9J1g2AcHZmnzVR\nkRIyeslIdEDiiBSVmWfNRMmIFCc4GSa6KhT/02ai5LJESuURIsUFkTKDSIUEI1JeXCJlCU6H\nia4KxvsKaKLkokRKdkBCpMggUl4QqZRg31NnouSSRErnESLFBpGygkjFBCNSTsYiZQlOiYmu\nWoHnVdBEyQWJlPCAhEjR2U0/fSZKRqTtwUkx0VVrmDbJRMnliJTSI0QSAJHygUglBU89gyZK\nLkukLMFpMdFVK5kwyUTJxYiU9ICESCIgUi4Qqaxg95NoouRSRErrESIJ4XwaTZSMSBuDU2Oi\nq1bjXAM3UXJJImUJTo2JrloPImXhUWniAxIiieF4Jk2UjEjbgpNjoqu2MH4qTZRchkipPUIk\nOcbTJBMlI9Km4PSY6KpNIFJ6uiJlCU6Pia7axtAkEyUXIVLyAxIiiTJ4Pk2UjEhbgjNgoqs2\nMpgmmSi5BJHSe4RIsiBSYhCp0ODeU2qi5FJEyhKcAxNdtZ2uSSZKLkCkDAckRJIGkZKCSMUG\nd55VEyXbFymHR4gkz/N5NVEyIq0OzoOJrorBcw3cRMlliJQlOA8muioKiJSOf5kOSIiUgvtT\na6JkRFobnAkTXRWJ23NromTrIuXxCJGScJsmmSgZkVYG58JEV8UCkRLxL89SAyKl4mKSiZKN\ni5TpgIRIqcj1BF9AJPngDJmZkxHJi22Rsu1mREpFTpMQSRxESkZGk+oSKUswIiVjl8+kakSy\nsYsLSc4WbONZRqRVIFJCTAzgLYtkZPRcSHLGki2szSLSKhApZXKuaVJNImWKRqSkyYgkiZV3\nGApJzlqy/nP8EWkViJQ4Wf3noO2KZObkkUKSFYik+VfcINIqECl1MiJJYeYE+0KSc5ecwaQq\nRLLzSZVCkrOXnN4kRBIne1dVFIxIkhj6EHIhyflLTm4SIomTv6vqCX4mpzapFpHq7qpqggci\nJTSpApF2iFRNcCcZkWKDSPUEd5PTmlS+SPf9WXdXVRLcS05qEiKJo6Or6ggei5TKpDpEav+v\nvKvqCO4nI1JEdohUUfAgOaFJiCSOlq6qIXiYnM6k0kV67km6qoJgp0hJTEIkcdR0VQXBo2RE\nisRzP9JVFQSPk1OZVLhIO0SqKtiRnMgkRBJHU1eVHoxIMnR3Il1VQbArOY1JiCSOqq4qPNiZ\nnMSk8kW6X6arKgieFknapKJF2iFSZcHu5BQmIZI4yrqq6OCJ5J28SiWL1N95dFUFwVPJO3GV\nEEkcdV1VcPCcSHIqlS7S8zu6qoLg6WRplQoWaYdI1QX7kmVVQiRxVHZVocH+ZEmVyhVpuMPo\nqgqC55LlVEIkcdR2VYHB88lSKpUtUvd7uqqC4CXJMioVK9JoT9FVFQQvS5ZQCZHEUd5VRQUv\nTY6vUqkijXcSXVVB8PLk2CohkjgGuqqY4JDkuCqVLFL/GrqqguCw5JgqFSqSY+/QVRUEhybH\nUwmRxDHTVQUEhyfHUqlMkVw7hq6qIHhNchyVEEkcU11lPHhdcgyVyhVpeB1dVUHw2uTtKhUp\nknOP0FUVBK9P3qoSIoljsKvMBm9J3qZSiSK5dwZdVUHwtuQtKiGSOEa7ymTw1uT1KpUq0vha\nuqqC4O3Ja00qUKSJ3UBXVRAcI3ndUQmRxDHdVcaC4yTvVrhUnkhT9dNVFQTHSt7tQmVCJHHM\nd5Wh4HjJu0CXyhTJdT1dVUFw1OQgl4oTabJouqqC4NjJy11CJHGK6SoDwRLJy1wqTaTpaumq\nCoKFkhccmBBJnNK6SnOwXPKcS2WJ5Dv80lUVBIsme10qSKSZcSxdVUGwdPK0S6WIND8fpKsq\nCE6R7HapCJEWravQVRUEJ0p2HJjsi7RsdZKuqiI4XfLQJeMiLbXoRFdVEZw0eW4hbxJtIoXV\nQVdVEJw6uQCRgl8N6KoKgnMkX1vQ5tBuzTGVrqogOFOyTZFWjkzpqgqCbZSsQaS18zsju7iQ\nZEr2kl2k9RadjOziQpIp2UtekTZZdDKyiwtJpmQvC0Tan/H+YPIGfrZadDKyiwtJpmQv8yLt\nH18mfjB5Ax8RLDoZ2cWFJFOyl1Ui7Xs/CBcpjkUnI7u4kGRK9hIg0nMEF0+kkHs5MLGLC0mm\nZC/LRer44hfp3yw3i+ZvCKCaLSLtr2yaI20/Fl0x8VpVSDIlewkQaf8Y220d2kXDxC4uJJmS\nvQQekTpXIVJdyZTsBZFsBVOy0uBViw0zP0iHiV1cSDIlewk4s2F0AsPGMxsiYGIXF5JMyV6y\nn7S6CRO7uJBkSvaCSLaCKVlpMCLZCqZkpcGIZCuYkpUGI5KtYEpWGoxItoIpWWkwItkKpmSl\nwYhkK5iSlQYjkq1gSlYajEi2gilZaTAi2QqmZKXBiGQrmJKVBiOSrWBKVhqMSLaCKVlpMCLZ\nCqZkpcGIZCuYkpUGI5KtYEpWGoxItoIpWWkwItkKpmSlwYhkK5iSlQYjkq1gSlYajEi2gilZ\naTAi2QqmZKXBiGQrmJKVBiOSrWBKVhqMSLaCKVlpsG2RAJSASAARQCSACCASQAQQCSACiAQQ\nAUQCiAAiAUQAkQAigEgAEUAkgAggUjDXv+Ce70+5Z+BZciU13ytdXjEihXLbw48vFXBrplrK\nfT67Ac8yIgWyP1Un0v6ESLMgUjDViVRbtTcQSZhqRapninQBkYSpVqTHlyrYnxBJlgq7au+4\nVDqIJA0i1UDos4xIwdQqUlUld9YpEUmI+rrqWW0tFe87/yGSEFWf2ZB5QxKxv69QcmYDQFIQ\nCSACiAQQAUQCiAAiAUQAkQAigEgAEUAkrTTN8MISfg9N83K7W8v++Bt9y8ABImllnUj71p7b\n3W58Rd80GINIWlkn0vPG10u/b83+L+ZmgRtE0kpfpLMQzdvv4+r2a9P87A+329x/3DwOSI/7\nvzXv56/fr+0w7/R3Hffd/oN4IJJWeiL9XYZs7bGlK9Khebve5PFjh0g/zdm2r+so73g6XkZ6\nnxe5ICKIpJXmyenc/2cbDmcReiId77cd/vh+k8eFl+azVaq5anV6bb7TFlM+iKSVnkgvzXnc\n9tsOyLoiPRbkhj++36Rz4ffr/dBeem1+zldVchZ3QhBJKz0Ruvr0L3Vu27+yL9LhruRP83oe\n6L2lqKAqEEkrsUT6PptzemtePr5+L1edj15HlsSjg0haGcxxemO334FIvqHda/Nx++bv8vWr\nOe551qPDLtVKT6TnasK++Tz9HQYiTS82tO8jXb75vt2rta45nCAyiKSVieXvY3vhfSDScHX8\nercb7QLd8bFscVkK/0xaSRUgklYm3pA9nQdm78M50vD92uvdWl6O1/Mazj8/fD9OHuL8u+gg\nUnV8c1qDAIhUHQfW7ARApMpoWGoQAZEqY9++rQTRQSSACCASQAQQCSACiAQQAUQCiAAiAUQA\nkQAigEgAEUAkgAj8B3p9ZKU5K1iOAAAAAElFTkSuQmCC",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {
      "image/png": {
       "height": 420,
       "width": 420
      }
     },
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Add Day of Week and Hour Columns\n",
    "data <- data %>%\n",
    "  mutate(day_of_week = weekdays(invoice_date),\n",
    "         hour_of_day = hour(invoice_date))\n",
    "\n",
    "# Sales by Hour of Day\n",
    "hourly_sales <- data %>%\n",
    "  group_by(hour_of_day) %>%\n",
    "  summarize(total_revenue = sum(total_revenue))\n",
    "\n",
    "# Plot Hourly Sales Trends\n",
    "ggplot(hourly_sales, aes(x = hour_of_day, y = total_revenue)) +\n",
    "  geom_line(color = \"blue\", size = 1.2) +\n",
    "  labs(title = \"Sales Trends by Hour of Day\", x = \"Hour of Day\", y = \"Total Revenue\") +\n",
    "  theme_minimal()\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 30,
   "id": "41b30f11-2df2-4629-a14e-9a30d595d068",
   "metadata": {},
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "Installing package into 'C:/Users/yasir/AppData/Local/R/win-library/4.4'\n",
      "(as 'lib' is unspecified)\n",
      "\n"
     ]
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "package 'maps' successfully unpacked and MD5 sums checked\n",
      "\n",
      "The downloaded binary packages are in\n",
      "\tC:\\Users\\yasir\\AppData\\Local\\Temp\\Rtmpyi9yhW\\downloaded_packages\n"
     ]
    }
   ],
   "source": [
    "install.packages(\"maps\")"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 31,
   "id": "3fad6824-05ae-4aba-bb7a-3e9c63b1545a",
   "metadata": {},
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "\n",
      "Attaching package: 'maps'\n",
      "\n",
      "\n",
      "The following object is masked from 'package:purrr':\n",
      "\n",
      "    map\n",
      "\n",
      "\n"
     ]
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAACClBMVEUAAAAAAIsEAowIBIwN\nBY0RB44UCo4XDI8aDo8cEJAeEZEgE5EiFZIlF5MnGZMpGpQrHJUsHZUuH5YvIJcxIpcyI5g0\nJZg1Jpk3KJo5Kps6K5s7LJw9Lp0+L50/MZ5BMp5CM59DNaBENqBGN6FHOaFIO6JKPKNLPaRM\nP6RNQKVNTU1OQaVPQ6ZQRKdRRqdTR6hUSKlVSqlWTKpXTatYTqtZUKxaUa1bUq1cVK5dVa5e\nVq9fWLBgWbBhWrFjXLJkXrJlX7NmYLRnYrRoY7VoaGhpZbVqZrZrZ7dsabdsarhta7lvbblw\nb7pxcLtycrtzc7xzdLx0dr11d752eL53er94e8B5fcB6f8F7gMJ8fHx8gcJ9g8N+hMN/hsR/\nh8WAiMWBisaCi8aDjceEjsiFkMmGksmHk8qIlMqIlsuJl8yKmcyLms2MjIyMnM2Nnc6Nns+O\noM+QotCQo9GRpdGSptKTp9KTqNKUqdOUq9SVq9SVrNSWrdWXr9WYsNaZsteampqatNibtdib\nt9mct9mcuNmdudqdutqeu9qfvdufvtygv9ygwNyhwd2iw92jxN6kxt+kyOClyeCmyuCmy+Gn\np6enzOGozuKoz+Kp0OOp0eOq0uSr1OSr1OWr1eWs1eWs1+Ws1+at1+at2OaysrK9vb3Hx8fQ\n0NDZ2dnh4eHl5eXp6enr6+vw8PD///+eyU57AAAACXBIWXMAABJ0AAASdAHeZh94AAAgAElE\nQVR4nO2dh6PkONLQe8k5pyVn2EfOOQ9xyXnIOQ6ZD/hI88FxDNwCxx0DHMfuHLOzOzOeN/of\neQ6SFapkyS6pqt31u9t53W65XJb1e5Jlu9/FKIpymAt3AopyBlQkRSFARVIUAlQkRSFARVIU\nAlQkRSFARVIUAlQkRSFARVIUAlQkRSGAQqTLwqPn7wmiQaHvnr5d3oYfv38alAVKBAWRD8MN\nbhT48slDPk9ebwYKNqycHkqRHho8tUlr6Ofz2/jj+A0iwrz4uEhv75Z0Hm9GKoqnnAUakeaf\nbx7PzZ2QJfS7Ly6XV5kt55bkFtcWfPvQGb0x054+oYinnAZKkR7a2R1BOCT0Bejteov06PLF\n8urxpWx0pyLdCKQi2VcPv7Avjx8a2vvLo+WDR6MGdvFU7vnd5dHrdZX5x1oiCf187JLmt2+f\njmdNb5aB3/jj/aOHHsIO7V7drVtZfriCZl7/zp51eYm4DS7ru+TXvXi99kNv5843DGV/rFGD\nDNOAymlo0SN96c5qnl7eTB+8uTz1Fz+s8Xh6/ToUySsRh36I/WR5+2Y5TXm9NtMn40qLSM+9\nrdgYgUiv3fpBInaDbv3ny9Iv3ajySdwNhaFcxmvUIMM0oHIaSM+R7qb2+/by+EGft+Pg5+3y\nK/zJg1De4oc17t6Y90/GU3av/fklotDG/aofe7cvzdgaH61zCI/f27IPkR8+fX13eRv3EbbE\nwyDx1Xvz/sGXd0Eiditu/XdLx/F4LDhxFw0vo1De1qLdmzNMAyqngXbWbmqPz+fm9n6UaBrS\nzWMZf/H8O/y9N9waf/glXOjgZTwxZ5vpG/fmMlk2j7xgkZ4vPd7TuYhLxEZc13+yfPgo3NxK\nFMrbWrR7S4ZJQOU0kF5Hms/EHzmvxrHP2NReja3TX5w08emHX8KFDl5Ob588nJV8+c772B8d\n2jmJtb+KRXq09AfvoiJ2K+v6c3/qDcRikbBQ8IaBgMppIBvavb+zI7KL78Pdnf3nsinSJS/S\n3fL23Z2zFhLJwKGTEnGRcIOLsm+DgdijaGiHhcJESgIqp4HuHOnNMn4Jf28/f+iMXvun/n4R\nuP2loefwT9zb109HlV5FzZRepLEH8QdiT/3Jhnd4KFSkOKByGuhEehjAzTc2TCf6lrHZzL+C\n/cVwowtWDAqa2Ujv7dunroeCh3Zoey4c2k1LHjL3B2Le9Pe7u8f1Q7skoHIaCEV6aFfTjWVP\n5x9v56mHJ5enc/PzFwctbWy5r8eX4YpB6GVmPe7VIJGmE7U381ZcaK/g83kryQyBjbquP53i\nBQOxu3kqYhpevk5CRVuDRIoDKmeBUqS3l6lLeTtdhXm7nDO9sVdp/MVeS3t8efJ+nG6+xCv6\nocdbhNw50Tz9/Xwe6r0zsUjjp1/ejcNML7RX8N3DVuY567egSOv647bugoHYm/kWofdf3E2/\nHIJQwdZc1CDDNKByFihFevjNPDWS18F11Ue25XiLvZY2X159Pi0JV5xLWNabVpcLsnfv5nm+\nWKRXrrgX2i+IXEW1G3zl5/A6usfPrruM8fxQ3ta8qEGGQEDlJJCK9DD0mQZG78YbZOxdaV+6\n+9PWxX77ffPocvdqWRKsOJeYJ9af+49RvJluERp/0799tJ4puamE8Raf5YYKFzooCN/X4/Zl\nXX+6FhQOxN6/Gm9aeGr7TC+UtzUvarBhKKByDihEOjFfUA/EyAMqMlCRcry150piAypCUJFw\novM1gQEVMahIOI/C8zWBARUxqEiKQoCKpCgEqEiKQoCKpCgEqEiKQoCKpCgEqEiKQoCKpCgE\nqEiKQoAwke5lxxOenu4uHyoSYzjp8YSnpyLhCK9q4enp7vKhIjGGkx5PeHoqEo7wqhaenu4u\nHyoSYzjp8YSnpyLhCK9q4enp7vKhIjGGkx5PeHoqEo7wqhaenu4uHyoSYzjp8YSnpyLhCK9q\n4enp7vKhIjGGkx5PeHoqEo7wqhaenu4uHyoSYzjp8YSnpyLhCK9q4enp7vKhIjGGkx5PeHoq\nEo7wqhaenu4uHyoSYzjp8YSnpyLhCK9q4enp7vKhIjGGkx5PeHoqEo7wqhaenu4uHyoSYzjp\n8YSnpyLhCK9q4enp7vKhIjGGkx5PeHoqEo7wqhaenu4uHyoSYzjp8YSnpyLhCK9q4enp7vKh\nIjGGkx5PeHoqEo7wqhaenu4uHyoSYzjp8YSnpyLhCK9q4enp7vKhIjGGkx5PeHoqEo7wqhae\nnu4uHyoSYzjp8YSnpyLhCK/qXLjhAcp4e1CR2FCRDocbLETxDqAisaEiOV5M/y8O5+wZglfz\nJw3SY4gnPD0VCYehqid5XowWTdSEG3DI0qtCRWLjtkV6scjzImUrckaicpWEtyzh6alIOJ2q\nehEF8AdRyWqxCnKkI9pKbzcqEhu3J9IsyNQPLS/yGoWK2NeHRnS59A6hIrFxayLlO6G4K/Kc\nMaEv2+O6EquEtyzh6alIOF2qOvEGHdLlu58tzDIkxHsr4S1LeHoqEk77qnamrNYkWrnCOw1y\n3sTvW+8uMdIbvqTqux2RwtmDoPfJnhzt92jDoga7i1B76mYTlt7wVSSUdlUdOBIO4CCPjlk0\nBKdRJenRkG5rx+0WbkJFfMNXkVCa9kjQxSGwMzpsUaRUSXpyWLOW3vAlVd/JRVpJZxLQybqh\nYFruuEQjklqCY81aesOXVH23IlLgS/BzWRr3Vz082trdZyPzv88O7Pse9tyCu4mK1I2250he\nz+P9BMd8JB4dEWlR59mzGo+Iqm/Ond4lFakbraran55bX70wsEV0Z0mF6XksyvjqlHdHlCIV\n/B6oRUXqRtuqToZ3SHfEKdKkzbOpKzq6u/tp45GK1I/Gs3bAdEO6DpVEBU0R3F3vzOjA7h5m\nWG/NoEJF6gZh1SSSLGO5+bVdQHsVtk4jrEdaz45q95m+ZQ0VjyluoiJ142DVJDcvzD/XJfaD\nYO7bfkwp0X6R3CnRjrEd+b12xXtSGI8WFQmFuGpeBD/Cj1KVhIi0MHtUZ5OklgWgInWDumrQ\nB13BZ8vFiPRs/J/tmMr3VlTLAlCRunGkauD5N6ic71G0zkB3V8PRHmn5UdMn6WMUbJxIJKj7\nQZ5HssUx94hM2n9BduetDE1E0smGEq5fpGw3BMcD7ghaiR6GbWrSFYhU8OugKh4lKhJKddVg\nV1TxeC+AaQYLpUNDwXUYfHf33VunIrFx5SJNKmyfGvnGuJuDsC+yo7Nok44ta48Q94e+RhaM\nR4qKhFJXNS9Sj+KLsK5k8NH6aGwalMijoqbXr2XtVmHdmeM+qUjdqKoacEwXL/O7oqKofltp\nbVKflrXfgJ2/H+rSkxPvCNcskg92phQM6nbEbatS+5Z1oPUjsy7l6xekdwwVCeWISG4YFxgT\nDOi6q7QRu3HL2mnRmv0Rj0w62aIidWNv1XjXhMIJhOgm1XXxxnTfyvWKtMOi47sUh7qmR9eP\ncA6Rou/VMuEsg1XoRUpJ8FYWmcYtq4lG5TEjkVo8u34uke75cblYM+6XvOybUZn76D7VxaOC\n4Ac8umeqINcdla9QupuFIf1RnYvftC4Ot+RDnKNHGgH7lzief4td+SnTTpOGzcfi2vVI1uRy\nyvZIFOfqkUgROoreqRHnOVJ1o+/gkdCjS8LVilR2isMq0jbNWtaOVt/eIxWpH5UizVMI7dKx\nXKNIteu290hF6kdF1dTNvZVP0kHsUKio6TVqWftafROP9DoSD7U9EmxSeL1oLe2WuR8tpsAr\n5nsb9kiFa6ySlGjk/ZYIYuTiQ+kRoSKh7BMp/dArtpZ2K64LGog0ly/bie4tK85rTbpgp0xY\nNghStMcqUjd2iGTSv9Liv/FK21fr6vN8eMnmqkQaSruENi0raOUbuKy3dsp7HdpVcSeSitSN\n4qrxO6PostD6whva+StO7yvPmcpFggY/GE1aFt6ogU9K9wh+PQQGlqVHiIqEskckd6OCcV9q\nEhQyxuulwpWWJQXbqxGp+G8xNxMJ+Rho7nX7tbHPyCbD9AhRkVBKqybukIKbFTw11kLRAr9D\najDfUEhfkeDcWooUfaIidaOyR1pfvUh0Wssl660flM431H9HF+3uFmJvmYM/jRMbvIn6NiZ5\nnxTXSeXuSuFaRfIFyIlkC/trBXeClw3t1tlfUpUaiJTZ9tqojfueF7f8ONgW7eQ68b4aFSlD\nlUjBm8AM99m9eREW9mQL7ctT0+CWoiX70GzWDvrQa9TrW8LvwwQ2ulmAYndlcL0iBcTju1Uk\n97lXNl2haBq8pkWxfovQZu/gLTHUIi1qQnFrd2drFRUJZU/VJBIlIiWdzgtopYJNFbemwj6p\n3S1C6WdegtOPwZ23UEjk9n19k60eyt0VgQSRvA5ht0jIYO1+LeKXhtUj6ZKmctN/wq5Qgq2d\nVqSSYFEmzXa3N+wiVfUIxbEAkdbvRgk3Gr3GYg9lZxN1CRe2hGfLP5tfv7pPJEKT6ijb+327\n2xtukXaNsAqDmWBoB89N+G82+qTN+2jqm0dZS3hm/6Ts5heCF4oUpUtrRwWl1bRnd3vDKlJm\nmJVbqzSOAXukJM5aPvjalIjiCfCaSyYlLWH6S0mFXwVeJhKULwtlO7Vvd3vDKRLqUdYm6GZv\ndO37zFpwAKTEUDkIKth9UyjS/GeZv/71g/HWzFo4sQswyelHwb5u7G5vGEXa8Ahs1f5i7/N4\nrVSkqKeJYm96ZJYZhP1NBGS7JTx75kSaVKqcDw6Scak1cGInxk3Gxz0+TfX1Q7hI/uUfbx33\nbUBQuOWNWYZ2tlRSGs4ln3N5+yhioyVMQ7rQo1xw4KMgn7XtinHJny6P6/dw9XWFT6QCj9yX\nz62Ps6ZF4nju7brcfR6eGEHZbMyBlzaPQrIt4Zn9c8yLSHbzqE2Zq0fem8p9aUt+AvFQ9XWG\nS6QSjfzbfVCRnB6eRqsM9yZ4lG/1KxYJmNoDKGwcxZSINDOJtLmV+e5vMGP3xtgyO9s+KfEu\nxR8fqL7O8IhUptEL8AYETKY1uPf6PtymEwlwBogUsjUggh732WCzJXz1q2aUaBrZfT2ZboPj\n2Q+ihmlMcJIkQqTNJA5WX0eYeiRqkeLw9sV9uEVjXvhv4JQyaR846CC5lvBstOiro0lfX8BF\nQh58jfqwdb2SNiyD3dXXm2sY2tV7lIoUFo1WegEUSdhsejtqIdMSno3d0YQzCR/5uJeFbXO4\nGpGy1aoimUKTdomULAtPr9Yi3gpBSviEw77jjZNrCV91uC4p7pP8QdxGeuE6g7BZ8Cz7qq83\nVzBrV0caORXJU2rOJM0ozXej7e2qg6MiBddgyqcUg5/y2VV9vTmdSNDsXuwIIsuGRzuPdo5M\nS/gqINLUkwCbLb59aeC9SXUne6qvO7w3rTYQCYqaLoKfR4/iROw72FmwlvDsGSQS9PzQktpm\nfkH5vS2ai9rq44D3ptXN2+3qRdrukeySJJto00DC9cc6D9ISQo++Gk42hHkseWVzi3M82q67\ngz3dpSKt0IsErZR0NoAl/qf2hU9mnqv0JssEuCU8Q0T6+nqlam1ixn+71R4rCkvCIA/9qkjg\n+X1DkaICcEbBh0Ap/CDvrga8JcAiBXcHDdapcjfw3RCJyxa5yVBFMv4sNLVIWYFQk/aLhHn0\nmXvxGVIC65FCj9JZuyira3KjCgOdD25WHw8sIpU3fVKR7NWifFJYIeQ3P76Xn83/fDaCFAFb\nQjywM8m9DUFWJ8b4Y1gd2iVUtHxakXJPwG6KBDXazV39bAH5uECkZWFwa0MupVPh7WRx9TFx\nlptWK0wyG0/ZolkDY6iN/fzss7xJ2NAO9ujmRPL3srz6eGAVqcV1pCKXQl2i7aBZJyJt7OVn\nn+0Q6VnYI9nF4c12a0onxQQ34i5LSqqPDU6RTJtZuzKRgicCt24PciSHO8emR2BLwEd2oUjX\neW21BFvXfr0XVx8XzNeRGERym/VyiFNB84UPOcYekabH+WKR4nvtllTO6dHIRsXi1cfGjYkU\nzLvjuaD51h3tDY2gljA/WB6JtE5/BydJDA28H5uVC1YfHzcjUjCeA12pFqnUJPzzpCUs32CH\ndEje7d9pMmdjs3JVJI+eIvmTdcuZUpqNQSybqD/YWY0QkeKLSJBHZx7WWTYrV0Va6SdS9KVB\naDYGv2Rbe4o0kvUIHNqhJ0jwA0mnpaByVaSZgrZPKdKL7HycTWj6iRUIj/T+e+wsUUuAp74D\nkdQkvPpYuSmRijLKl6g60JuELWGeaDAZj26qS9quYBXJEH9nA41GS1q5j2sOcwFxjxTM2M3L\nvn56kZBbGFWkMthFwu9dzWQdHOrjBC3hWTj1vSw9vUhxvbqlKlIJhW2/nUd+Krm3EXELOIbf\nEtzX5d/YyC6qVbessvq4OckXRO71yN0vVDbyu28m0rNnJSKda64B/Taj+urj58ZF8nIpSfs+\n+jLto9T2SCfyaN47qEPaV33cSBPJZN618ajGJF8k6h7JhCK5T87tUdIh7as+fmSdI5nomYYu\nIhXJNjMeuWHA/7BKLa4lPHsWd0n2k3N2SMvOAR3SruoTAJtIkCPrp4JFsl8ndLQGXDyL9chg\nQ7vzeBRWHv5JTfUxw/kX+5LvFl4/6ilSycOxC/bI1R7xrXhFkw1n9Wj/BI6KNAGI5LVlWpHy\niRSbRH3kPJGwyQb3TJ850ZSdXwfzAu9ZxT3Vxw/jBdn4q01N/KRD4Xd2HRWpWDjvyJH0R/lZ\nO3+6wb1kFoAIvwqSBTurjxuer+Na/kkae9ySC55GPy7SjqEdFVmRvgqswGwADdEe0VQfN7zf\n/V3S1ufP+ojEN7SzNwg9S57q87jyr4JMvwTpmEcqkqXII/sQXleRkBV6iJTx6Iqxxkyvg12i\nqT52hIkEVM3ydyHaiVQsHJ9Iti1eIfnqG1QkIl7Y2bv5LV41fUXi6ZGmF+f1KK2+pMTu6mOH\nW6SJtQ1nqqaVSKBHyBodRfKLzU2SVYi9ZKsvKbC/+tgRI9L8Cqya+Ru7D4mU+QPLULH+IuU8\numKR8tWXFNhdffxIEMnrC3JV00ikdPLwRXuRlhYUTH/PP8CphqlNMjuxh43qS0vUoSJFrM22\nmUgFz1E4j/DidCLh8eA5uzOKBJSoQ0UK8VotUjVuwNVEpGD+O7sCl0jDlV5DylUfWKIOFSnA\nb7LZqjkmUunYrodIQ61I0HOk8slVH1qoAhUp4CZFmltQHO8b4z+hR86h6zMpW31ooQpUpAC/\nxear5qhHW3+sb9MkVpGYdNhNvvoyxYpRkXyC9tpSJEQONC5QkHDWboDigSK5BscgwwHy1Zct\nV4qK5BG2142qOWQSqocwkQws0rV1SfnqyxUrRkVaeVElUiOTOEQC4n3jG4BItvy5RMoWK0ZF\nWoma62bVNDGpuGDL55FGkaYfoUX/bwT8vh3Z5Hc3W2xn9fHCLVJED5FSQYoL0h25+eFqUCST\nijSqZK7qj4uBO60idWO7ahqYVK4coUjArN3iESLSMH2zAZsZdcA7rSJ1o49I8Zd984g0gPG+\nEb33RTp4nmS32wF4p1WkbmzN2hF9rVBwV2p3kYbl1rnCeIFIB0ww/abQkT1RkbrR5RwptKSk\nTHF6JbiHroviDZNJ7ta0I037yPr1WwNQkbrRXaTCYqXplbC26jjeh/6bb397KTV1SK7h7W3Y\nh9bfsT2IRKSDNakioXQ6R/IMqfGIbmhnwIdxfJG+PYk0sXZIu0RYNmZfBz+bAe64itSN/kO7\nGo+OHzn/LzinDenDD+0/o0cWW3hpevUNOmnfHS5JgXsf39lwtDZVJJTsg33zPz1FMtGtF8eP\nnNd+gIb0INGHo0jfDghVqG3QYBNvPu0A7qCK1I2SqjmJSGBD+nAiFilsonXtGWzjyCd7MEgg\noyJxIk4kr2RhehsMXo8UN6UPP6QWCSp9dAIwiLXxEHy4f5FIh+tSRUIpqBoqj4qmv4OSlCLF\n7eyDD5xGWZFMXU+SKU4hktsNfPu+LvdJNRxDRUIp6pGorsou4VhEisc2H5hCkWpbOr7CcZO8\n2Te8hLfvKlI3yqqGRqTC+e/iJ+HLGHyR/Ob0ISZSNO1W19R3flYYfXNWXkViQqRIlD2Sa0Br\nU5v4IBDJYB1SKGFBU9/9YV14LCcViYmzizTAHn0QnCJFXVJ8IaiiV8qX3ApTsJmtLikj0tGq\nNCpShqKqIfJox01CBD2S/Rn8afQPPjB4j/Rtu4Zrr8XnPXkVNkRxGy2JoCJxJxDStUcq/NOa\n1ekVYhvrSNghgSdJ60o5kVwZ247LPIAd2Fz/gEgUNagiofTtkUpEqk+vFNfwJ3IieZbkBVhu\nQSp2JXsJKHYFK5LZzpRxo+prEO8INSLdjSw/G6VTJhLlSVJJmbr0CnFN7SvmK18JRYqHdmn7\nRBr22vjtFjY6HYMXKbhuu9n3TVm0qb4W8Y5QJZL3o5FJhVVDd8ddSYdEeh1pYfB6o69EIo3L\n0NmGTLMd1q7L3lG3KZJNJg1dJxJcbk6iQfW1iXeE6xSJ9C7wLY9aiLQ04jHeR7NJvkcvX0a3\nf2ebcLrQrOPGjAa2bOiDW2nzfCz8CBNpUJFi7vyfnCIR/HHmAn12p1fBJNJkkvG6o5cvR5MM\nPrQDHdn/zSjBA6tD3BctqQLli0TSHinBnSIZ44t03xkz3ZFN+DgF4JHb0vjvC/KdHJuAe/nR\naJJ3w+rkkW8S2K0kV5PGGFX6AGYMfk+WLPS3lJ5/wSI97OCQVl6bRkNgwwFqe6Q7AT1S4z4J\n2lhdesXMHk0irSa9fGlVQjsk26CDhnzgwYilN0tdAUxZRmvxiRqsuwnGdtojrcgRqZlJ4Maq\n0ivnoxnjTTY4kRaTcicpm/PPhRhnBx4vOnVKRUNHoM2qT0VCKa2a2i6porC/iflFi1k7y0dO\npXhs99IWyQmQafiVbPdoxngXqWBrgEU+KtKEoKEd/qeO0PJVHr2IVrULiI/cRx7GqTRO2k0i\nDUPST8Tt1BfhELnNAIXy0+/BCt7+qkgTd95/IkRq0SOZOW6wqbWfaijSg0rr4G7+ONdml3aa\nacR1VM75YTcyJAtUJAB7RwP3nQ2WCpGKvTOBOOtWdqSXZ+yCMJGM+da33KlImUjtR3ZR8ZLF\n8T6rSN1oJtIL+wUMm99QHHnUSKSPEtah3YNGTiTv5B46LfHabIUGQCBT5yIm0nLHhnsboiJ1\no6VIJc+WJ+M6E6zbVKTAo2+5M3v7L+QK3axdIMB2+QFW12bqwoaoSN0or5oXu+e/s32Sb9y8\nnXlpbXrbpCLZL+NaRPL6olmjuOkaf4Ep1wAWoCbEkhMUyOvbkl1WkbrRQ6SMSeFA7kh6BSRD\nO8vSIdnWuDT0ZPBlsm/r2J7YiMvDY0Hj0h1UJE66iISbNEfGTaI9cpFH3/3d48IHh0KRvLae\n3BQUvS/VABIj3FjZSrkzpcHeH9Gs+lSkDE3PkTZNcmFJ0tskFOm7R5FGg761zjX4bXs59whu\n40ls2CGT8QJVrp6fu5t3UkVioaJq9muEmjTdCsvTI40ezV1SKJLXtIPzpKlk0oANtHjTBm+V\nupk7FWnlVkUCVp/vKmcW6ZvffPhgnGlIW7bviXvht19LhQxD5E75uviWAtcbVp+KlIFRpPmm\nup4i+SY9nCKNS775zcmkkaBR+g3TvUxb8D24fMMI9E12rcyNS7ZE6+pTkXBqqobYJOP9xyrS\nN42bRjahSNFwKW3cHUXa/Ii2qkBUJJRePVJ6luRue+ARaZ79nj0y9m5V4ClwMy+ef0QNeJdI\nJvOudC3wM9qqAlGRUDqKZIC3xr4ysEvUR84X6ZsL8ydzU4RFwk+R7v3lZUaRi+QGpe2rT0VC\n6SdSZJJxDtlnJiCVWopkQpFMcluQW2tDpLUhFxmxY2iXPUHKdEgqUjc6ihQM7vyQ7vWh9IrA\ne6SZIdMlJY3bfra29U0t/DXcgk2HsuO6TIekIvWDSSQTSwVqxDC0g7uktUj04b2bel5t2rCi\ndKn9MH9HnifywicNq09FQuERCeibDqdXwke4SMbq4DXbaO24CftL3fgq5xHWt2zMJBRMNHip\nqkgssItkYx9Or4RIpOQykvHbJjBcCppwsAy4nluhTPYcqCjgmqOKxELFTat0IplUpMPpFfFR\nYNKIFclzyA7zgD/gEDb+Kb+kQRe1+3JdykTycvzEM0lF6gaPSJFGAkQy62TB9BrSyKQmJSJt\nNPwuIq0mqUjd6C5SGIsuvSKcQk4k44/tohMlMEQsUjS0G5JiB00q6uL8BD/xTFKRutFfpHAR\nWXo43/XA8tLri+xzff5Z0jp3lzTPlQ2RhjDGUZG25wEj5T/5xDNJReoGr0iE6aF814rxxnSW\nUCTjX7ZBQwYiGVCE6HLUphf1Yz4vtp/bJ9ojsXBTIk0dEy7SrFIySosI7slxtwjFl2N9ddbT\nrdy5EHyJaVOjiMAjFakfHUXybgriEmk2Kfw8vLfB6z6QeIO9HcHl50TyT6D8IEH3gTkBnV0V\nDOwSdNaOhZ4iJR71F8mdLXlEdwkViOTEWUQyxt49nkzehT3VlhhDZOAOj4ILSSpSN7qKlAQh\nTA/nu2Kiz+OxXTqjHJKIZJbhm+/MGgTUJGtHecktVKRudB3apY8k0aWXJd8p+deSgqtJMK69\nr/m5BzDiWYW6kZrvx2Yp7FKXj4rUjd7nSLFaZOmhfO1rX9sWyX+Yws6E+TcBBeVLRHKz4OAM\nRIEjJbqpSHLoOWtXrVETkYAi/gy4dxPd8sPvJ+wiKL/FAU+aIECxR4W2xfPeECpSN9hEok4P\nZdsjbw586g0+/fRTszbTWCS3fCzqnyO5fmItP4QBKD0Kk0JQkbpxayIhhaxJY9OcPQoksCqs\nA7alITuR4iYeuEToUXjutbXvKlI3blokb7puMemhbX4aFEG6g6AhDxsi0Wm03hKEePRJ+FZF\n6sZNi2R8kaYf48DO+xxrzeHQKm7qoUl2MEjl0TrLDuzsJ6FJKlI3bkkEIQQAACAASURBVEyk\n6LNvpi8/tSJlm/PgD+3iTwGPSCwaXIeEeaQisdHzCdlqjXqKZPnUmlQuUtwl+c0+vExL4JFZ\nh3cAKhIXPCIV/5F0CpEMLlLKp5+WdUnLtaN7oGh0awShSGbZrkGnvlUkLlhEapIewtcaiGQL\nwz2Suz1ovROVUiQbEUxfReLi9CJlh3YQxSL5dzYAJq23txJONDhUJBWpwiMWkeyLXJMelqaM\niBSYRDW0C7KM3y+oSFzUVM2NiFRyjmRbNiySNSl8S+mRiqQidRepzKN0Am9TpAEVab2DNVKK\nyqQyj1SkflRWzTWK5JlUFa9GpKS8mS/amkYiIQ9RqEhs1FUNiUe9JxvMlkhhZ7Te2VAj0pA8\ne2Sn7YbkIyKVVCRJ3IJI3sgOjhc/a75QKVKgi+0zWoqUmPSJisQGh0jN0gOhFsn/LC4a3tTg\nje/IRAo2GSesIvFRVTU0HnUWybihXWG87Px39FlU0hPM3YAwoLF2iBRmEGeuIvFx/qHdiJuy\ni+JtPdCzXhIyxv1Nv8Efqtly9q33w1uV8Jk+L7co+08Sj1SkfrCIVG4SmUhBPPe7fevRuPAG\n0WG9cc4fw0XNPPw4fICI0CMViTuBkBsRyYvnNcqkLYIMweDMeP+CLT0RaWOFnR7FyX/yiYrE\nyW0M7TyiNl+9ZolIsa1kIkXp+G9VJF44LshyipS2+co13d1BuEiJrQPV2C7Kx3+rIvHCIlL3\noZ0jbvPlIpWKYaLeZ53f6yBSnLSK1I3aqumqEfmRS9p8uUnFIpm026MyKU7Ivf4E9khF6sdt\niAQ/X4c/sQ2FiMTIXK4NF3ifUIq0vl0GdYBHKlI/OETqf44Et/1DQzu0rQMbWT4gFWlFRZLA\njfRIYOM/MNmAi5S0fbsRgpk7MK95SAdYZFSkjtRXTU+PiI4c1sh3z35XiDT/Q3RVFs9ORWLm\nhkXavrEBCLJTpPxK5WDJwR6pSP3YUzX9PGorUqZhYkE2J7OjmQbTRSREIxWpI91Fap9ewtoK\n0zZfF8WEK0MtHXrbWCTUIxWpHzcgUraRV0VJ7/xJWzr0tp1I40QD7pGK1I9dVXOlIiXjLqhp\nZqJAt/4kLR3YBKFIqUnZpFWkbvQWqUd6IXjjdzNqZWGyseDF0W0QKhIhZxBppItHBEcOb+VO\npOT7eeA40RVV2Ar4toalY1KRCDmFSOMB7eFRY5HM+o9fHo0UdkmgFuH2wkk+FYmSk4j0cEiv\nTSSTNGSzfi93sGdYnKyWwMJonoPCozg5FUkIu3ukXSZ1Si9MNdPuvT9C7hdH4oTxSkQqvK+o\nmDQtFUkI+4d2xg7vxgXyRQLHVcaAIkEtdlz2+eefb5gZLCy+07WCup1Xkbqxs2rmJmjfFHdO\nvdLzM802exM3ULS9DqNGo0mgM0BE4KqTikTIeUQKfvm28ej4kStv9kF5byQ3/fj2+CIyKT8B\nboBRYIvZhrbV1zjeEVSkDul5iWabffJdWsh89fTBItLnBlw53hA466Ai0XFSkTImmReGT6R8\nq98QKSwXi5Q/SYIv3jaYbmhbfW3jHeEcIpl4MhkRyRbnFgnrPaLrp3mR7NjOJMX9okCEcACJ\nW7JN9+prG+8IJxKpYGznyk+9Ur/0vEQhMdZ2ibzN9UifOzkNYEVepKPf3NC9+trGO8KJRQpl\nMtOgzmOPSUQiYa0XbdSRBm722zMJ+Oti/oqBPP7LgzMOnauvbbwjnFSkwYTXk+ZSgTosIkUN\nOWmV2AfRa7P2RxsiAeZG03cd+yQVqRu7qyY9SQquJy2lJIiU+/qefSJ97mbH7wGT7HahYAbb\naLFcfauvcbwjnFWkIbyVFViDQ6RhowMoEmnuewKRptgGFCkfy9ZUKkcmy6Rsr+prHe8IZxIp\nmjwe1i4JXIVJpGyzLFg+7evnMTa/7YjpKC8RqWIOomv1tY53hLOIBB98g2vEJFK+he4XaVbp\nHrqjPLMJcPJj2/egcMfqax3vCKcSKf19LEukzQZaItJQJVJikgHeRRezF0GymbrCHauvebwj\nnFyk3JnQjpMkGSIZUKRRJUAk+PtPordmfhRlyjF/zTgO3rP6msc7wnlEQrskdJXOImVVAVs5\nvHyMhYuUPUsyyeducBflqSJVoiL1SW/jngag0ePLx2i4SLmTIqjD8m6MCN6WnCZ1rL4e8Y5w\ncpEGk5HlBkVCZJg/U5EOcH6RRPVIUIobDT1dPkaDx3b3bkvefXoGCROFN/7lWaMiVXIakfB5\nO3SF+tmGYyK5F3jDLFo+RcmLZEB90PDWPXfrXdkMeG0VqEjdOCxSMrDJydJbpMH93i8SBls+\nhUOmG/zt+ZbELxMjrBbr9lSkGk4vEulJ0oH0BidSpoE2EAm7XxVyIiynItVwIpGwS0k4HUWy\nTdpkW3PZB1PAYpGKNrCEDcptilRdCSpSN+hFyh3ujpMNgzd0KvQF/2AKRC2St46KVM+ZRJo5\nfrxxjom03Z7LhnZlIoWzd3YyLudF9DitDu1qUJFquC6Rlg37N/RudEn+5rZvbehYfX3iHeF8\nIlWdJVVCJFKpMOjyMWL2JOk7UAKZDXj1ZEvRd0gqUpZ7KYy/eccfyfHOrDH+M/2/cWpDeIn0\nsEhj7rBIy47Fu1Qi0pJc+SnSUoMdKrCEwy35EKfqkeBnOynyWtj/3GEgEtpKa3qk3Ngu7ZC2\n75n1VCsSqWf1dYp3hBOKBLY6Gg6IZMI5MbiZGqSvohIpew0ruqehSCR9sM9yKpEWgANOxO4v\nOQpuachNgcNNHe5lcZO+A7TwcIIb27Qb2W0+2jcH7VJ9veId4YwiAZcviaATqW6+oUak73xn\n/D+421kxXFqF99fOEbtUX694R1CRatgvkn9e1FKkzx8s+s4oErTfOTFsR+n/sbNc4SVil+rr\nFe8IKlINhCKh8w3Qp8gECiqS8Qr5WWQx4bPmZXPlXaqvV7wjnFIkAxxyEnamNwQjO39+LG2g\ny2nKfpEMKtJWj4SKFFWoigRwyyJ1u6I4hGccJvoZt1KTTJBXiDSfJWF7njcpFmkd5PlrwsPG\nElSkblBVzbZI/jM4xRwRKdUCaNbrRdHg0xqRPl/3H8xkS6T41tV5iZ/+blSkbtyUSIBJ8VVR\nvOAILNLn4V96iTPZ0Ci8cOwucatIG9ysSK5cTdjdIgUPxuIiBX0VtIY3pWYyIn2OnyTlnpJd\nS3kiJRnsR0XqxilFGjCRkru6wxfB3XkQtSKFQTGRvCXruZ07d9pVAwsqUjd6i9Rl2ikjEjKl\nEHcD0NmU2dsjofPuayFvkctl/mhXBVhUpG6QVU2xSVUqHflGZUgY7EQoHlAhIm2dJKVZ4D1S\nUMhbGIq0e/8nVKRuNBcpbV81v2WPf0Fkzh5gcXKGEuxVrUfAFaq8SEMk0kFUpG40GNoNyfK0\naGnY3UO7sM2Crw242OREQk3CRQLSiWopztR+AysBKlI3eoiUFi4Ou3/6u0AkuEg8gXdMJCCb\nLZF2XSeAUZG6wSNScTuhFwk7DQq7pF0iFWaTVJK/0P3Yt+MRKlI3WogUNxKwcFlYGpHCLgk+\nDQq7JEwkzKTs74ZikYyX274dj1CRusEiUjkNRHK/9tESUAS3F7BHtSKZpNuORNq33zEqUjc6\niISuUhC2hUjg4A05YUr3CvWoTiSghPGuwbqb8Pbtv0VF6kaL6e9oahdfZbuhNBOp6DQK2ifU\no+MiDba3PIFIl4Unb4hTWLfQKvA+6KoaFSnTJXGJlBY5IBJ+6zeSTVp03ar9Z1m8b/cd/CJd\nLq1Mui2Rsi2MTSSgbRcP7WKTXKzybHIihU/xXbNI04/3zy+PiHNwW2gUdyeEVY2JtLFKNmYT\nkSBT9olkvFuRyrPZ7JHOI9Ly4v3Ty+Xpe/N+serR5a1dNBZ49+Ry99yt46+Q3UJ9+i1pI9Lg\n3X6ZX2Uj5oFvESIXKZ1t8GctypNBrwfYaFST3wJEWnqku3GM9/DiyeXdw7t340u76KHk9PJ5\nIJL7NLOFnfvQCMqqjtoK1mrS6Tq83YgWyRfgmEjePMOQr5A6xYScI70aNXl++cK8Hl88vHq9\nLnoo+fi9+eJy54u0fprZwrFdoYa2qtHWtxdRIsUm+Vd2q7KBS7g4g8EvJNVVKL9IT9+acSg3\nLXry8OrBF3N35y+6TL3UqM8q0vppZgv7dqEVbUWalh0JKEqkJXbkEbVI+aux1yPSwz+vL4+X\nNzPmoed5Y95cXvmLVn38V/bTzBZ270UTiKs6bZ7nESnYQCRSTTZwCXtGuYTEQ9VUA/c50vPZ\npNWL95enDwvfq0hbACIdQtSsnTcZ6W+FSCS/3FlEehijvTJ2pDbx9PJuGrGtiyKR3q1Du40t\nFOfSBfKbPhKROHqkFiJ5g1T7Hhcjkw5SwptIz/0CujKR3l4ub8eO6bkxX06905vlEu26aBXp\n7vKlef94fOWtgG9h/260gP7uKaTx7WOvSKnQeZHyxd1CYBdLTCoQyZxTJPNqnMR+P81mj0qN\nnc00q70uWkV6Pi55NY0AvRXQLezch0Y0qGq/LTJ+6UA3kepSwUXyCp5HpHlw9+7p5fJ4vlfo\ni4duZ8Qt8q4ePb97KDwP8NYV0C3UJt+WFlU9NxdOkdYEYDWOiVTrUXyBDSoRFsSFuZbrSO25\nAZHcqbNhG9rlRdo6h2ooUmE59ORSRbLcgkgz/hWWvT4dmGww9v8FosSDL2KRTGHhbZEqZ0FV\npG40rWq/kRKEKybd4IYohSO7viLBJUo251CRutFcpIpZ4q1wxXgbTIUAlpaO7ACRahKqEwns\nklQkx82JVNfkcuGKsRsELcIk8QqhIiUmVSVUJxI4HlaRHDcqEkW4YkA/5iQgR0pGdsNybcqP\nX75Xu0TaXWkrKlI3Wou03gZwPFwxiBHphdoakZbQXvyhPL8qkdy7XTvvoyJ1o21Vu05gb6ug\nFGkW+4BIro23FWl9BxUp3OCMitSN5lW9XFzsKpJtkYAu2yLlh3/eF6fU5Fcm0jrNabAvtFCR\nLLcokukuEtD7+KdsUxlEHdgjt3hdtSa/WpGGaz9H+iAHSS63JpJxT9rQhCsG7mi8kSYmUn5C\nYg5t94ZaJP80juDrVvlE+l45SHK5OZFGuovkBpReC/aEWC7T2Ek4MSL5yVx3j/S9c5DkoiId\nD7dJ1Pj9l6tIxroU9l0bQ7twnNqiRzqFSN8nB0kutyhS4S/j0nDb2JtmEQ/W3iV+MWA9EuIC\nfY9kziHS981BkouKdDhcCfbKaTqDFw/lEnm2JvbS/EpGbOUiubmMaxbp++UgyeUWReIY2rlm\nmIoE3LSaEymeAdyVX5FIwWWqXI9UWpl8In3/HCS5qEje4p3hClifekhMMXUimWSQuCe/Eo8C\nka78zoYfkIMkFxXpeLgi7G/1RI7aoV0s0q78ikTyMzfFxTPwifQDc5DkoiK5hbvDlRA6Eozs\ntkRKuiRcpPLzmBKRvB5p/+8eHz6RflAOklxuUiRwnDIgy0vCbRJ1MP5FTqjPyd3bkBvalTf2\nEpG8oiQdEqNIPzgHSS43KlKKbb9E4dLwXv/ibyg1JRrsVfRIFa29QiR7ces4fEf3h+QgyeVG\nRYI6pILxy3GR1tuBjOt7siKZSCRjH0WKuqTKbqNGpKl83e7C8In0Q3OQ5HKrIsXnFkM3kew7\n1zVtiDSErpmow/Ju1KvpNopEcrtL0h9xivTDcpDkoiIt7/32CRTIh9smFMm5gfVI/lDQrO+N\n780qkq9URUKbZVaRqvc3H4+I8ng/PAdJLjcqUtzm0uZLLJI3ojNetwKJFPxxZqu4XXftx1KT\n2olEBF+8H5GDJBcVaXmb3mJQE24bG38dP67GDvF2Q0vYRKKGT6QfmYMkl1sVycQiLT/yJh1K\nLzwt8kQaks16r61IXnpJD9ZcpKsf2v2oHCS53LpI65QX8FUktOn5Iq1dU36uYR3/xWv6WapI\nW/zoHCS53KxIFjekay2S0yJwBLhDyC1xmWFdUPS+UqTtIrv3FYFPpB+TgySXGxZpCG6CgR5X\nIE1vAHukVKS1k3JzdRsirbPoVelsF9m/szB8Iv3YHCS53LJIThWwubY4R/LHj64bBDTJjuXS\nRN3kX3U22TUqrkqVFeMT6cflIMnlhkVajz/2iz5pZ0d7JFCkdKvxPeLYhaPQpDqRlpz2f5rs\n2jZ8Iv34HCS5qEgGFSltHhQ9UuADItJgOwzIHUikwW2gPqXMx8VhpIv0E3KQ5HLTIi3gDTRu\nSodn7datYSLZUV2wPBQJNGlyrzY/GpFswpvwifRhDpJcVKSMSElLIxTJjt5M5IUTKV0Iv+MX\n6Qp6pJ+YgyQXFclk2iepSO4EPxQJsgQe72VFmlpzvUgkM3OlQfhE+kk5SHJRkbxTeqj9Uqbn\nWwD2SPYcCpngzpmkIuX4yTlIclGR8JMR4qEdItIQiGRgkba7JBUpx0/JQZKLipQTKW5oR9NL\nrg3Ff+BoKBMJ/nxHfjTXXOWL9FNzkOSiIoUiBdNoDURab1dYtuenYNYssiIhorUQCSsQVIx8\nkX5aDpJcVCQT/7KPr4NSprdKYH/4KeQm4vNju2WKgrj67gtFqohHSnm8n56DJBcVCb+TzTVv\n12zIRQpyyM0fbpwkNRMJ3RHieLsoj/czcpDkoiJlbgk1fiOlSc/rinyPCkTCT+VaioT1PMOe\nLolPpJ+ZgyQXFSkn0tq+51/BVCLNL/14GyLF3xwE5UySX8A96suSRXU8Wsrj/awcJLmoSFmR\n7DybIWuo621HuEhBrzUsUyC4SHZ1wuqz4TBfdnnEKNLPzrEWuzwArm8/uOAlKvLugESR7EKa\n9IL79zyRgkSMt3035+GnGFrFItKOqHwi/ZwcrtTF/RPhPsB1UZEykw2mgUi59KIc5o2v3ZIr\nEQ701klz7ZEwfm4OVwoQ6RJ+oCLlAESa/3n5kluk4HZx+9qb/POfbyLNb1jmLvZ1PQh8Iv28\nHGHRyRc3gAtFytiiImEn7ubBIyfS3gueteklIoUzD/FyP3sw3n4yIqW3ThXCJ9LEz49ZFoel\nLkHPFImEniKpSCYRyTael5FIPdLzhAH+3ItrvjZP43kGxttPTqTkZt5C+ET6KEdQ0g3grDeX\nS9Qj6WQDRtxYp39epiK97CZSdA9eKJJLycQekeY3DCcS6RfkCErakd0F6pGM/zNERcJEemlF\nsidJXUUKJIlyS68ZtxHJagt8cG0i/cIcfsG4z1GRKuLlRRp4RBpUJMJ4vyiHV87vhuIFOrTb\nIG6rEkQa8iKZ8L31iDY/RKRl+3si8on0i3OsxfypOt8MXySdbMAAG2sg0lRonAzvKhLgUXTr\neGuR3BXhKMPruyD7S3K4Uu7cKJmc8+9sgLegImG/9VeRFrqINP+DixSN7fyLSFC8Iwxgl7T+\nqqmHT6RfmoMkFxUpaapLM/FFengxzuIRJwemZ1soLFJ8kmR7KDzefmzcIVp4jSL9shwkuahI\nsUbxOdK45OUCcXZQj7ScHgkQyepyBpF+eQ6SXFSksJ1OtrgOaTLnpUfr9NyQruocCY93DECX\nwax/2qkaPpF+RQ6SXFQkWKTVnJcdRbITy6EtaYfUT6ToBMm/UFwfj0+kX5mDJJdIJDsncXeX\nWefuLvvxEbhn7Yw9E3oJQpwdfI4EXC3COqR4kNVYpPDevnqT+ET6VTlIcvFFurt44KvcuX/o\n6V7VUXud71TFPGouUtjPCBQpqCpTOw3OJ9KvzkGSiy/MF55HX+CrnEykqHXMwlyTSJl4B1mF\nCdLzFieTEVn4RPo1OUhyQYZ2OU4nkn8dFDGojUfIBVn8HCn5gFukOvhE+rU5SHLZMdkQiXR/\nNaS5hi23RKTGCeY7JFCkZiktD8gObq9Dke6jCjXj/zhbQ67N/roc9QoAxCI9v61zJPfrtUQk\n4tyA9PxsSkZ28d2j1NUX9T3X2yP9+hwkuUTCPL+xyYa1VRSJRG1T7hxJgkjRdMP1ivQbcpDk\nEglzd3n7+PLu/ePLG3yVM4o0XK1IVbtbnV69SDnD+ET6jTlIckknG15dXpv3l8f4KqcWKWfS\nLBKlS1F6gTCgSGG53iIls98p2c6KT6TflIMkl1Sk1+PU940M7fz2uNkljSsQ90oZkcC5hnQ+\nr2p369OLthFtF3gwSahIvzkHSS6RME8uX767PDJvstPg57mzwWu5myKN5Zdrtc3SKxXJ+IvK\nd7c+vWgjgEjxOjmRqCnf3d+SgySXSJjRoMfjXMNTkujV8Ii03uCQ7ZDWm4dapbclEnBFtmZ3\n69PDRHJvk3Vk9ki/NQdJLnHP8/qRMU8vl+ckwethEmn9JzfZ4N0L3ii9xWoTdDqASPEDfYW7\nu4NoK1GPBDnj3/TQOL3yeL8tB0kut333t3+Fcx6oZEVa7x1qlJ5tonCH5IkUP4hUtrs7QERy\n73JrJov4RPrtOUhyuW2RvK8gWA47r0hm/VUPe+S1ZBE9Ej4LDmRHTvnu/o4cJLkE35VSdvd3\nS3jutfOaR7FIJC5BIoVjt0Ak46cKtVR6kZArScu7/GrNTSrf3d+ZgyQXFSmci9oQyQlFczkp\nTS8vUuZ+1bLdrSc2wjcYmrULn1pqm155vN+VgyQXHdqFVxlLRaIZ4tWJNPQWaQyXiuQPQKMv\ndFj2AHv6j0+k352DJJcbFymaHisWyeuaqNMTLtKco/sxhEvc4jXJdulVxPs9OUhyUZECj6pF\nOmbSIZGAebEGIoHTBgPwyv8YsZ1PpN+bgyQXFSloqfwiZTyKLi4BjbiXSFsEIq0r84n0+3KQ\n5KIiHeyRDpl0DSLlb5/b6JJCDflE+jgHSS43LlI0WBIg0pJWgUjtbx0oEQlGmki/PwdJLrct\n0vpE37BrXNdbpNiryt3dmd4OkaJbmcJ4ZJTH+wM5SHK5cZGGwx4dMum8IoUPfJBmtVK+u38w\nB0kuty6S1yx3enTEJDA9WCJGkeCbU03+aVhjvIxp03KU7+4fykGSi4p0XKT9Kl2JSJgx1yPS\nH85BkouKpCLVpVeOl/Gy4HhKAeX5/ZEcJLmoSOJEAnK7epHs/XcUWa2U5/dHc5DkoiK5Iy1F\nJFCaaxdpuQ2PlvL8/lgOklxUJHE9kkiR9nQmYcZ0aTnKd/eP5yDJ5bZFOn4Vqa9ILBdkbU7V\nqyc9Et91pD+RgyQXFYmgQ9ptEpzeKlJ8prTVJbXskeoHZ0N0jsQo0p/MQZKLiiRYJJOYwyaS\nwTeKI6dH+lM5SHJRkexxlilSPJpjE8mgG8Wxe8Ev0p/OQZKLiiRUpCFohgJEsokVr+32wA0M\n+UT6MzlIcrl1kVaTxIlk4nkvdpGq71NwD/bNP/hE+rM5/IKID/ZbTPCvM1GR5IqUqrM1bdfh\nOlKtSGb9fgdGkf5cDq9czpKLyemiIlGIRJse1geln9XvLkF6FawPHzKL9OdzrMUuiQ+X9V8V\nKY9rlPJFSp6R3bG7x9Nbkpwz9d+BxfwSfCL9hRx+wUUcN4ALRcrYoiJRdEm06WVEir/0qH53\nj6cHgI/2XJbjTz6RJv5izLLYL3MJ/4lFwr/xUUW6GpHs/QUCRSqgxT1C5fn9pRx+wUAk912p\nQY+kkw0wa6tcv/exk0eVIjl7rlMkepPK8/vLOfyC69wc1CMZ/2eIirQ21JfuPKlSKOL0ckO7\nwKQ9u3s8PS/R4MdWYU6R/koOv2Dc56hIxfFSkUztxANxelsiYX8diatHKhWJ3KTy3f2rOfyC\neZF0aJfDOweZ/xxf7fkSdXqBSFVjO8FDO0P/OFJFfn8th18wnmwIl2ZmwFWkYBpMhEgbJ0n+\nfMOO3T2enhjK8/vrOfyC8fS3Xezd2QBvQUWKRTLD9Yi0Z3ePpyeG8vz+Rg6SXFSk5MJMrUj0\n6Q1ASoPcc6QriPc3c5DkoiIFItmLNXJE8kyKRUrPOlQkhL+VgyQXFQkaSEkSyc0umDXFZTL5\n2s6R+OL97RwkuahI0UiqWqQG6cUiDct91OtbW6osHnF6VXxMHM+nPN7fyUGSi4oEilRhUoP0\nEpGW70uIhnYyRfoYf8sn0t/NQZKLigSJVNMlNUgvFcl2RK6DkitSZJIMkf5eDpJcVCQDd0nF\nKjVIDxbJfmJkX0eK/naXDJH+fg6SXFQkA3dJpSa1SA8UabCDO9FDu+Sv4MkQ6R/kIMlFRTLR\nBLh71d6joluE/Om6DZH4vhLYkv45Sb934hPpH+YgyUVFMphIRSa1SC+0aF1wRSL5S47Ey1Me\n7x/lIMlFRRqBRCozqUF6cHc02JMjoyLVx/vHOUhyUZFGwHZbZFKD9FCR1gXwrB35cwrVRwP4\nQ+EyRPonOUhyUZFGsHa7bVKD9LZEMipSdbx/moMkFxVp5NpEgm9bVZFQ/lkOklxUpJErEmku\nAokUe3WciqMx+QJ4JESkf56DJBcVaeR6RJr7HXk90uwLKNL6lk+kf5GDJBcVaeJaRHJ3Cwnr\nkT4WLtK/zEGSi4o0IUik0KPou7/tD0QkYpPqRPoYFcm+5xPpX+UgyUVFmrkSkTI9En2HVF57\nkywfe4Qf8Yv0r3OQ5KIizVyFSCYWKVrtWDJl6YF8HBN9VBuPOj/zb3KQ5KIiLVyBSG6SQb5I\nH4ef1Majzs/82xwkuahIlisQab1LKBFpfst193cq0sfBJ7XxqPMz35ODJBcVyQKKZLZuE6JP\nLyuSm/8ORRqi90QcEelj/5PaeNT5mX+XgyQXFWklFWm7U6JPL96+iV55twjF6xxLpiw9AEgj\nYSL9+xwkuahIK0JEwi4keadx3jOzLnM+kXImCRHpP+QgyUVF8vB//7OJZJBvWvWFiqYW1j6L\nlqLa+xjxKLhEWxGPOr+J/5iDJBdhIlFTLVLsEcfQznvpGRT3TMEqyyKOyYarEOlZDpJcVCQf\nQKQNk+jTS/qiZeH1iZTc6sAn0n/KQZKLMJF4h3YGGNrlRWqQnrdltyD4ID5B4haphIp4loKB\nanm8/5yjJisUFckHFClnUoP0oo2ny29EJKr8Jj7JQZKLihQhl56T2AAAFNlJREFUSyT7YLmJ\nFqlIdfH+Sw6SXFSkgNrZhgbppSINgEjgOhwiFXnELtJ/zUGSi4oUIEAkcPI7vOMumehWkTb4\nbzlIclGRAmovJLVIDxIp/rt94Crk1Xcekb6egyQXFSkgef7HiBQJXoVDpDKPFpP4ju5/z0GS\ni4oUAA2ieosEPRMbfCdkOjEsX6SPC+NR57fwjRwkuahIAdDd1u08qhHJ75KQNRhEKvZoMonv\n6P6PHCS5qEgB0a9+OSL5d4HLGdpVeDSaxHd0/2cOklxUpIDkrD4/2dAmPVAkv29C1ugtUpVG\nvCL9rxwkuahIAdcgEt4h9RWp0iNWkf53DpJcVKSAOpFapbclEjb73VWkWo9YRfo/OUhyUZEC\nVKSC9EaqNRpN4ju6385BkouKFAI8riBEJP8mB7A8Ho84vZErE+n/5iDJRUUKGCSLZNwCsDge\njzg9s88jTpE+y0GSi4oUMHj3WksTaZAj0i6POEX6Tg6SXFSkgMG73rm2z94ieRePApHcvYBg\n6Uw84vT2efQxbXKZ/DhQkQJmkZaLNVsmtUsP6o8G7zlZsHQmHnF6KlKKihRgT0XiexzaeFQn\nkn8GB5TOxSNOb6dI5CapSChSRBq2RGqbHiyStwQonYtHm95ej8hNUpFQBIgE3ifaxqMqkQwq\n0jrcU5HYUJECgtYrTCR/CVA8F482PRUJQEUKCEVaX7XxqEYk75u/VaR8fiyoSAFRR7S24iYe\nVYkUdkxp8Vw82vT2i0RskoqEIkukwTuRb+HR7YlEa5KKhMIvEvZcXQuPdosEFc/Fo01PRQJQ\nkQLia6Br+2UWKVwEFM/Go01PRQJQkQISkexQqolHeHqJPoFIUOl8PNL0johEatK5RLo/EZBI\nJhapTx6hP0HXFGcwj0g7pLVs7qBIzfJiRXukgFSkIRKpT3q+SPHjhnvikaanPRKAihSAimTY\nRJre+rcr7YlHm54Uk1QkFBXJ5rGKFDxNsTMebXoqUoqKFICLZBhF8rPZF482PRUpRUUKQCcb\n7FlSp/QwkTb+jp2KxIaKFIBOfw9cPVLUIUmYbFCRAFQknwERybCJlPxxin3xSNM75JGK1AV2\nkQws0sB0jjTE7IxHmp6KBKAi+UBzDSbokDqJZG+WFSmSDu0AVCQfqOnOKnW+IIuKlFdJRWJD\nRfKBm27wPFKn9M4rEqFJKhKKVJHa3LOaEwmc+VCRivLjQEXyAf4Wc+RRL5GMirQ/Pw5UJJ/O\nHdKWSMnctxCRpJwkqUgovCIhIzvDIVJyDclA31ZcHm8PKlI5KpIHJlIrj7LppU+9G+ihvuJ4\nlOmpSAkqkocwkaIs7I3gO+PtoIlIPfJjQEXygc/um3lUI5JRkcrzY0BF8kCmyXhEAr6FRUUq\nzI8BFckDubGhyW122+klaZiNW1ZVJEZUJA/wMpKRIVLBVIOKxIiK5AGP7Nz0N3FuW+mpSLvz\nY0BF8kBEsiYR57aVHpCLFJGEfP23ioQiXKSu6dV7pCLxoSJ5YCLNJnVPT0XanV9/VCQPVKRB\nRQpBHVGRZCBPJPu3HiSIdDBeNZlwqCEqkgjkimRUJJ+MIN08UpFwxIo0CBDpaLxqykXKfaYi\nMSBQJPuTXaTD8aopPkeCPsXPozrk1x8VyQO6s8H765cqkiMvR0akTvn1R0XyEC3S8XjVFIoE\nfoqM8Drl1x8VyQMUaVCRUjbkQEXqlV9/VCQP8BsZhYhEEK+aMpHgj1UkVlSkMJ8qjRhuWkU/\nNyoSKypSmE+5QyXxatkSCV+zyymSioTDKtIAiuQ3597pVVlUEI8sXIkVKhIjzCLBt7epSCkq\nUoSKtIKJZFyL5h15do+XF2lz9dYeqUg48kQKOgXhDb+jSCWoSHwIFMk3SXjDFyZSahJJVisq\nEoqKJCmeilSOirSiIhGH2+dR+QyLioTC2bLA2W8V6QCNOyQVCYdXpM1v7hHe8KWJtPG0xWFU\nJBRmkSCPfJOEN3wViQ8VyaEikYdTkbhQkSTFU5HKUZEc+J80F5EeQzwVqRwVyYJN2qlI+9kr\nUuEMuIqEoiJJinc8XGhRcTwV6SgCRRKSHkc8gnCzQktvVC4SywPBh1CRLCpSm3DL07JV8eJ6\nR1CRUOSJJCU9jng04T5e/iuPl1Y8jIqEIkkkYIAhvOHLFKk+nop0GFaRtr//SnjDP5NIlPF6\noCJZVKTW4UrjlXqkIuGoSJLiMfZIpPF6oCJZVKTW4XT6ux8qkqR4KlI5KpJFRWodTkXqh4ok\nKR6fSMTxOqAiLQSXkbDzXeENX0XiQ0VaiESCj6Xwhn8GkQb3D028XqhIC7FIB8OVITweWbiP\n55uEikUqREVC4W1Z2fOj+nDbCI9HJ1L5YxQ1f35DRUJRkSTF4xFJv9eOABVJUjy6cMUi1Xik\nIuGoSJLiqUjlqEgr+WtI1eEKEB5PRSpHRVpRkZqFK35CtupPfapIKCqSpHgqUjkqkmPQc6S2\n4Qrisf7t6UOoSA69INs43Ha8qjMkFSmDiiQpXu/0Kj1SkXBUJEnxVKRyVCSHitQ43Ea8XMXv\nidcXFcnh/Z0xinAlCI+nIpWjIvlseMSdXu94KlI5KpLHlkfSG/5Vi7RR9dXxOqMiWdbnkUjC\nFSE8XneRKON1RkVyWJGIwpUgPF7P9HZ0SCoSjoQeiSZcEcLjqUjlqEgWKxJRuCKEx+stEmW8\n3qhIFhWpdbjNcyTSeJ1RkSw6tGsdTny8I6hIC4OK1Dqc+HhHUJEWBp3+bh1OfLwjqEgLQ8Ed\nQuJbgorEhoq0UPL9kOJbgorEhopkUZFahxMf7wgqkkVFah1OfLwjqEgzgycSQbhChMcTnp6K\nhMN4jlQw1yC+JahIbKhIC0PBUxTiW4KKxEaNSHcjy89G6XCKtN0hiW8JKhIbVSJ5PxqZxPoY\nxaZH4luCisSGimQp6JDEtwQViY0Kke78n6cViSpcEcLjCU/vakWyp0jG+CLdn4BxP5xH3Mko\n+yD1opraHunupD1SwR2rNeEKER5PeHrX2iNNnFUks/0MRV24IoTHE57e9YnkzXefV6SSp52l\ntwQViQ0d2lkGFalxOPHxjlApEjDZQAr7YxRU4coQHk94etcqkhvhnfTOBhWpcTjx8Y6g99qt\nbH+PjfSWoCKxoSKF6PR3u3Di4x1BRVrRHqltOPHxjqAiLYwOqUhNw4mPdwQViTGc9HjC01OR\ncNirWs+R2oUTH+8IKlKA3mvXMJz4eEdQkRjDSY8nPD0VCYe9qrVHahdOfLwjqEgB441ChOG2\nEB5PeHoqEg57VatI7cKJj3cEFSlGv9euVTjx8Y6gIsXoVxa3Cic+3hFUJMZw0uMJT09FwhFe\n1cLT093lQ0ViDCc9nvD0VCQc4VUtPD3dXT5UJMZw0uMJT09FwhFe1cLT093lQ0ViDCc9nvD0\nVCQc4VUtPD3dXT5UJMZw0uMJT09FwhFe1cLT093lQ0ViDCc9nvD0VCQc4VUtPD3dXT5UJMZw\n0uMJT09FwhFe1cLT093lQ0ViDCc9nvD0VCQc4VUtPD3dXT5UJMZw0uMJT09FwhFe1cLT093l\nQ0ViDCc9nvD0VCQc4VUtPD3dXT5UJMZw0uMJT09FwhFe1cLT093lQ0ViDCc9nvD0VCQc4VUt\nPD3dXT5UJMZw0uMJT09FwhFe1cLT093lQ0ViDCc9nvD0VCQc4VUtPD3dXT5UJMZw0uMJT09F\nwhFe1cLT093lQ0ViDCc9nvD0VCQc4VUtPD3dXT5UJMZw0uMJT09FwhFe1cLT093lQ0ViDCc9\nnvD0VCQc4VUtPD3dXT5UpDzhH2YWl17beMLTU5FwhFV1/AfOhaXXOp7w9FQkHGFVHXkkLb3W\n8YSnpyLhyKrq2CNh6TWPJzw9FQlHeFULT093lw8ViTGc9HjC01ORcARVdTKuOxYORHg84emp\nSDhyqjqesDsYDkZ4POHpqUg4cqpaRRKfnoqEI6aqIY0EpZeJN4yQhvMXHQouvfqOoCKBII1F\nSno4wwJJsHsXLwi/tfkrrr79qEgQWGMRkh7OQCrSGs5GxKIPSfFrHBkfQUUCQNuhjPRy8Q6K\nNGQwSH+XaIbaJL36jqAiAVytSHiXUbpiCeB6WAx/mCe/+vajIgGg7VBGeihB+63QqUKiJey6\njRrxhFffIVQkgBOIlDTiutVIabW7KhKOiKrGm5+I9CDm9lrSmKE1W3tkNy+2+ghQkQCuTaTy\nJr1vPQIod9ehIqHIqOrrEqmyNe9a8zAUO5qgIqGIaKlXNbQ70JpbSVOewUFUJBQRLRU/4jLS\n818facYtTNnKIHPfQz0qEgprSx3864rHwxXAKhK9JjsT2Y2KhMLbUoML9MfDbXP0evGB5ktv\nR2UyBDapSCjcIvlzyIfDbcMnEq0VOzlYeyoSjoq0jZfd/lZL6cNuWKqvESpSwPWItHEBNtdq\n6Uw4Ckf1NUJFChn8hno83AZgvMH9A314vM2SKEBEg+pjQkXyGQZGkYboFuplaViCoNUejELK\nsblwFQnlNnukoGkFzWxOKC21s9WShKFkzedA9YlARfKZJ2X9w3woHLaRIF5hgyNptKWb68iR\nRxFVJBTuC7L4c6D14cBNmGgw07PJ9t5gJfW1qSKhMIo0xCIdCwdvI+jwSPqZ2nbacYu1VFen\nioTCVTXrdRnTViTuZsqZwSa11akiodBWzXKTZN0aJnOP0MH0+Fspawab1NanioTSoGqqjg80\nAe1xxSKxJ7DFjvpUkVDYp79H8GN7LD3GVhqdnImkvkJVJBQJImWO7ZH02Bqo2xXmDHLs+6Jl\nFQmlddVgBwu6gwa46n4gPa4m6naGO4Ms++pURUJp8h2+9oVxkwnrx8GPqLGRpcfRNGNEJIHg\nHqmsREVCaTLZAB0691mmGF16LVvhCdhZqyoSTt2dCNufbxw9+6L0+O4/cvSt70TsrVQVCaW4\nauJ7bcCDQX58VaQm7K1UFQlld9XAB4P68O5PT8E48CSFioSyo2qG9VED4IgcOcAk6alEG+yp\n0iOHoxHXIVL0gKfxJgs2Dgft8T14WUpJ2VGjhw5HK46LdN+UeRslx8MeFLfS8nL38SXKf9/2\nbwXC9nO4JR9Ceo9Ud1TmQxPevr33ABelV8C+7d8IO+rz4OFohXCRhB3hPadwSpb6Gj10OJoh\nVqS5koUd3Jojx5P61XGgsahIOMXnRDxHtvDIcaZ/bRC0FhHIFEnakC5OLwtb7lcJRWuRgDCR\nFlgOZcFR3T5yXTM/A0eaiYq0idBDuXnkeuZ9Dg40EhVpG6HHcuPIdc36JBxpJSpSjKtQnnOk\n4jxzR65vyidid6tRkUL8Kp2/erR7qyxNNXPkOmd8Iubq29NyVKSAsFJ7H8HMl2+l4EeuY9pn\nY3/LUZFS+h++PcfwHtOue/pnYnejUZEAGI5e/VFc70HlTf5U7G8zKlICz+EDD2T+wMLHvn/6\nJ6Ho6h2KihTDcwzhTEoSFbEDp+BQs1GRRoBaZD+Im0cWX9nv45RC9radBRVpBKpJ5uO4fWS3\n2kDnHbh2djWcFRVpAqnKrsex9ngWNIKO+V87e1qNj4qEUvy3IHmOZ81a3Xfj+jjQUCZUpCyC\nDiU6yy1sN66TvQ3EoSKhCDuiA5SawB24So63FhUpg4xjaq/XxnkJzP2aOdhWVKQsbAe08tos\nc84n4GhLUZFQhB/a9Mjp1aMjHGwtKlIM9wENyOQp5tvCTsLBZqMiAXAfUx80yfDIcad5Bg61\nGRUJgvuQeqA5BkeOO8tzcKTJqEgQ3EfUI5+lvHyvmgNNRkWC4D6gHhvpicv3ejnWZFQkEO6D\nGoHnJi/Xq2Wp250tRkVK4T6iAJJzOxv7Gs2tipSpLu4DCSI5t9Oxp0HdqkgGe+KH+yAiSM7t\ndOxpTTcs0shcb8M1nLTLzu58VLakGxdpgvuQKVKpaEQq0gj3AVPEUtqEVCRFIeCGRdr6nUNd\nNcTxhKenu8sHa4+U+iS8qoWnp7vLB/vQLuyehFe18PR0d/lgFylEeFULT093lw8ViTGc9HjC\n01ORcIRXtfD0dHf5UJEYw0mPJzw9FQlHeFULT093lw8ViTGc9HjC01ORcIRXtfD0dHf5UJEY\nw0mPJzw9FQlHeFULT093lw8ViTGc9HjC01ORcIRXtfD0dHf5UJEYw0mPJzw9FQlHeFULT093\nlw8ViTGc9HjC01ORcIRXtfD0dHf5UJEYw0mPJzw9FQlHeFULT093lw8ViTGc9HjC01ORcIRX\ntfD0dHf5UJEYw0mPJzw9FQlHeFULT093lw8ViTGc9HjC01ORcIRXtfD0dHf5UJEYw0mPJzw9\nFQlHeFULT093lw8ViTGc9HjC01ORcIRXtfD0dHf5UJEYw0mPJzw9FQlHeFULT093lw8ViTGc\n9HjC01ORcIRXtfD0dHf5UJEYw0mPJzw9FQlHeFULT093lw9hIinKdaIiKQoBKpKiEKAiKQoB\nKpKiEKAiKQoBKpKiEKAiKQoBKpKiEKAiKQoBKpKiEHBake7mfx/wf4pCZFIjsusuzktGfmcV\naanj5Z/1jSBEJjUiu+7ivITkd1KR7ozoxjAhMikjvu5UpL6IbgwTIpOauIq6E5afisSGyKQm\nrqLuhOWnIrEhMqkJ8XV3Z8TlpyKxITKpCfF1pyI1x82Fim8MMpOakF53EvM7m0gOiZUdIjKp\nCeF1F/6mFJKfisSGyKQmZNfdnfdDTn7nFknY1e8IkUmNiK67u7slIVn5nVYkRemJiqQoBKhI\nikKAiqQoBKhIikKAiqQoBKhIikKAisTBRav9bOgR5UBFOh16RDlQkU6HHlEOJpHePb1cnr6b\n3r17crl7Pn7w7vHl0WvV7ArRY8bBqMr7u8sDd+/Hd9PL53aZinSF6DHjYFTl+eWxMY9HfS6X\nx+/NF5c7Y149LHv/WEW6QvSYcTCq8ujyMKx7d3k0De3CZXpQrg89ZhyMqsy6YK+UK0OPGQcq\n0unQY8ZBPLSLlulBuT70mHEQTzZEy/SgXB96zDiIp7/DZSrSFaLHjIP4guy67PHl0Zcq0hWi\nx0weFwHf5aFUoiJJ4nJ5M54oPeXOQ6lGRZLE8/kU6R13Hko1KpIovni0nDcpV4aKpCgEqEiK\nQoCKpCgEqEiKQoCKpCgEqEiKQoCKpCgEqEiKQoCKpCgE/H9H6CZ3I569wwAAAABJRU5ErkJg\ngg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {
      "image/png": {
       "height": 420,
       "width": 420
      }
     },
     "output_type": "display_data"
    }
   ],
   "source": [
    "# Install and load necessary libraries\n",
    "library(ggplot2)\n",
    "library(maps)\n",
    "library(dplyr)\n",
    "\n",
    "# Summarize revenue by country\n",
    "country_revenue <- data %>%\n",
    "  group_by(country) %>%\n",
    "  summarize(total_revenue = sum(total_revenue))\n",
    "\n",
    "# Load world map data\n",
    "world_map <- map_data(\"world\")\n",
    "\n",
    "# Merge revenue data with map data\n",
    "map_data <- left_join(world_map, country_revenue, by = c(\"region\" = \"country\"))\n",
    "\n",
    "# Plot the heatmap\n",
    "ggplot(map_data, aes(x = long, y = lat, group = group, fill = total_revenue)) +\n",
    "  geom_polygon(color = \"white\") +\n",
    "  scale_fill_continuous(low = \"lightblue\", high = \"darkblue\", na.value = \"gray90\", name = \"Revenue\") +\n",
    "  labs(title = \"Revenue Distribution by Country\") +\n",
    "  theme_minimal()\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "id": "82d09662-ff0c-47c9-9dd1-26362770a12a",
   "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": "4.4.2"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 5
}