Initial EDA.ipynb

{
 "cells": [
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### Initial exploratory data analysis\n",
    "\n",
    "Usually for data analysis I use Python. But I have selected R to perform EDA for it powerful visualization tools. Especialy ggplot, which is have port to Python, but documentation is poor and features are limited.\n",
    "\n",
    "First, I wanted to see a split of cases by type. At the moment I decided to choose one color scheme for cases types to use it in all further plots. Here http://colorbrewer2.org/#type=qualitative&scheme=Dark2&n=3 I have chosen dark color scheme with 3 distinctive colors: #d95f02 for robbery, #1b9e77 for theft, #7570b3 for fraud. Roberies have the smallest share overall cases, but they are more important as they indicate much more serious criminal problems. Therefore I have chosen a noticeable orange color for robberies."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 6,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "'Ukrainian_Ukraine.1251'"
      ],
      "text/latex": [
       "'Ukrainian\\_Ukraine.1251'"
      ],
      "text/markdown": [
       "'Ukrainian_Ukraine.1251'"
      ],
      "text/plain": [
       "[1] \"Ukrainian_Ukraine.1251\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<table>\n",
       "<thead><tr><th scope=col>Будинок</th><th scope=col>Вулиця</th><th scope=col>Дата.час</th><th scope=col>Орган</th><th scope=col>Тип</th><th scope=col>Час</th><th scope=col>Latitude</th><th scope=col>Longitude</th><th scope=col>Час..секунди</th></tr></thead>\n",
       "<tbody>\n",
       "\t<tr><td>11А                                                 </td><td>22 січня (Рудно)                                    </td><td>13.09.2015 17:05                                    </td><td>ЗАЛІЗНИЧНИЙ ВІДДІЛ ПОЛІЦІЇ ГУНП У ЛЬВІВСЬКІЙ ОБЛАСТІ</td><td>Крадіжка                                            </td><td>17:05:00                                            </td><td>49.83410                                            </td><td>23.88709                                            </td><td>61500                                               </td></tr>\n",
       "\t<tr><td>7                                                   </td><td>Авіаційна                                           </td><td>23.12.2015 10:02                                    </td><td>ЗАЛІЗНИЧНИЙ ВІДДІЛ ПОЛІЦІЇ ГУНП У ЛЬВІВСЬКІЙ ОБЛАСТІ</td><td>Крадіжка                                            </td><td>10:02:00                                            </td><td>49.81093                                            </td><td>23.93180                                            </td><td>36120                                               </td></tr>\n",
       "\t<tr><td>                                                    </td><td>Авіаційна                                           </td><td>05.12.2015 13:20                                    </td><td>ЗАЛІЗНИЧНИЙ ВІДДІЛ ПОЛІЦІЇ ГУНП У ЛЬВІВСЬКІЙ ОБЛАСТІ</td><td>Крадіжка                                            </td><td>13:20:00                                            </td><td>49.81252                                            </td><td>23.92972                                            </td><td>48000                                               </td></tr>\n",
       "\t<tr><td>1                                                   </td><td>Авіаційна                                           </td><td>30.11.2015 19:30                                    </td><td>ЗАЛІЗНИЧНИЙ ВІДДІЛ ПОЛІЦІЇ ГУНП У ЛЬВІВСЬКІЙ ОБЛАСТІ</td><td>Крадіжка                                            </td><td>19:30:00                                            </td><td>49.81684                                            </td><td>23.92693                                            </td><td>70200                                               </td></tr>\n",
       "\t<tr><td>                                                    </td><td>Авіаційна                                           </td><td>27.11.2015 11:00                                    </td><td>ЗАЛІЗНИЧНИЙ ВІДДІЛ ПОЛІЦІЇ ГУНП У ЛЬВІВСЬКІЙ ОБЛАСТІ</td><td>Крадіжка                                            </td><td>11:00:00                                            </td><td>49.81252                                            </td><td>23.92972                                            </td><td>39600                                               </td></tr>\n",
       "\t<tr><td>2                                                   </td><td>Авіаційна                                           </td><td>01.11.2015 11:53                                    </td><td>ЗАЛІЗНИЧНИЙ ВІДДІЛ ПОЛІЦІЇ ГУНП У ЛЬВІВСЬКІЙ ОБЛАСТІ</td><td>Крадіжка                                            </td><td>11:53:00                                            </td><td>49.82073                                            </td><td>23.93509                                            </td><td>42780                                               </td></tr>\n",
       "</tbody>\n",
       "</table>\n"
      ],
      "text/latex": [
       "\\begin{tabular}{r|lllllllll}\n",
       " Будинок & Вулиця & Дата.час & Орган & Тип & Час & Latitude & Longitude & Час..секунди\\\\\n",
       "\\hline\n",
       "\t 11А                                                  & 22 січня (Рудно)                                     & 13.09.2015 17:05                                     & ЗАЛІЗНИЧНИЙ ВІДДІЛ ПОЛІЦІЇ ГУНП У ЛЬВІВСЬКІЙ ОБЛАСТІ & Крадіжка                                             & 17:05:00                                             & 49.83410                                             & 23.88709                                             & 61500                                               \\\\\n",
       "\t 7                                                    & Авіаційна                                            & 23.12.2015 10:02                                     & ЗАЛІЗНИЧНИЙ ВІДДІЛ ПОЛІЦІЇ ГУНП У ЛЬВІВСЬКІЙ ОБЛАСТІ & Крадіжка                                             & 10:02:00                                             & 49.81093                                             & 23.93180                                             & 36120                                               \\\\\n",
       "\t                                                      & Авіаційна                                            & 05.12.2015 13:20                                     & ЗАЛІЗНИЧНИЙ ВІДДІЛ ПОЛІЦІЇ ГУНП У ЛЬВІВСЬКІЙ ОБЛАСТІ & Крадіжка                                             & 13:20:00                                             & 49.81252                                             & 23.92972                                             & 48000                                               \\\\\n",
       "\t 1                                                    & Авіаційна                                            & 30.11.2015 19:30                                     & ЗАЛІЗНИЧНИЙ ВІДДІЛ ПОЛІЦІЇ ГУНП У ЛЬВІВСЬКІЙ ОБЛАСТІ & Крадіжка                                             & 19:30:00                                             & 49.81684                                             & 23.92693                                             & 70200                                               \\\\\n",
       "\t                                                      & Авіаційна                                            & 27.11.2015 11:00                                     & ЗАЛІЗНИЧНИЙ ВІДДІЛ ПОЛІЦІЇ ГУНП У ЛЬВІВСЬКІЙ ОБЛАСТІ & Крадіжка                                             & 11:00:00                                             & 49.81252                                             & 23.92972                                             & 39600                                               \\\\\n",
       "\t 2                                                    & Авіаційна                                            & 01.11.2015 11:53                                     & ЗАЛІЗНИЧНИЙ ВІДДІЛ ПОЛІЦІЇ ГУНП У ЛЬВІВСЬКІЙ ОБЛАСТІ & Крадіжка                                             & 11:53:00                                             & 49.82073                                             & 23.93509                                             & 42780                                               \\\\\n",
       "\\end{tabular}\n"
      ],
      "text/markdown": [
       "\n",
       "Будинок | Вулиця | Дата.час | Орган | Тип | Час | Latitude | Longitude | Час..секунди | \n",
       "|---|---|---|---|---|---|\n",
       "| 11А                                                  | 22 січня (Рудно)                                     | 13.09.2015 17:05                                     | ЗАЛІЗНИЧНИЙ ВІДДІЛ ПОЛІЦІЇ ГУНП У ЛЬВІВСЬКІЙ ОБЛАСТІ | Крадіжка                                             | 17:05:00                                             | 49.83410                                             | 23.88709                                             | 61500                                                | \n",
       "| 7                                                    | Авіаційна                                            | 23.12.2015 10:02                                     | ЗАЛІЗНИЧНИЙ ВІДДІЛ ПОЛІЦІЇ ГУНП У ЛЬВІВСЬКІЙ ОБЛАСТІ | Крадіжка                                             | 10:02:00                                             | 49.81093                                             | 23.93180                                             | 36120                                                | \n",
       "|                                                      | Авіаційна                                            | 05.12.2015 13:20                                     | ЗАЛІЗНИЧНИЙ ВІДДІЛ ПОЛІЦІЇ ГУНП У ЛЬВІВСЬКІЙ ОБЛАСТІ | Крадіжка                                             | 13:20:00                                             | 49.81252                                             | 23.92972                                             | 48000                                                | \n",
       "| 1                                                    | Авіаційна                                            | 30.11.2015 19:30                                     | ЗАЛІЗНИЧНИЙ ВІДДІЛ ПОЛІЦІЇ ГУНП У ЛЬВІВСЬКІЙ ОБЛАСТІ | Крадіжка                                             | 19:30:00                                             | 49.81684                                             | 23.92693                                             | 70200                                                | \n",
       "|                                                      | Авіаційна                                            | 27.11.2015 11:00                                     | ЗАЛІЗНИЧНИЙ ВІДДІЛ ПОЛІЦІЇ ГУНП У ЛЬВІВСЬКІЙ ОБЛАСТІ | Крадіжка                                             | 11:00:00                                             | 49.81252                                             | 23.92972                                             | 39600                                                | \n",
       "| 2                                                    | Авіаційна                                            | 01.11.2015 11:53                                     | ЗАЛІЗНИЧНИЙ ВІДДІЛ ПОЛІЦІЇ ГУНП У ЛЬВІВСЬКІЙ ОБЛАСТІ | Крадіжка                                             | 11:53:00                                             | 49.82073                                             | 23.93509                                             | 42780                                                | \n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "  Будинок Вулиця           Дата.час        \n",
       "1 11А     22 січня (Рудно) 13.09.2015 17:05\n",
       "2 7       Авіаційна        23.12.2015 10:02\n",
       "3         Авіаційна        05.12.2015 13:20\n",
       "4 1       Авіаційна        30.11.2015 19:30\n",
       "5         Авіаційна        27.11.2015 11:00\n",
       "6 2       Авіаційна        01.11.2015 11:53\n",
       "  Орган                                                Тип      Час     \n",
       "1 ЗАЛІЗНИЧНИЙ ВІДДІЛ ПОЛІЦІЇ ГУНП У ЛЬВІВСЬКІЙ ОБЛАСТІ Крадіжка 17:05:00\n",
       "2 ЗАЛІЗНИЧНИЙ ВІДДІЛ ПОЛІЦІЇ ГУНП У ЛЬВІВСЬКІЙ ОБЛАСТІ Крадіжка 10:02:00\n",
       "3 ЗАЛІЗНИЧНИЙ ВІДДІЛ ПОЛІЦІЇ ГУНП У ЛЬВІВСЬКІЙ ОБЛАСТІ Крадіжка 13:20:00\n",
       "4 ЗАЛІЗНИЧНИЙ ВІДДІЛ ПОЛІЦІЇ ГУНП У ЛЬВІВСЬКІЙ ОБЛАСТІ Крадіжка 19:30:00\n",
       "5 ЗАЛІЗНИЧНИЙ ВІДДІЛ ПОЛІЦІЇ ГУНП У ЛЬВІВСЬКІЙ ОБЛАСТІ Крадіжка 11:00:00\n",
       "6 ЗАЛІЗНИЧНИЙ ВІДДІЛ ПОЛІЦІЇ ГУНП У ЛЬВІВСЬКІЙ ОБЛАСТІ Крадіжка 11:53:00\n",
       "  Latitude Longitude Час..секунди\n",
       "1 49.83410 23.88709  61500       \n",
       "2 49.81093 23.93180  36120       \n",
       "3 49.81252 23.92972  48000       \n",
       "4 49.81684 23.92693  70200       \n",
       "5 49.81252 23.92972  39600       \n",
       "6 49.82073 23.93509  42780       "
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "library(ggplot2)\n",
    "Sys.setlocale(\"LC_CTYPE\", \"ukrainian\")\n",
    "\n",
    "criminal = read.csv(\"criminal.csv\", encoding=\"UTF-8\")\n",
    "head(criminal)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 2,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {},
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAAtAAAAHgCAMAAAC7G6qeAAAAQlBMVEUAAAAbnnczMzNNTU1o\naGh1cLN8fHyMjIyampqnp6eysrK9vb3Hx8fQ0NDZXwLZ2dnh4eHp6enr6+vw8PDy8vL////N\nvgYmAAAACXBIWXMAABJ0AAASdAHeZh94AAAUsElEQVR4nO2diXrbSJoEwUaPu73enrHXw/d/\n1ZUsHn9B4JHMBFCkIz6LsHgkSshwqUiJ8LAHeCGGrQcAkASh4aVAaHgpEBpeCoSGlwKh4aVA\naHgpEBpeipjQ/7cMS+U+THcDWmpEKTFWBqFFuhsQQjcgtEh3A0LoBoQW6W5ACN2A0CLdDQih\nGxBapLsBIXQDQot0NyCEbkBoke4GhNANCC3S3YAQugGhRbobEEI3ILRIdwNC6AaEFuluQAjd\ngNAi3Q0IoRsQWqS7ASF0A0KLdDcghG5AaJHuBoTQDQgt0t2AELoBoUW6GxBCNyC0SHcDQuiG\nhYXebU+653CeD0JXEFrtOZzng9AVhFZ7Duf5IHQFodWew3k+CF1BaLXncJ4PQlcQWu05nOeD\n0BWEVnsO5/kgdAWh1Z7DeT4IXUFotedwng9CVxY+WePWNr+x7BcIncEMrU5c4TwfZugKQqs9\nh/N8ELqC0GrP4TwfhK4gtNpzOM8HoSsIrfYczvNB6ApCqz2H83wQuoLQas/hPB+EriC02nM4\nzwehKwit9hzO80HoCkKrPYfzfBC6gtBqz+E8H4SuILTaczjPB6ErCK32HM7zQegKQqs9h/N8\nELqC0GrP4TwfhK4gtNpzOM8HoSsIrfYczvNB6ApCqz2H83wQuoLQas/hPB+EriC02nM4zweh\nKwit9hzO80HoCkKrPYfzfBC6gtBqz+E8H4SuILTaczjPB6ErCK32HM7zQegKQqs9h/N8ELqC\n0GrP4TwfhK4gtNpzOM8HoSsIrfYczvNB6ApCqz2H83wQuoLQas/hPB+EriC02nM4zwehKwit\n9hzO80HoCkKrPYfzfBC6gtBqz+E8H4SuILTaczjPB6ErCK32HM7zQegKQqs9h/N8ELqC0GrP\n4TwfhK4gtNpzOM8HoSsIrfYczvNB6ApCqz2H83wQuoLQas/hPB+EriC02nM4zwehKwit9hzO\n80HoCkKrPYfzfBC6gtBqz+E8H4SuILTaczjPB6Erdwg9vnFt+8H8Udna5h1CPxz7nNwWejxc\nXNoemD8qW9u8Q+iHY58ThFZ7Duf5IHQFodWew3k+CF1JCP3HO/MP3trmNyKHCZ6F+4QemaFP\nE1c4z4cZunLfqxwsOc49h/N8ELpy5+vQCH3qOZzng9AVnhSqPYfzfBC6gtBqz+E8H4Su8JNC\ntedwng9CV/hdDrXncJ4PQlcQWu05nOeD0BWEVnsO5/kgdAWh1Z7DeT4IXUFotedwng9CVxBa\n7Tmc54PQFYRWew7n+SB0BaHVnsN5PghdQWi153CeD0JXEFrtOZzng9AVhFZ7Duf5IHQFodWe\nw3k+CF1BaLXncJ4PQlcQWu05nOeD0BWEVnsO5/kgdAWh1Z7DeT4IXUFotedwng9CVxBa7Tmc\n54PQFYRWew7n+SB0BaHVnsN5PghdQWi153CeD0JXEFrtOZzng9AVhFZ7Duf5IHQFodWew3k+\nCF1BaLXncJ4PQlcQWu05nOeD0BWEVnsO5/kgdAWh1Z7DeT4IXUFotedwng9CVxBa7Tmc54PQ\nFYRWew7n+SB0BaHVnsN5PghdQWi153CeD0JXEFrtOZzng9AVhFZ7Duf5IHQFodWew3k+CF1B\naLXncJ4PQlcQWu05nOeD0BWEVnsO5/kgdAWh1Z7DeT4IXUFotedwng9CVxBa7Tmc54PQFYRW\new7n+SB0BaHVnsN5PghdQWi153CeD0JXEFrtOZzng9CVmNDzbG3zG8t+gdAZzNDqxBXO82GG\nriC02nM4zwehKwit9hzO80HoCkKrPYfzfBC6gtBqz+E8H4SuILTaczjPB6ErCK32HM7zQegK\nQqs9h/N8ELqC0GrP4TwfhK4gtNpzOM8HoSsIrfYczvNB6ApCqz2H83wQuoLQas/hPB+EriC0\n2nM4zwehKwit9hzO80HoCkKrPYfzfBC6gtBqz+E8H4SuILTaczjPB6ErCK32HM7zQegKQqs9\nh/N8ELqC0GrP4TwfhK4gtNpzOM8HoSsIrfYczvPZQujhRMqfFAit9hzO80HoCkKrPYfzfLZa\ncvQn8zsIrfYczvPZWuhf2/H9sodZG6HVnsN5Pj0I/c+A0GuR7jmc59OD0F8OM3S9fhsQWu05\nnOfTgdDfh28IvRbpnsN5Ph0I/XX4idBrke45nOezvdA/h697hF6LdM/hPJ/thf42fEfo1Uj3\nHM7z2V7o8cseoVcj3XM4z2d7oYd/EHo90j2H83y2F3rcI/R6pHsO5/nw23YVhFZ7Duf5IHQF\nodWew3k+CF1BaLXncJ4PQlcQWu05nOeD0BWEVnsO5/kgdAWh1Z7DeT4IXUFotedwng9CVxBa\n7Tmc57OF0FeO939TRj0GQqs9h/N8ELqC0GrP4TwfhK4gtNpzOM8HoSsIrfYczvNB6ModQo9v\nXNt+MH9UVtP2Mumew3k+CF25LfR4uLi0PTB/VFbT9jLpnsN5PghdQWi153CeD0JX7hR6j9DH\nnsN5PghduUfoj7XyZaH/eGf+watpe5nMcYKGK8f7Q+gPr669eWWh97VMYo8jKE/3jjYzQ39M\nXOE8ny5n6GFGrlWo+xyHYeY0qayh257DeT7dCr3JewvrTr8Vn7+drkXotudwnk/fQg/74fje\n2fN2ONzw6z5vm1+fD+f7GFxYchQQuu05nOfTq9BlGT2UNUj5mPyJrFN42U7tOZzn06fQp5Mc\nVMuGTx/Dvgp/n5FXmT786zhdQ/OTwrbncJ5Pn0KfztJxvjguNep0PNRNYs0xefjXh//vjPmj\nspq2l0n3HM7z6VXofSv0/Ec7QweeSk4ePpZngxrzR2U1bS+T7jmc59Ot0I3V0+1Ka+jHJ/z5\no7KatpdJ9xzO8+lX6NPC4yjsFaHrfRwmD/9r+Plg0PxRWU3by6R7Duf5dCz0x5rivE4eyn/D\nclpsHP72Yf8QnqF/jF9+PBY0f1RW0/Yy6Z7DeT5dCn1JsGH22iCflhw8KbzRczjPB6Gv7Q+h\nb/UczvN5KqEXJ7a/+aOymraXSfcczvPpW+i1QWi153CeD0JXWHKoPYfzfBC6gtBqz+E8ny2E\n/u8VVHOyzIr748v/yEHzR2Vrm3cI/XDsNZ5M6P3PQTZ6/qhsbfMOoR+OfU4uLC1YclzsOZzn\ns4XQ/75MlzP0/w7j7PVXmD8qW9u8Q+iHY6/xNEKfnhN+VYPmj8rWNu8Q+uHYazyb0KPsM0Jv\nBkJX+MGK2nM4zwehKwit9hzO80HoylTon1//HIY/v+q/FT1/VLa2eYfQD8de42mE/nF4j+wo\n/1b0/FHZ2uYdQj8ce42nEfrv4f0X/H98Gf5Wg+aPytY27xD64dhrPI3Q57eTq0HzR2Vrm3cI\n/XDsNW4KffevBD30i0PX8qbx7fZ+5o/K1jbvEPrh2GvcFnpWr5v++bDkUHsO5/k8s9D597Pw\npFDtOZzn07vQxzMmnd72vS9X7s+nU9of3xTe3L6fnM3j1gqFl+3UnsN5Pp0L3To5OU9S83k9\nn8GN7WX4wYraczjP56mErs4VkT+dEOzCgxEaoR+OvYYv9PFsM+XWoa4oDrcPk+1NZ6c3/vXx\nkD9ZQ1/qOZzn85RCT5Yax+XG7O3OGvrrcUnOqxyXeg7n+Tyj0M12RuiLS43zM8gLTG4ch/+8\nb77zOvTFnsN5Pk8ldJl5m7NFzwg9XBP7IpMb+cHKzZ7DeT6dCz15Ba45dePhL+dH1JftIk8K\n/xr+/vn+2t3w5R6JK/NHZWubdwj9cOw1bgp9n2533qQwiTn9YOW7GjR/VLa2eYfQD8de42mE\nPv5gRT+n7vxR2drmHUI/HHuNuNCxX1DidWi153CezzMJvTwIrfYczvNB6ApCqz2H83wQuoLQ\nas/hPB/ObVdBaLXncJ4P57arILTaczjPhxm6gtBqz+E8ny2E/tdlEHph0j2H83wQuoLQas/h\nPB+EriC02nM4zwehKzGh59na5jeW/QJ/U34Doef/mW9t844Z+uHYayD0dqR7Duf5IHQFodWe\nw3k+CF1BaLXncJ4PQlcQWu05nOfTo9DnN7/epdjNt77eD0KrPYfzfF5A6P2NcxMIILTaczjP\n5xWEzoHQas/hPJ9nELo9T9LnUza2dzucJ2l65sa7QGi153CezxMI3ZxuY//5lI379iwcF85K\ncxcIrfYczvN5AqFP28kJvw7bRujzYxB6lnTP4TyfpxD6tHqYXByXIufTyrSP+eT/LRBa7Tmc\n5/MMQrdeDpOrjzYzQ99Duudwns8TCF0Mrmqftwh9P+mew3k+TyL0cZE8eVI4zDxJROhrpHsO\n5/l0KXTl4/PD7Dx92a6dwE+nOz+F7OvVd4DQas/hPJ8ehb5OTLols+ePytY27xD64dhrIPR2\npHsO5/kg9CLZ80dla5t3CP1w7DU8oZcEodWew3k+CF1BaLXncJ4PQlcQWu05nOfDqcAqCK32\nHM7z4WSNFYRWew7n+SB0BaHVnsN5PghdQWi153CeD0JXEFrtOZzng9AVhFZ7Duf5IHQFodWe\nw3k+CF1BaLXncJ4PQlcQWu05nOeD0BWEVnsO5/kgdAWh1Z7DeT4IXUFotedwng9CVxBa7Tmc\n54PQFYRWew7n+SB0BaHVnsN5PghdQWi153CeD0JXEFrtOZzng9AVhFZ7Duf5IHQFodWew3k+\nCF1BaLXncJ4PQlcQWu05nOeD0BWEVnsO5/kgdAWh1Z7DeT4IXUFotedwng9CVxBa7Tmc54PQ\nFYRWew7n+SB05Q6hxzeubT+YPypb27xD6Idjn5PbQo+Hi0vbA/NHZWubdwj9cOxzgtBqz+E8\nH4Su3LmGRuhTz+E8H4SuJIT+4535x21t8xv+MYIn4h6hP578MUN/TFzhPB9m6ApLDrXncJ4P\nQlcQWu05nOeD0BVe5VB7Duf5IHQFodWew3k+CF3hJ4Vqz+E8H4Su8Lscas/hPB+EriC02nM4\nzwehKwit9hzO80HoCkKrPYfzfBC6gtBqz+E8H4SuILTaczjPB6ErCK32HM7zQegKQqs9h/N8\nELqC0GrP4TwfhK4gtNpzOM8HoSsIrfYczvNB6ApCqz2H83wQuoLQas/hPB+EriC02nM4zweh\nKwit9hzO80HoCkKrPYfzfBC6gtBqz+E8H4SuILTaczjPB6ErCK32HM7zQegKQqs9h/N8ELqC\n0GrP4TwfhK4gtNpzOM8HoSsIrfYczvNB6ApCqz2H83wQuoLQas/hPB+EriC02nM4zwehKwit\n9hzO80HoCkKrPYfzfBC6gtBqz+E8H4SuILTaczjPB6ErCK32HM7zQegKQqs9h/P+tT0XvtDn\nBKFFELpvEFoEofsGoUUQum8QWgSh+wahRRC6bxBaBKH7BqFFELpvEFoEofsGoUUQum8QWgSh\n+wahRRC6bxBaBKH7BqFFELpvEFoEofsmJvQ8W9v8xrJfoM3WNr+x9SGIwgwtwgzdNwgtgtB9\ng9AiCN03CC2C0H2D0CII3TcILYLQfYPQIgjdNwgtgtB9g9AiCN03CC2C0H2D0CII3TcILYLQ\nfYPQIgjdNwgtgtB9g9AiCN03CC2C0H2D0CII3TcILYLQfYPQIgjdNwgtgtB9g9AiCN03CC2C\n0H2D0CII3TcILYLQfYPQIgjdNwgtgtB9g9AiCN03CC2C0H2D0CII3TcILYLQffO7Cf3v7UHo\nJUHo1UHoJUHo1UHoJUHo1UHoJUHo1UHoJUHo1UHoJUHo1UHoJUHo1UHoJUHo1UHoJUHo1UHo\nJUHo1UHoJUHo1UHoJUHo1UHoJUHo1UHoJUHo1UHoJUHo1UHoJUHo1UHoJUHo1UHoJTGEHt84\nf4bQ94LQS/K40OPp4hcIfS8IvSQIvToIvSQIvToIvSQJof94JzQeAIuFZ2ibpXIfprsBLTUi\n361NQGiR7gaE0A0ILdLdgBC6AaFFuhsQQjcgtEh3A0LohoV/Uugf1oVyH6a7ASF0w8K/y+Ef\n1oVyH6a7ASF0A0KLdDcghG5AaJHuBoTQDQgt0t2AELoBoUW6GxBCNyC0SHcDQugGhBbpbkAI\n3YDQIt0NCKEbEFqkuwEhdANCi3Q3IIRuQGiR7gaE0A0ILdLdgBC6ISb0QnT31q7uBtThiLYE\noUW6G1CHI9oShBbpbkAdjmhLEFqkuwF1OKItQWiR7gbU4Yi2pHehASQQGl4KhIaXAqHhpUBo\neCm2F/rjVAj1jAjz91hs/wfuu+OiQ2n29uny5t3XG1zHdCL0hl2Mzebm/dZCFHq/5j+2nulD\n6C27uFPotYeoCg0fdCT0eJxlxrIdDzf8us/b5tfn4/S0Te7+j8M47G/8taN2NMfPj4qN4/T2\nj4uxhhlDnAr9kXba+6fRtXc7rKKmg/wN6ELosoxulDh/TP4k1ylnoVsnJ6NpPt+PnwS+tPWG\ndbqssdPRHK9u9tpcbL2sW5EOhD7OHc1RHz99jPtaYr2vuf/T5nP9ZTSNWlNHlhf6tD0dhk97\nP8/g7fgRel2O802t4Px9dCzXlU3wm+hNodtv9uc58jiA+l2+bEv248Mql6fVw4XRjc0/9vON\nn/x/bboQelLS/Ec7Q58eFdl/Gzw7mrNakzlyvPDg9Bp6Px1Yu/exjPLT3RB6RVo/Z9X49CfZ\n0A2hm+2M0NdGHZyhS+z83hH6g06E/nXUy1w3TtSY2ny8T2z/n52c7ql4NFVq/PRg36EZocfy\n9U+PVfl85gKhV+QkVH0paj+Wn+CdDSovLhxewgvufz95DawZzeEv50fUV8SuztSPDqty2s1R\n8Onozv/4Tyv76SB/D587EPrEOPvpVj1c2W8HanQwhE5B6Asg9HPSr9Abc3E0XXzv7mEMfdKR\n0AA+CA0vBULDS4HQ8FIgNLwUCA0vBULDS4HQtxhObD0SuANaugVCPxW0dA/I/DTQ1D0chf61\nHd8vmbU7hUbuoQr9z4DQHUMj91CF/nKYoev10A00cg9F6O/DN4TuGBq5hyL01+EnQncMjdzD\nWeifw9c9QncMjdzDWehvw3eE7hkauYez0OOXPUL3DI3cw1no4R+E7hoauYcyQ+8RumtoBF4K\nhIaXAqHhpUBoeCkQGl4KhIaXAqHhpUBoeCkQGl6K/wc+mgvI1Z4B9QAAAABJRU5ErkJggg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "options(repr.plot.width=6, repr.plot.height=4)\n",
    "pl <- ggplot(criminal, aes_string(x='Тип', fill='Тип')) + \n",
    "    geom_bar() + \n",
    "    scale_fill_manual(values=c(\"#1b9e77\", \"#d95f02\", \"#7570b3\"))\n",
    "pl"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Seems to be a good idea for a next step to analyze daily criminal activity and detect the most dangerous time."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 3,
   "metadata": {
    "collapsed": false
   },
   "outputs": [
    {
     "data": {},
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAAtAAAAHgCAMAAAC7G6qeAAAARVBMVEUAAAAaGhobnnczMzNN\nTU1oaGh1cLN8fHyMjIyampqnp6eysrK9vb3Hx8fQ0NDZXwLZ2dnh4eHp6enr6+vw8PDy8vL/\n///3thQeAAAACXBIWXMAABJ0AAASdAHeZh94AAAaCUlEQVR4nO2di3abuBZA8Qxx0rTTSTO5\n/P+n3mDzEEICSXDQa+/V2DFCxzLsKsc8pKYDKIgmdgMAzgShoSgQGooCoaEoEBqKAqGhKBAa\nigKhoShkhP6A7BERQx6EBjMiYsiD0GBGRAx5EBrMiIghD0KDGREx5EFoMCMihjwIDWZExJAH\nocGMiBjyIDSYERFDHoQGMyJiyIPQYEZEDHkQ2sbt+XjbW6NURMSQB6Ft3KaHOhERQx6EtnH7\nqNpnhFaJvTPOYBL69p13PH9Rnm9DwWOd76fH69u8Tv6IiCEPQtu4LdLom5KDKD/av5LyFBEx\n5EFoG1NXu5D0tvq5fajCq+vmjYgY8iC0jdt4iEN5GFMNtTu+qU8F5RwiYsiD0DaWGcS6Zzb3\n0OV8lRQRQx6EtrH087Z+JodOEYS2cRsf1S+Ftw2h1XUKQEQMeRDaxvSVUD1s93wxHLebko3h\nt6f9N3romCD0LjfjyzKs3UBEDHkQeheEzgmE3qV4dc2IiCEPQoMZETHkQWgwIyKGPAgNZkTE\nkAehwYyIGPIgNJgREUMehAYzImLIIyP0fybMS7cKQkoqCSb/NiJiyIPQeQZDaAsInWcwhLaA\n0HkGQ2gLCJ1nMIS2gNB5BkNoCwidZzCEtoDQeQZDaAsInWcwhLbAxJtQFPTQeQajh7aA0HkG\nQ2gLCJ1nMIS2gNB5BkNoCwidZzCEtoDQeQZDaAsInWcwhLaA0HkGQ2gLCJ1nMIS2gNB5BkNo\nCwidZzCEtoDQeQZDaAseQrffWBe2i9I4u6CmYAhtwV3odnowLVwWxNkFNQVDaAsInWcwhLbg\nmUM/3FWSi1FoTfQ4u6CmYAhtwV/oRU89CT1Z/nfPee0D8MJP6Cm5WAmtLqSHlg9GD20hQGj1\ngMba7gdxdkFNwRDagpfQqr5PqxE6UjCEtuAjdKs8qotIOa4PhtAWfE6sKE+mHFoxPc4uqCkY\nQlvwOA495s6Lc4LqmcJ53Ti7oKZgCG2BazkuCfaXmbPf5sxgImLIg9CywQZzzZtp1DqxNg/L\n8gSh1RK97zwQbNPkJcvuWm/JX4b32GoAQgsQZxccC7bUzyaTJXcY1lRee2+zZTht+RUbQF+W\nJwg9lJgVXHlr/chhFjticBqhzSB0XyLo4mloSiO0GYTuS9LXuWfRTSO0GYS2ZRspoiiN0GYQ\nOh+dH4xOI7QZhM7L525MphHaTPUj+Gfnc9dl8R02FpX30LmaYT3fQg8tEtVve8YTOlOdH3if\nQkTocPy2J0KHYe6mEVoAv+0ZTei8fe4xKI3QAvhtz1hC5+9zZ+imEVoAv+0ZSegifO5WSiO0\nAH7bM47Qpfjc43ROHKHD8dueCH2c829/if2JAqlV6FwPQG+wd04cocPx254RhC5P555HN43Q\nAvhtz+uFLtPn7nlS/KStGfujBILQpXHWSfHYnyOQKoUu2efOfqEHQuusZ6TIckqKwn3uOeGk\neOyPEIjX2HaGKVbGh4xG8K/A587YTSP0ktbQQ2codB0+d4dPisdufiABKUfmU1JUI3SnZx4I\nrdMuH5QX+UxJUZPPXa907BZczFlCqwtT7qFr279qL00PrTMfz8h1Sor6fO5mpRFaJ/spKar0\nudu9URyhV0sySTlqFfpbae+tGbvFgZyYQ6c/gn+9Pgdc5RG7wYEcPGyX1ZQUNfvcY73Io1qh\nnTnNQf8Sa0F1B7DWWK9bQugdTnLwXKFFPmlmeFy2FLupgVQjND4/QOggznHwRKHJN0acr8OL\n3dBA6hAanRUcB6eJ3cxAqhCa/nmB24WlsVsZSAVCo/MKlxmIYrcxkOKFRmcTDjMQxW5iIKUL\njc9mENqLQw4eK1kUoLOVRR+N0DnAxA3blLl1Su2hsXmfv/SNttyQeVKg0KKTFBfF5r0ssRsX\nSCSht+eADxQ6dNr4etm6lyV22wK5XmiHOeA3FNeFdppYHqzYRyyN3bJALhY6QDtrZ47EJ2C/\nOSt2ywK5VGgETBDbzVmx2xXIhUJjc5p8d9IIvYNZaJG3gsOY7zaM3apAEBo6hN4DobMCofdA\n6KxA6D0QOisQeg+EzooKhV6OI2MocBhoBqFTpT6h14PaaQUuY9shdKog9PQKoUugYqHnzAKh\ny6FeoRVvbULbp6TYvsoIInLEoMQIE7odh/HPbHzocoLJv83Zpl2Ep9DzdBT+KUeG2qQbDKEt\nBPTQyiKEjhUMoS3ICA0QieAvhTsFAFHwPFO4OmNoLQCIQcEDzUCNIDQUBUJDUSA0FAVCQ1Eg\nNBQFQkNRyAj9AdkjIoY8CA1mRMSQB6HBjIgY8iA0mBERQx6EBjMiYsiD0GBGRAx5EBrMiIgh\nD0KDGREx5EFoMCMihjwIDWZExJAHocGMiBjyIPTAbcBtxQsaFBsRMeRB6IHb4ml3vfIREUMe\nhB5wFLoanxFaJfbOCEAResgpHk+3jyHBGBd+jM8f4yut/PlwU4Nl+b9ARAx5EHpgFnrp5E1b\nqL7uhTZWMoidHSJiyIPQAzahlTJV5I+bvpK5MkJfDEIP7Ar9TB1WQk8ZxVB+056V2HkhIoY8\nCD2wJ7SWaozphrGcHDoeCD2wI/Ti2SC0NdWYv0FmhogY8iD0gMOXwttC0LXQty2xs0NEDHkQ\nemAWWjsCNx+Wm3JppYZ62I4vhQmA0NtsuJilpu6IiCEPQm+D0JmB0NtYrc3z0IUHImLIg9Bg\nRkQMeRAazIiIIQ9CgxkRMeRBaDAjIoY8CA1mtrWZEPHnAAgNZra1qUzoOHOf1hQsgZlk05O5\nB6HzDJaQ0I/ntn9ModdG6DyDJSb07wahz98FNQVLTOjXoYdWl8cBofMMlpbQf5pfCH3+Lqgp\nWFpCvzdfCH3+LqgpWFJCfzXvHUKfvwtqCpaU0L+aPwgtsAtqCpaU0O1rV7jQUAGz0M3v0oWO\n06fUFCytHrpDaIldUFOwBIROE4TOMxhCW0DoPIMhtAWEzjMYQltA6DyDIbQFhM4zGEJbQOg8\ngyG0BYTOMxhCW0DoPINFFvqvDUSMcgah8wwWW+igoitA6DyDIbQFTeiXn/bb19tvrAvbRWmc\nXVBTMIS2oAndNE3747dxzXZ6MC1cFsTZBTUFQ2gLmtBf/7z1t+2+/vO5WhOhUwqG0BYMOfTv\n9/bb6RdjP/1wV0kuRqE10ePsgpqCIbQF05fCz/fH6AqvhqJW66knoSfL/+6RaCkkRE5C/3l7\ndM8fr83bqmxKLlZCqwvpoeWD0UNb0IX+/TplG4Y7D8aMo9WF7tRnhJYPhtAW9MN2TfP2Zyxa\nHaRT9X1ajdCRgqUu9NOrrbuxhG7U0g/bvf8xr9fTKo/qIlKO64NlIXSMmwv1w3Ybq7bKkymH\nVkyPswtqCpaD0FFull2dWHk+W84Jtvphu8WZwnndOLugpmDZCN10zXgz+PzcDAWPdb6fmm68\nbfzwLeNq/bZROBQ1zi6oKVgGQitpdKPkIMqP9u+UPEWt/kvx+dehqHF2QUXB/tU5/202d/C+\n0NOoHaplzeqn6VTh1XUDsaQcB/Hbnslqk1qw2d/VFp/FTkToadiZ+WFMNdTuuFGfzsg5uHw0\nh2A2jVdovfWRBmy+j08O3Zl6ZnMPfcJXSbV605w1u5Hf9kxFmxSDOausYJM6ymG78Rf9+Yoc\nGqFTChZg8ozR6cuFnhKPUdgNodV1jkDKkWKwIy5PrJS+XuhnTjHnyXOP2c3JxvDb0/7m5C+F\nJ+G3Q4tw8KRgh/plHa2bvlLoCf2og3HpieiRf7Vd99G0P49FFdjTxQc7VeWJ8AN6m2GzEbqf\nzOizP8FyzOhT93TxwUK++LkzK52C0OJo7/fSfHz//PqzvtIOzkfW5Pltzg+ZzeWj3x307+bl\n8HfNk7qudDvVg8Gs50dkGHLpKD301Wjits3nj+ZPn0Ufihq8p4+XJB7sUpEV/vVu82a4bIT+\n2TxmzGia90NRA/b0WSWpBru2T17z3UmfKXQ2Q4G9N+3v7476mM8IrRLZ5An7OXF/odOF49CS\nwRJReeBEoVdX+ylc9GksILRQsAT27QprH+0vdFDRFaxSjpZrOY4GS9HlAYvS5Qr9zsVJx6ok\nLPMD9+vwtsMEFV3B6rDdsVtVBqS1STRY4jI/MRldrtDcsRJaJQuZHzheWLodI6joCjSB35qt\ngQycEdMm0WDZyPxgbXS5Qn+2r+uBdP2R0SbRYHnZ/MDlSuntAEFFV7BKOfhS6FUlQ5t7tE66\nVqENF3jUPCVFPmnzGmmhnfvF472nFs9jXdNwSuNDbSP45yzzg0UfLSB0pz7ZOf3EnkfA1tBD\n1yl09jY/2LmXZbvuXpGj0OefqF5F/PX2/Rfg1TwG6TD8aN1TUhQh84N/Nz/ndtW9IkXocYCZ\n6S7ZTlnYzaPPdOM9tIvyThv8YC9D0Qq/Xp7v2xhnd2uXD8qLWqakKMfmnvDP4iH00kltWJnF\na/X2751nO1rhj+a9f5N/jBOsbAmtLiy0hy4j0VgwJtKSPfTaxdE5ReTV+EmWyt5CN838s2Y+\nnlHdlBQF2vzgX+sG2K62V7Qr9Dg4h1LaqBnFUN5oz0psMwFCD79XNCVFoTL32O823K62V7Qn\ntJZqjOmGsfxIDj2kHO/ND9PK67k3a0g5yrX5ge1uw+1Ke0U7Qi+eDUJbU435G6QF/UvhcDl0\nazwBvp1DlziCf6mZhorlbsPtOntFDl8KF4PrGoRutsS2sir8+dI0L+/mS5TWh+3OmpJidR9P\nuIP+Vco+3LyPrNDaEbjFSHfDL3MN9bDdKV8KT8JdG9t9aJrZ7naeJXQlMj/497JrOTZ0O8nE\nmEK79IA2q2WFrsnmrlyhG5VDUfe18ftzvtZaUOjKbO6SEPq0C5TiCB2mjGq1kNC1pM1LrhNa\nHl3ct/4C/8/X9bz1Xmxqc8yZwWoJoeu0uSta6PEWrOaY0XZtznFm4+tiqNC1ytxTsNBDqvEl\nlHKcKo3Z6hChq+2aBwoW+rV5phwSPbSINe7fFi0ltcvcEyB0LkOBfW6eKXTGrM6hkFs4fVs0\nlMTf/GngL3S66KnF13t/pvDnwcEMLhb6wXBoz1HoBPqSdPAX+r7BRY22IHNixcgl/uz/2Uvh\n72Ji+G+NDWuLFDpGD70g2RQvSQJ66KCiKyhUaPABofdA6KxA6D0QOisQeg+EzgqE3gOhswKh\n90DorEDoPRA6K84Xer751Umx3Vtf3UFoiC90d/QCfCXSSXGWIHRWxBf6PBAaLhB6OU7SesjG\n5WrDPVP6yI1OIDTIC70YbmM5OodpFA7tYX/sAgWEhotSjqfFix55eF4IPdeRFHo5joyhwGGg\nGYROlQuEnrIH7WFMReZhZZZ1Vv7v4bbeelA7rcBlbDuETpULcuhu7fL8M9p8XQ9tELpdFCB0\nzlyWQ3e2IRmjCT1nFghdDpcIPSbJ2pfCRnt9zZdCg7c2oe1TUmzdWAlRcZRlZldobcyiYX6V\nxwrLw3bLDnwa7nwK0qmLHQgTuh2H8a9hfOgkg8m/zaYQx67lkDm05hN7KfK8CKFjBUPoQ7EN\ns7chdNRgCH0otq/QUDi5Xz5q9Rah6yR3oS0nBLcKoGSyFxpAhZGToCj+t0HcliE0FAVCQ1Eg\nNBQFQkNRIDQUhYzQH5A9ImLIg9BgRkQMeRAazIiIIQ9CgxkRMeRBaDAjIoY8CA1mRMSQB6HB\njIgY8iA0mBERQx6EBjMiYsiD0GBGRAx5EBrMiIghD0Kr3FaPu6s7rJYnImLIg9AqnkJ/3G7F\n+ozQKrF3Rii+QpeMiBjyILSKLvTt0QWPr29jj/xc/FyurPbk+ayslikiYsiD0Cqa0Dfl+WGs\nYbHyWnuYX2SJiBjyILSKKeV4WrzokYfnhdBzHYSOCUKrrISesgftYUxFbh8GofWMJE9ExJAH\noVVWOfTH2uX5Z7SZHjohEFrFkkNrKcf8jNDJgdAqBqHHJFn7UngzfElE6ARAaJWbyvP10Dvr\nh+2WHfh4fG6RQ3PYLgYI7U7GdgYgIoY8CO0OQmcAQruD0BmA0GBGRAx5EBrMiIghD0KDGREx\n5EFoMCMihjwIDWZExJAHocGMiBjyyAgdZ+7TmoJFnkk2XRA6z2AIbQGh8wyG0BYQOs9gCG0B\nofMMhtAWENo/2DQJcMSWIbQFhPYONk1mbTYaoaOC0J7BFpOzm5RG6KgwT6Ef953XEBl6aK9g\nK3/XfTQ9dFQQ2ieYqT/WjUboqCC0RzBzfnHfrCPUMoS2gNDuwWz58n2jjlTLENoCQjsHs37/\nQ+iEQGjXYBvHM+62OnItQ2gLCO0YbPP43N1cR7BlCG0Bod2C7RxvVo7eIXRUENop2O75E4RO\nBIR2CrZ/QvC+qiPaMoS2gNAuwVxOcN9dg13U5qMlImLIg9AOwdwu2Lhf2TKEtoDQ+8FcL0C6\nX9gyhLbgIXT7jXVhuyiNswuEgjlfUIfQCeAudDs9mBYuC+LsAqFg7leI3q9rGUJbQOi9YD5X\nPPeHoxE6Kp459MNdJbkYhdZEj7MLRIJ5XsF/R+i4+Au96KknoSfL/+45r32x8b0jhTtYIuMn\n9JRcrIRWFxbUQ/v7abkX/OyW0UNbCBBaPaCxtvtBnF1wfrCg/tamtPld7iaOtBmh3VH1fVpd\nttCB+cP+gB2qvOYI951jgAhtwUfoVnlUF5WacoTnw0alH4dM7BKvY2wdMkFoCz4nVpQnUw6t\nmB5nF5wc7ND3u5XS7iarQRDaF4/j0GPuvDgnqJ4pnNeNswvODXb0eIWWFocGibYBDn78WHAt\nh7kk1MDT8fuKed4GQGiVOLvgxGCp6NwNufTlGwChF/htT4TeIcoQerE/dCAIbShJJt8YMRiN\n0GYQel2Sms491w+hF/sTB4LQq5IUfV530ghtBqH1kjR9XhmN0GYQelmSXPqscL90PJvYnzYQ\nhF6UJKxzz93U5lM3gLIsTxD6v4yEVjpphDbDlBQKKecbIzm0MSb00HNJJqpcdHN57I8ZCEJP\nJZn4POQdCG0GoceSbHzuHkojtBmE/i9Doa+4dTH2JwwEoZ8l+X3X8r6uFKHD8dueCQidnc49\nnteVInQ4ftszvtBZ+tx5XleK0OH4bU+EDmd9+T9CC+C3PaMLna/PPa6X4SF0OH7bM7bQefus\n99IILYDf9owsdO4+9xwbbAmh9/DbnnGFLsHnTummEVoAv+2J0KcwKI3Q7qxnpMh/SopifO4J\nHD2sVqFNU6yMD9mO4F+U0H0vjdCutIYeOnuhy/K556yrPGJ/jkACUo6SpqQoz+fOOtYSQq9o\nlw/Ki0ynpCjS5578rrU6i7OEVhfm00MXvNsN3TQ9tM58PKOMKSkK9rkzJNMIrVPYlBRl+9yt\nemmE1lnPvZlzylG8zz13l6E8ELqEKSmq8LlTu2mE1lkftst4SopahJ57aYQORsjBM4PV43M3\n9tIIHYyMg2cGq8rnLuQqj9gtDqRSoWvzufOfIy52ewOpU+gKfe58r/KI3dpAELomfMbyiN3W\nQKoUulafO8NcLdaNFrulgdQodMU+b0xDvlqWJxUKXbXPnfMccbGbGUh9Qtfus8lohN7hZAdP\nDYbQbnPExW5jINVNSYHPD4rdDJX10PXeyaGzO9pS7AYGUpfQ6KywM9pS7OYFgtD1gtDOnOig\nb8lGFfINjc0rpWM3LpDrhb4PHNI2QGh0NnC3zxEXu2mBXCj0IPK4zn0y+xKh8dmIfTy82C0L\n5EqhLSuvu+zzhUZnK7YrpWO3K5AEhB4xiH2S0Oi8iflvZOxWBZKQ0CN3hROEvqPzHsZL/2M3\nKpAEhVa53y16uwl9x2YXEHqP04RecrewFlr7AgqbIPQeQkLbWCsu9lZFgtB7XCw0HKNCoZfj\nyBgKHAaaQehUqU/o9aB2WoHL2HYInSoIPb1C6BKoWOg5s0DocqhXaMVbm9D2KSlsB90gOkcM\nSowwodtxGP+cx4fOOpj825xt2kV4Cj1PR+GfcmSoTbrBENpCQA+tLELoWMEQ2oKM0EYCJnu7\npkr1LQuqkyjBXwp3CgzUrk26LatPaMsJwa2CNbVrk27LKhT6DGrXJt2WIXQQtWuTbssQGiBR\nEBqKAqGhKBAaigKhoSgQGopCTGjbGZeNMzHXVAmqY5rm3L1K61rF/230C9Rd3kZZ5v5pckFK\naNs58Y1z5ddUCarTta26ikcV13cPfBtl/da0fGsD6JV8LmNIF4R2q+MtdKtevuVWJeBtpkXt\nssBN6GUlhN7CtHVay3KtSudfRd8vvkLv1VEX+FXxadmijvPbTL2tx9tMK7U+dbIgwR6686/S\ndq3zX8+Ali0W+FVZpdCbVdZCO9TRhXapogvtVCcLkhTa2YGpqO1c32VR1jrW0fo/jyqecg5u\n+v8n8BS6VX5c6+RBkkJ7V/HRZlrWWyMutMeHWTTO+z+Bt9CrIoTeIgOhPeoYKyQidEDLxv/P\ny78ECL3FAaFlqwTVMXeDLlVCeluvOu3qF+cPoxUh9BZlCu0YalnqY4230GY3Hf8PILQHhtNO\nrWX5tVWC6sxrLE7M+Z1c3K/iXUdp0bKr3tlm+ulFh6ZlAtdyQFEgNBQFQkNRIDQUBUJDUSA0\nFAVCQ1EgNBQFQkNRIDQUBUJDUSC0I02zfIY0Yfc4gtB5wO5xBKHzgN3jyELoj7emad/7l59v\nwy+QBgjtiCr07+bBt8hfbf/LW9ymgQJCO9I2H4/nXuiX5p+u+9P/9t786D7IQhKCfeHIj+b1\n6zvXeH/a+/n75+tT7a/YDYMFCO3IZzPy/eJ1/I3OOTXYIa58/mia119fvcI/mpdfvz8ROkXY\nIZ5MGn+RcqQIQnvyFPqj+3p9fil8f347hERgX3jy1HjMoT8fh+1eYjcKJhDak0d33KfTz6N1\nf7476h+fsRsFEwgNRYHQUBQIDUWB0FAUCA1FgdBQFAgNRYHQUBQIDUWB0FAUCA1FgdBQFP8H\nI0XjRmJpNbAAAAAASUVORK5CYII=",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "hours_label <- function(seconds) {\n",
    "    hour <- floor(seconds / 3600)\n",
    "    return(paste(sprintf(\"%02d\", hour), \":00\"))\n",
    "}\n",
    "              \n",
    "ggplot(criminal, aes_string(x='Час..секунди', color='Тип', fill='Тип')) + \n",
    "    geom_density() + \n",
    "    facet_wrap(as.formula(paste(\"~\", \"Тип\")), ncol=1) + \n",
    "    scale_color_manual(values=c(\"#1b9e77\", \"#d95f02\", \"#7570b3\")) + \n",
    "    scale_fill_manual(values=c(\"#ffffff\", \"#ffffff\", \"#ffffff\")) + \n",
    "    scale_x_continuous(breaks = seq(0,3600*24, 3*3600), labels=hours_label, name='Час')"
   ]
  }
 ],
 "metadata": {
  "anaconda-cloud": {},
  "kernelspec": {
   "display_name": "R",
   "language": "R",
   "name": "ir"
  },
  "language_info": {
   "codemirror_mode": "r",
   "file_extension": ".r",
   "mimetype": "text/x-r-source",
   "name": "R",
   "pygments_lexer": "r",
   "version": "3.3.2"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 0
}