2021-03-21 13:14:16 +01:00
{
"cells": [
{
"cell_type": "markdown",
"metadata": {},
"source": [
"# Wizualizacja danych (Lab 2)"
]
},
{
"cell_type": "code",
"execution_count": 1,
"metadata": {},
"outputs": [
{
"name": "stderr",
"output_type": "stream",
"text": [
"Warning message:\n",
"“package ‘ ’
"Loading required package: dplyr\n",
"\n",
"Warning message:\n",
"“package ‘ ’
"\n",
"Attaching package: ‘ ’
"\n",
"\n",
"The following object is masked from ‘ ’
"\n",
" combine\n",
"\n",
"\n",
"The following objects are masked from ‘ ’
"\n",
" filter, lag\n",
"\n",
"\n",
"The following objects are masked from ‘ ’
"\n",
" intersect, setdiff, setequal, union\n",
"\n",
"\n",
"Loading required package: SmarterPoland\n",
"\n",
"Loading required package: httr\n",
"\n",
"Warning message:\n",
"“package ‘ ’
"Loading required package: htmltools\n",
"\n",
"Warning message:\n",
"“package ‘ ’
]
}
],
"source": [
"library(repr) # To resize plots in Jupyter\n",
"options(repr.plot.width = 16, repr.plot.height = 9)\n",
"library(ggplot2)\n",
"library(grid) # For multiplots\n",
"library(gridExtra) # For multiplots\n",
"library(ggthemes) # Additinal themes\n",
"library(PogromcyDanych) # Library with data sets\n",
"setLang(lang = 'eng') # Change language to English for data sets from PogromcyDanych"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"## Biblioteka ggplot2"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"Pakiet *ggplot2* jest jednym z najbardziej zaawansowanych narzędzi do tworzenia wykresów statystycznych. Oznacza to, że konstrukcja pakietu jest na tyle elastyczna, że można z nim wykonać praktycznie każdą grafikę statystyczną. \n",
"<img src=\"figs/ggplot0.png\" width=\"100\"> \n",
"<img src=\"figs/tidyverse.png\" width=\"100\">"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"### Podstawowa składnia"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"<img src=\"figs/ggplot4.png\" width=\"600\"> "
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"### Karty pomocy"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"1. [Podstawowa karta pomocy](https://rstudio.com/wp-content/uploads/2015/03/ggplot2-cheatsheet.pdf)\n",
"2. [Estetyki](https://drive.google.com/file/d/1Dvul1p6TYH6gWJzZRwpE0YX1dO0hDF-b/view)"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"### Przykłady"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"#### Wykres punktowy"
]
},
{
"cell_type": "code",
"execution_count": 2,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N1/bF5V/Qfw063t1jH2g7ajCJo5liBDohIJ\nEkh0LjMmIrBE0EUNKkRJQA1K4owRE2NwKNE/hAoRJSRL1MF//qHREI1RFxPBTKOQLGaMCdu6\nDSyb3Y+u7Zfz8G1t2dP1ts8dt/ec102Q9j7nnns/r0+93Pb93Pu0jb26BAsBAgQIECBAgAAB\nAgQIECBAgAABAgQIECBAgAABAgQI1F5gQe0rUAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQINAQEwH4QCBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgkIiAADiRRiqDAAEC\nBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECAmA/AwQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIEEhEQACcSCOVQYAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQGwnwECBAgQ\nIECAAAECBAgQIECAAAECBAgQIECAAAECBAgkIiAATqSRyiBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgED7fCEYGRkJ27ZtC5s2bQrLli1rHNbAwED461//2vQQ165dGy6++OJw5MiR\nsGPHjtPGrF+/PnR0dJy23goCBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAikKjBvAuD+\n/v6wffv2sHHjxokA+Pnnnw8/+tGPptifOnUqHD58ONx5552NAHjnzp3h3nvvDT09PVPGXX31\n1YUC4BgyW1oXWLJkSejs7AyDg4NhbGys9QnNQIAAgf8XaG9vb5xfhoaGmBAgQKBUgaVLl4Z4\njvnPf/5T6rwmI0CAQPzdaMGCBeH48eMwCBAgUKrA+E0Tr7zySqnzmowAAQKLFy8Oo6Oj4eTJ\nkzAIECBQqsCKFStCvAk03tBpaV1g4cKFobu7e8aJKg+ADxw4EO6///7w9NNPn3aw7373u8MT\nTzwxZf33vve98Je//CXccMMNjfW7du0Kl112WXjwwQenjCv6Tfyhs7QuEH/g4h85YvjLtHVP\nMxAg8D+BeH6Jf0B1bvmfia8IEChHYPwNJs4v5XiahQCBqQJtbW2uX6aS+I4AgRIE4vWL80sJ\nkKYgQOA0gXhucX45jcUKAgRKEBh/Wq+/v5SAOYspKv8M4K1btzZCw/vuu2/Gw47B7y9+8Ytw\nzz33hPiOpLjEAPiSSy6ZcVsDCBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgkLpA5XcA\nb9myJZx//vlhz549Z7Q+ceJEiGHxxz72sfC2t71tYmwMgBctWhTiPM8++2y49NJLG4+HvvDC\nCyfGxC/i4yu+853vTFl31VVXhSuvvHLKOt/MTSC+AzUu55xzjkdAz43QVgQITCMQ7wCO55hz\nzz13mhFWEyBAYG4C8fwSF+eXufnZigCB6QXitUt8gkm8i8ZCgACBMgXiuSUurl/KVDUXAQJR\nYPzpjuO/J1EhQIBAmQLx3OL6pRzRoh/DWnkAHMPfIsvvfve7cOjQofCRj3xkYnh8Xvj+/ftD\nX19f2Lx5c7j22msbj4y+4447wrZt20L8XLfxJd5a/uijj45/2/h3/GV8/fr1U9b5pjWBGABb\nCBAgcDYExh8VcjbmNicBAnkLTL5mzFtC9QQIlC0Q/5BqIUCAwNkQcP1yNlTNSYBAFIg3W1kI\nECBQtkAMgF2/lKNa9LPaKw+Ai5YbH/383ve+d8oHG8cflscffzycd955jXcoxbnWrVsXbrnl\nlvDkk09OfE5wXB/fgf3Tn/40fjmxxPA5hsqW1gXiOzfixcFLL73UuNu69RnNQIAAgdcEYvAb\nzy9Hjx5FQoAAgVIFli9fHuI5xvVgqawmI0DgVYF47RLv0jt27BgPAgQIlCqwcuXKxtMF4t9f\nLAQIEChToKurq/Fkx+PHj5c5rbkIECDQyPVOnToVBgcHaZQgEG9u7e7unnGmWgTAzz//fNi5\nc2d44IEHphQUi4x3/05e1qxZE3p7e8O+ffsmr25cHF9xxRVT1sVvXj/utAFWFBKIj9iOS/w/\nsQ/yLkRmEAECBQXiuT4GNMPDwwW3MIwAAQLFBMYfmeP8UszLKAIEiguMf0SO80txMyMJECgm\n4PqlmJNRBAjMXiC+gS3+jdf1y+ztbEGAwMwC8RrG+WVmpyIjij6q/7UPDikyY4Vj/vznP4cV\nK1aEd7zjHVOO4rnnnmvc7bt3796J9THQPXjwYHj9ZwBPDPAFAQIECBAgQIAAAQIECBAgQIAA\nAQIECBAgQIAAAQIEEhWoRQC8Z8+e8Na3vvW0FqxevTosXrw4PPTQQ+Hll19u3M3b398f4uNw\nNmzYcNp4KwgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIJCyQC0C4Hinb3y0c7Plrrvu\nCrt37
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(cats_birds, aes(x = weight, y = speed)) +\n",
" geom_point() # Basic ggplot"
]
},
{
"cell_type": "code",
"execution_count": 3,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N19jB1V+Qfw05fte+nb0lJRKaWG0qpEpNZG\nEilaAxELTQBpTMAIiZiCBiEKMaIJphQl6h+0oVEgmAKmxT8UIiTaSECsJorWyFsaU0oF+t7S\nLS1tt+3Pc/3tZbdbujs7sztn7v1MUjv33jNnnvk8y3h7vztzBx377xIsBAgQIECAAAECBAgQ\nIECAAAECBAgQIECAAAECBAgQIFB5gcGVPwIHQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg\nQIAAAQI1AQGwHwQCBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAg0iIAAuEEa6TAIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECAgAPYzQIAAAQIECBAgQIAAAQIECBAgQIAAAQIE\nCBAgQIAAgQYREAA3SCMdBgECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBATAfgYIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECDQIAIC4AZppMMgQIAAAQIECBAgQIAAAQIECBAg\nQIAAAQIECBAgQIDA0FQIjhw5ElatWhUWLVoUTjnllFpZ27ZtC3//+99PWOKMGTPCWWedFdra\n2sK6deu6jZk/f35oaWnp9rwnCBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg0KgCyQTA\nK1asCKtXrw4LFiyoB8CvvfZa+NnPftbFvr29PezcuTPceOONtQB4/fr1YenSpaG1tbXLuHnz\n5vUqAI4hsyWbwJAhQ8LYsWPDO++8U/uTbWujCRBodIHBgweHkSNHhrfffrvRD9XxESDQB4Hx\n48eH+H5u3759fdjaJgQINLpA/GXgvXv3NvphOj4CBPogMGbMmDB06NCwZ8+ePmxtEwIEGl1g\n9OjRtc8p40VGFgIECHQWGDFiRIh/4ucQ8fMISzaBYcOGhfhZjqV6AqUHwFu3bg333HNPeP75\n57vpnX/++eGxxx7r8vyPf/zj8Ne//jVcdtlltec3bNgQZs+eHZYvX95lXG8feFPQW6l3x8Vw\nJ/5Hf+jQocDvXRdrBAj8T2DQoEEh/qKI84OfCAIETiQQ30PExTniRDqeI0Ag3sXJ+cHPAQEC\nJxKI4W98H+EccSIdzxEgED+HOHr0qHOEHwUCBLoJdOQZx44dc47optPzE9579WyU6ojSvwN4\n2bJlIf6Hd/fdd/doFIPfxx9/PNxxxx2139iIG8QA+Oyzz+5xWwMIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgQIECDQ6AKlXwF82223hSlTpoRNmzad1PrgwYMhhsVXX311mDlzZn1sDICH\nDx8e4jwvv/xyOOecc2q3hz799NPrY+JK/A2wH/7wh12emzt3bpgzZ06X5zzoWSD+xkxc4m/e\nxltBWwgQINBZIJ4j4m/nOz90VrFOgEBngY6vk+j8nHUCBAhEgXgnEe8h/CwQIHAigfj+IS7O\nESfS8RwBAvFziHgb6PgZsIUAAQKdBTruRDZq1KhaltT5Nes9Cziv9myU6ojSA+AY/vZmefrp\np8OOHTvCFVdcUR/e1tYWtmzZEk477bSwePHicMEFF9RuGb1kyZKwatWqEL8fpmOJl6k/+OCD\nHQ9rf8cPF+bPn9/lOQ96LxBPnB0nz95vZSQBAs0i0Pkc3CzH7DgJEOidQPwA1zmid1ZGEWhG\nAeeHZuy6YybQewHniN5bGUmg2QRiCGwhQIDAewmMHDnyvV7y/EkEDhw4cJJXvZSyQGX+XzHe\n+vnTn/50mDRpUt0zvulfs2ZNmDhxYj2InDVrVrj22mvD2rVr698THDeIbwAeffTR+rZxJYbP\nMVS2ZBOIlvFLv/fv31/7k21rowkQaHSBGOzE36iLv6RjIUCAwPECra2t4fDhw+Gtt946/iWP\nCRAgECZMmBB2795NggABAt0Exo0bF+L3hPscpxuNJwgQ+K9AvDtA/KzSd1X6cSBA4HiB+Dll\n/BM/h4ifR1iyCcTPeoXn2cxSGV2JAPi1114L69evD/fee28Xt3gFb7z6t/Myffr0cOqpp4Y3\n33yz89O1W4mdd955XZ6LD44f122AJ95TIF7674T5njxeINC0AvF73eMf54em/RFw4AR6FHCO\n6JHIAAJNLeA9RFO338ETeE+B+P4hLs4R70nkBQJNLRDPEe3t7bU/TQ3h4AkQ6CbQcQvjeI7w\nPqIbT49PxBzOUk2B/32Za+K1/+Uvf6ldcXruued2qfTVV1+tXe27efPm+vMx0N2+fXs4/juA\n6wOsECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAoEEFKhEAb9q0KZx55pndWjBt2rQw\nYsSIcN9999VuExbD3xUrVtRuG/aZz3ym23hPECBAgAABAgQIECBAgAABAgQIECBAgAABAgQI\nECBAo
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(cats_birds, aes(x = weight, y = speed, shape = group)) + \n",
" geom_point(size = 5) # With different shapes"
]
},
{
"cell_type": "code",
"execution_count": 4,
"metadata": {},
"outputs": [
{
"name": "stderr",
"output_type": "stream",
"text": [
"Warning message:\n",
"“Using size for a discrete variable is not advised.”\n"
]
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N1/jBxl/Qfw59q76w/6g9Jraa0K1Cb9gUQl\nEmxCgpWgRhGoQaUxESMYiAUNBqVogsYoFiXoH20DwUBIGkQgxqiJJIZoRG38EUxNBAwhUBBo\nS0uRK6W93vW+Puv3zr3etb1hZvd5dvc1Se3u7LPPfOb1OcbtvG9mu4b/swQLAQIECBAgQIAA\nAQIECBAgQIAAAQIECBAgQIAAAQIECLS8wJSW3wM7QIAAAQIECBAgQIAAAQIECBAgQIAAAQIE\nCBAgQIAAAQI1AQGwHwQCBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAi0iYAAuE0aaTcI\nECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECAgAPYzQIAAAQIECBAgQIAAAQIECBAgQIAA\nAQIECBAgQIAAgTYREAC3SSPtBgECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBATAfgYI\nECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECDQJgIC4DZppN0gQIAAAQIECBAgQIAAAQIE\nCBAgQIAAAQIECBAgQIBAdy4EQ0NDYevWrWHt2rVhzpw5tbJ2794d/va3v01Y4rJly8I73vGO\n0N/fH7Zt2zZuzJo1a0JPT8+49VYQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECgXQWy\nCYC3bNkSHnjggXDhhReOBsDPPfdcuOuuu8bYDw4Ohr1794Zrr722FgBv37493HLLLaGvr2/M\nuNWrV08qAI4hs6WYwNSpU8Ps2bPDwYMHa3+KvdtoAgTaXWDKlClhxowZ4fXXX2/3XbV/BAi8\nCYGTTz45xM9z+/fvfxPv9hYCBNpdIP4y8Guvvdbuu2n/CBB4EwKzZs0K3d3d4dVXX30T7/YW\nAgTaXeCkk06qnaeMFxlZCBAgUC8wffr0EP/E8xDxfISlmEBvb2+I53IsrSeQPADetWtXuO22\n28Jjjz02Tu+9731veOihh8asv/3228Nf//rXcMkll9TWP/XUU+HMM88MmzdvHjNusk98KJis\n1P/GxXAn/kc/MDAQ+P3PxSMCBP4r0NXVFeIvijg++IkgQGAigfgZIi6OERPpWEeAQLyLk+OD\nnwMCBCYSiOFv/BzhGDGRjnUECMTzEEeOHHGM8KNAgMA4gZE8Y3h42DFinM6JV/jsdWKjXEck\n/w7gjRs3hvgf3q233npCoxj8/uIXvwg333xz7Tc24htiALx8+fITvtcAAgQIECBAgAABAgQI\nECBAgAABAgQIECBAgAABAgQItLtA8iuAN2zYEE499dSwY8eO41ofOnQoxLD48ssvDytWrBgd\nGwPgadOmhTjPk08+GVauXFm7PfSSJUtGx8QH8TfAvve9741Zd+6554ZzzjlnzDpPTiwQf2Mm\nLvE3b+OtoC0ECBCoF4jHiPjb+Y4P9SoeEyBQLzDydRL16zwmQIBAFIh3EvEZws8CAQITCcTP\nD3FxjJhIxzoCBOJ5iHgb6HgO2EKAAIF6gZE7kc2cObOWJdW/5vGJBRxXT2yU64jkAXAMfyez\n/Pa3vw179uwJl1122ejw/v7+sHPnzrBo0aKwbt26cN5559VuGb1+/fqwdevWEL8fZmSJl6nf\nc889I09rf8eTC2vWrBmzzpPJC8QD58jBc/LvMpIAgU4RqD8Gd8o+208CBCYnEE/gOkZMzsoo\nAp0o4PjQiV23zwQmL+AYMXkrIwl0mkAMgS0ECBA4lsCMGTOO9ZL1xxF44403jvOql3IWaJn/\nV4y3fj7//PPD/PnzRz3jh/4HH3wwnHLKKaNB5KpVq8IVV1wRHnnkkdHvCY5viB8AfvzjH4++\nNz6I4XMMlS3FBKJl/NLvAwcO1P4Ue7fRBAi0u0AMduJv1MVf0rEQIEDgaIG+vr5w+PDh8O9/\n//volzwnQIBAmDdvXti3bx8JAgQIjBOYO3duiN8T7jzOOBorCBD4j0C8O0A8V+m7Kv04ECBw\ntEA8Txn/xPMQ8XyEpZhAPNcrPC9mlsvolgiAn3vuubB9+/awadOmMW7xCt549W/9snTp0rBg\nwYLw0ksv1a+u3Urs7LPPHrMuPjl63LgBVhxTIF7674B5TB4vEOhYgfi97vGP40PH/gjYcQIn\nFHCMOCGRAQQ6WsBniI5uv50ncEyB+PkhLo4RxyTyAoGOFojHiMHBwdqfjoaw8wQIjBMYuYVx\nPEb4HDGO54QrYg5naU2B/36Za+a1/+lPf6pdcfqud71rTKXPPvts7Wrf559/fnR9DHRffvnl\ncPR3AI8O8IAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQJtKtASAfCOHTvCGWecMa4F\np59+epg+fXq44447arcJi+Hvli1barcNu+CCC8aNt4IAAQIECBAgQIAAAQIECBAgQIAAAQIE\nCBAgQ
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(cats_birds, aes(x = weight, y = speed, size = group)) + \n",
" geom_point() # With different sizes"
]
},
{
"cell_type": "code",
"execution_count": 5,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N15kGVVnSfw38ut9gUq2ZWlrA42l5CRQUa6\nnZLBcCYQqAgNrfAPbLFDIsBxsI0Rwwj/MhCUUSMGaqS1pQkr0ABiYmL8Y5yFCUda0G4bouhm\nmWG0KBjWKiwgoZbc3uR5dKaZlbXczHvfu+fl+9zoNN+779xzzv38HrdfvW/eexvNqSUsBAgQ\nIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIND1An1dvwd2gAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgRaAgJgbwQCBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgsEQEB\n8BIppN0gQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQICAANh7gAABAgQIECBAgAABAgQI\nECBAgAABAgQIECBAgAABAktEQAC8RAppNwgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQ\nICAA9h4gQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIDAEhEQAC+RQtoNAgQIECBAgAAB\nAgQIECBAgAABAgQIECBAgAABAgQIDORCMDExEdu3b48tW7bE2rVrW9N6+eWX45FHHjnsFDdt\n2hTveMc7YmRkJB566KF5bTZv3hyDg4Pz1ltBgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngACBpSqQTQC8bdu2uOeee+Kyyy6bCYCfeeaZ+P73vz/Hfnx8PF555ZW4/vrrWwHwjh074qab\nborh4eE57S6++OJCAXAKmS0LE+jv7481a9bEgQMHWj8L21prAgSWukBfX1+sWLEi3nzzzaW+\nq/aPAIFFCKxfvz7S57k33nhjEVvbhACBpS6Q/hj49ddfX+q7af8IEFiEwOrVq2NgYCBeffXV\nRWxtEwIElrrAqlWrWt9TppOMLAQIEJgtsHz58kg/6XuI9H2EZWECQ0NDkb7LsXSfQO0B8Esv\nvRS33nprPPzww/P03ve+98V99903Z/23v/3t+M1vfhNXXnlla/1TTz0V559/ftx+++1z2hV9\n4kNBUak/tEvhTvqPfnR0NPj9wcUjAgTeEmg0GpH+UMTxwTuCAIHDCaTPEGlxjDicjnUECKSr\nODk+eB8QIHA4gRT+ps8RjhGH07GOAIH0PcTk5KRjhLcCAQLzBKbzjGaz6RgxT+fYK3z2OrZR\nri1qvwfwzTffHOk/vFtuueWYRin4/elPfxpf+9rXWn+xkTZIAfDZZ599zG01IECAAAECBAgQ\nIECAAAECBAgQIECAAAECBAgQIECAwFIXqP0M4BtvvDFOOumk2LVr11GtDx48GCks/uQnPxnn\nnHPOTNsUAC9btixSP08++WSce+65rctDn3baaTNt0oP0F2Df/OY356y76KKL4sILL5yzzpNj\nC6S/mElL+svbdCloCwECBGYLpGNE+ut8x4fZKh4TIDBbYPp2ErPXeUyAAIEkkK4k4jOE9wIB\nAocTSJ8f0uIYcTgd6wgQSN9DpMtAp++ALQQIEJgtMH0lspUrV7aypNmveXxsAcfVYxvl2qL2\nADiFv0WWn//857Fnz5742Mc+NtN8ZGQkXnzxxTj55JNj69atcckll7QuGX3dddfF9u3bI90f\nZnpJp6nfeeed009bv9OXC5s3b56zzpPiAunAOX3wLL6VlgQI9IrA7GNwr+yz/SRAoJhA+gLX\nMaKYlVYEelHA8aEXq26fCRQXcIwobqUlgV4TSCGwhQABAkcSWLFixZFesv4oAvv37z/Kq17K\nWaBr/r9iuvTzBz/4wdiwYcOMZ/rQf++998bxxx8/E0Sed955cfXVV8f9998/c5/gtEH6APDj\nH/94Ztv0IIXPKVS2LEwgWaabfu/bt6/1s7CttSZAYKkLpGAn/UVd+iMdCwECBA4VGB4ejrGx\nsXjttdcOfclzAgQIxHHHHRd79+4lQYAAgXkC69ati3SfcN/jzKOxggCBKYF0dYD0XaV7VXo7\nECBwqED6njL9pO8h0vcRloUJpO96hecLM8uldVcEwM8880zs2LEjbrvttjlu6QzedPbv7GXj\nxo1xwgknxAsvvDB7detSYhdccMGcdenJoe3mNbDiiALp1H8HzCPyeIFAzwqk+7qnH8eHnn0L\n2HECxxRwjDgmkQYEelrAZ4ieLr+dJ3BEgfT5IS2OEUck8gKBnhZIx4jx8fHWT09D2HkCBOYJ\nTF/COB0jfI6Yx3PMFSmHs3SnwFs3c8187r/+9a9bZ5y+5z3vmTPTp59+unW277PPPjuzPgW6\nu3fvjkPvATzTwAMCBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgsUYGuCIB37doVZ511\n1rwSnHnmmbF8+fL43ve+17pMWAp/t23b1rps2KWXXjqvvRUECBAgQIAAAQIECBAgQIAAAQIE\nCBAgQ
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(cats_birds, aes(x = weight, y = speed, color = group)) + \n",
" geom_point(size = 5) # With different colors"
]
},
{
"cell_type": "code",
"execution_count": 6,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N0LkB11nS/w32RmkkzeIYEQAXmIAkFFQETe\nAoLuKiC+MGutKCpaguWiq+t6LfYhK8KiW6vARRcXHylRQVlLd1e0WEQFFOURbiForiThGUJC\nEhLymMwkd/7tnanpZEhmcnqmT5/+dFWY0326/4/P73g8c77T3W1b+5awECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgEDlBcZVfgYmQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg\nQIAAAQKZgADYC4EAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQItIiAAbpFCmgYBAgQI\nECBAgAABAgQIECBAgAABAgQIECBAgAABAgQEwF4DBAgQIECAAAECBAgQIECAAAECBAgQIECA\nAAECBAgQaBEBAXCLFNI0CBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgIAD2GiBAgAAB\nAgQIECBAgAABAgQIECBAgAABAgQIECBAgECLCAiAW6SQpkGAAAECBAgQIECAAAECBAgQIECA\nAAECBAgQIECAAIGOZiHo7e2NBQsWxNlnnx3Tpk3LhrV8+fK49957hxzigQceGC960Yti7dq1\nceedd263z8knnxydnZ3bbbeBAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECrSrQNAHw\n1VdfHd/97nfjtNNOGwiAH3nkkfi3f/u3nH1PT0+sXLkyLrzwwiwAXrhwYXz2s5+N2bNn5/Y7\n5phjhhUAp5DZMnyBiRMnRvq3bt26SLWwECBQb4GpU6dm7wdbt26tN4TZEyAQ06dPjy1btmR/\nnIeDAIF6C7S3t2e/Mzz33HP1hjB7AgRi/PjxMWnSpFi/fn10d3cTIUCg5gLp/SC9F/hOseYv\nBNMn0CeQvlNMvzesXr2axwgF9thjjxEeYfe6CpQeAD/11FNxxRVXxD333LNdDV75ylfGjTfe\nmNv+hS98IX7729/GWWedlW1ftGhRHHrooXHVVVfl9hvuSjrz2DJ8gXHjxmW/wKWwh93w3exJ\noFUF0ge1FPikfxYCBOotkK68kj4b+HxQ79eB2RNIAul3hvTP+4HXAwECSSCFwBs2bPCe4OVA\ngED2+cB3il4IBAgkgfSdYv/3CEQIEBgdgdLvAfy5z30u0v/xX3bZZTudYQp+f/jDH8bFF1+c\n/UV5OiAFwAcddNBOj7UDAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIEWl2g9DOAP/nJ\nT8acOXNi6dKlO7TetGlTpLD4He94Rxx88MED+6YAeMKECZHaeeihh+KQQw7JLg+91157DeyT\nHqSz0y6//PLctqOPPjqOOuqo3DYrOxZIf7mblq6ursx9x3t7lgCBVhdIf603ZcqU7A95Wn2u\n5keAwI4F2trasr/oT5dxshAgUG+BdPZvR0dHdlm3ekuYPQEC6b0gLel7m/S7g4UAgXoLpLP9\n0u8N6T3BQoBAvQX6Pxf4DqHerwOzH12B0gPgFP4OZ/nZz34WK1asiLe+9a0Du69duzaWLVsW\ne+65Z8yfPz+OP/747JLRF1xwQSxYsCALJfp3Tpcfu+666/pXs5/pA8fJJ5+c22ZleALpnh0W\nAgQIJIHJkyeDIECAQCbQ/0chOAgQIJAE0pe8FgIECCSBiRMngiBAgEAm4POBFwIBAoMF0okl\nFgIERkeg9AB4uNNKl34+6aSTYtasWQOHpDeHG264IXbbbbfsnjLpiXnz5sW5554bt9xyy8B9\ngtP29Fen119/fXo4sKTwOYXKluELpOA3/Us3Z+/p6Rn+gfYkQKAlBaZPnx7pj3HcA7gly2tS\nBEYkkD6PpfeC9BnBQoBAvQXS717pikHpM4KFAIF6C6Sz/NKZPevWrYuNGzfWG8PsCRDITtZJ\nV3ncvHkzDQIEai6QvlNMvzesXLmy5hIjn/7s2bNHfpAjailQiQD4kUceiYULF8aVV16ZK1I6\ngzed/Tt4OeCAA2L33XePJ598cvDm7PIiRxxxRG5bWtl2v+12sCEn0B/ypDOqfVjL0VghUEuB\ndA/39F7Q/95QSwSTJkBgQKD/PWFggwcECNRWIH028PtCbctv4gQGBPovAe07hAESDwjUWiB9\nPkgnlPiMUOuXgckTyATS9wdp8X6QMfgPgVERGDcqrRbc6K9//euYMWNGHHbYYbmWlyxZkp3t\n++ijjw5sT4Hu008/HdveA3hgBw8IECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECDQogKV\nCICXLl0a+++//3Yl2G+//bL7yFxzzTWxatWq7Gzeq6++OmbOnBmnnnrqdvvbQIAAAQIECBAg\nQIAAAQIECBAgQIAAAQIECBAgQIAAgVYWqEQAnM70TZd2Hmq56KKLYvHixXH22WfH/Pnz4/HH\nH88uF
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(cats_birds, aes(x = weight, y = speed, shape = group, color = habitat)) + \n",
" geom_point(size = 5) # Combined different shapes and colors"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"#### Dodawanie tekstu do wykresu"
]
},
{
"cell_type": "code",
"execution_count": 7,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N0JvFxVfQfwfxZIAkkIWdgrEEDCJq2VAhaL\nNLJIRYlgAVuBAi2yWKCtBSoKlh35CApEBAS1FBREsdhaF/wgEBCUzcqiSJOwBhIIkJh9Kf/b\nzzzfC0nmkdyZO/flez6flzdz751zzv2eN5n35jfn3H5L3yihECBAgAABAgQIECBAgAABAgQI\nECBAgAABAgQIECBAgEDtBfrX/gycAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgU\nAgJgPwgECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBDoIwIC4D4ykE6DAAECBAgQIECA\nAAECBAgQIECAAAECBAgQIECAAAECAmA/AwQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQI\nEOgjAgLgPjKQToMAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQICYD8DBAgQIECAAAEC\nBAgQIECAAAECBAgQIECAAAECBAgQ6CMCAuA+MpBOgwABAgQIECBAgAABAgQIECBAgAABAgQI\nECBAgAABAgM7hWDx4sVx/fXXx4QJE2L48OFFt1566aV46KGHltvFrbfeOrbaaquYNWtW3Hvv\nvW86Zq+99oq11lrrTdttIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAQF8V6JgAeOLE\niXHTTTfF3nvv3RUAP/3003H11Vf3sF+0aFG8/PLLceKJJxYB8COPPBLnnXdejB49usdxu+++\ne68C4AyZldUXWHvttWOdddaJOXPmxIIFC1a/QjUQINBWgfzgzeuvv97WNjVGgMDqCwwZMiQG\nDRpUfCAuP0ynECBQH4EBAwbE4MGD43e/+119Oq2nBAgUAkOHDo2BAwfGq6++SoQAgZoJ5PtX\n/fv3j3nz5tWs57pLgEBj0pj3r/wsEKifQP7tm+9bLVy4sH6d78Ae5/sJo0aNatqzygPgF198\nMS6++OJ48MEH39TZd73rXfGtb32rx/bPf/7z8Ytf/CI+9KEPFduffPLJ2GGHHeKKK67ocVxv\n73iztLdSzY/LX6Lnzp1bPJGbH+0IAgQ6SSDfwPL/YSeNiL4Q6J1Av379Il9/ly5d6jncOzJH\nEegYgXz+5h9tXn87Zkh0hECvBfK5m6+/S5YsKV6De/1ABxIg0BEC+Rrs9bcjhkInCLwlgVzt\n09++b4nMwQQ6RiA/fJWvvV5/2zsklV8D+IILLij+477wwgubnnkGv7fddlt85jOfKT4tnw/I\nAHjbbbdt+lgHECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAoK8LVD4D+LTTTosNN9ww\npk6dulLr+fPnR4bFhx56aIwbN67r2AyAc+nDrOeJJ56I7bbbrlgeetNNN+06Jm/kJ3Mvuuii\nHtt23XXX2GWXXXpsc2fVBHL2YJYci/w0tEKAQL0E8lNYw4YNq1en9ZYAgWL2UTLkZRjydx2F\nAIH6CORrb/4O7fW3PmOmpwQaAo2/eXMpaIUAgXoJ5GtvvgbnLGCFAIF6CeTzNr/8/lyvcdNb\nAimQq+fka3DO5FdWXyBXQ+hNqTwAzvC3N+WOO+6IGTNmxMEHH9x1+KxZs2LatGmx0UYbxWGH\nHRZ77LFHsWT0CSecENdff310/2Msp5Zfd911XY/NG/mCsddee/XY5s7qCeRa7goBAvUU6P5/\nZj3PQK8JrLkCGQArBAjUU8Drbz3HTa8JpIDnr58DAvUVyDeiFQIE6ing9bee46bXBAiUJ7Bg\nwYJeVVZ5ANyrXr5xUC79vOeee/a4sHH+Z3/zzTfHyJEju2bAbL/99nHEEUfE7bff3nWd4Gwj\nP11w44039mguw+cMlZXVF8iZv/npq9mzZ8e8efNWv0I1ECDQVoERI0bEq6++2tY2NUaAwOoL\nZPCbX/n8XbRo0epXqAYCBNomkDMI8/mbH2pVCBCol8Dw4cOL9yBefvll1wCu19DpLYFi5bqc\nATx37lwaBAjUTCAzgJz1NnPmzJr1XHcJEMi/ffN9q94Gl8RWLpCTW0eNGrXyg97YW4sA+Omn\nn45HHnkkLr/88h4nlCeZs3+7l7Fjx8aYMWPihRde6L65mO37zne+s8e2vLPscW86wIZeCWTA\nniVnWi9cuLBXj3EQAQKdJeC521njoTcEeiPQWPY5f4n2HO6NmGMIdI5AvnmVX567nTMmekKg\ntwKNJdfy+du43dvHOo4AgWoFGu9fef2tdhy0TmBVBPz+vCpqHkOgMwTy/SvZUXlj0bgkTbMa\n+zc7oBP233fffZGz03beeece3ZkyZUox2/eZZ57p2p6B7vTp02PZawB3HeAGAQIECBAgQIAA\nAQIECBAgQIAAAQIECBAgQIAAAQIE+qhALQLgqVOnxpZbbvmmIdhiiy0irzl75ZVXFks/ZPg7\nceLEW
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(cats_birds, aes(x = weight, y = speed, label = species)) + \n",
" geom_text(hjust = 0) + \n",
" xlim(0, 350) # With text"
]
},
{
"cell_type": "code",
"execution_count": 8,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N0LlGR1fSfwX1X1a3qY9wwMD+UhCAwxRpQA\nStYliI+TGCS6MSS7geBm1yy6xpPdo9nscc/ZzTGa9STZDRCMicSEoAE0L/PYJBgMIkERxBcg\nKi9hGBiYZ3dPv6r2/u/QTff0MI/mVv27uj//c4auunXv73/v599FV9W3/vfWWkULjQABAgQI\nECBAgAABAgQIECBAgAABAgQIECBAgAABAgS6XqDe9UfgAAgQIECAAAECBAgQIECAAAECBAgQ\nIECAAAECBAgQIECgFBAA+0UgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIDAIhEQAC+S\ngXQYBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQEAD7HSBAgAABAgQIECBAgAABAgQI\nECBAgAABAgQIECBAgMAiERAAL5KBdBgECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAQ\nAPsdIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAwCIREAAvkoF0GAQIECBAgAABAgQI\nECBAgAABAgQIECBAgAABAgQIEOhZKASTk5Nx3XXXxcUXXxwrV64sd+vJJ5+Mu+++e7+7ePLJ\nJ8dLXvKS2LVrV9x+++1z1jn//POjt7d3znILCBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIE\nCBAgsFgFFkwAfPXVV8cNN9wQF1544XQA/Mgjj8THPvaxWfYTExPx9NNPx7ve9a4yAL7nnnvi\ngx/8YKxfv37Weueee+4hBcApZNYOX2D16tWRQvsUwGsECOQTOOKII2J4eDiazWa+ndAzgSUu\n0NfXF4ODgzE0NBTj4+NLXMPhE8gn0Gg0YmBgoHwu5tsLPRMgkL7QXavVYseOHTAIEMgokF6f\njo2NRfocTSNAII9AT09PpM9tRkZGYnR0NM9O6JUAgfK1aXouyjLm98uQPvdKeZDWfQLZA+At\nW7bERz7ykbjrrrvm6L3qVa+Km266adby3/zN34w777wzLrroonL5Aw88EGeccUZcddVVs9Y7\n1DspxNQOXyDNrk5v6vkdvp0tCFQpkD7sTuGv52KVqmoRODyB9PcwvRhOX8bwXDw8O2sTqFIg\nPRfT30XPwypV1SJw+ALpw+56ve65ePh0tiBQqUB6HrZaLc/FSlUVI3B4AulvYnqvuGfPHs/F\nw6OzNoFKBdJ7xfR89F5xfqzc5ue2ELbKfg3gD33oQ+UL0g9/+MMH9UjB71/91V/FBz7wgfLb\n/WmDFACfeuqpB93WCgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIEFjsAtlnAL///e+P\no446Kh5++OEDWqfTZKSw+Kd/+qfjtNNOm143BcD9/f2R6tx3331x+umnl6eHPvbYY6fXSTfS\nDLnf+I3fmLXs7LPPjrPOOmvWMncOXSB9m3TFihWHvoE1CRCoXCDNdEqnMHEK6MppFSRwyALp\nW6SppVPPTt0+5I2tSIBAZQLptWl6Dnp9WhmpQgTmJZCei2mWhefivPhsRKAygakzt6XPzDQC\nBPIIpM9sUkvPw/T3USNAII9Aem0qy5i/vc+d52+Xe8vsAXAKfw+l3XLLLbF169Z429veNr16\nOmf7E088ERs3boxLLrkkzjvvvPKU0VdccUVcd911ZSgytXKapn7ttddO3S1/pif++eefP2uZ\nO4cuMBU8HfoW1iRAoB0CAqd2qKpJ4PAFUgCsESCQXyB9MUojQCC/gOdi/jGwBwRSCKwRIJBf\nIAXAvoyRfxzsAQGvT+f3O5CuY651p0D2APhQ2dKpn1/72tfGunXrpjdJT9gbb7wx1q5dW15P\nIT2wadOmuPTSS+Pmm2+evk5wWp4Ckk9+8pPp5nRL4XMKlbXDF0jjkEL17du3H/7GtiBAoDKB\nlStXxtDQkGtYVCaqEIHDF0jBb3pNkr6Yls5YohEgkEcgfTlxcHCwfC7m2QO9EiCQBNasWVPO\nAH7mmWeAECCQUSC9Pk2vTcfHxzPuha4JLG2BdP3fqc9tBChL+3fB0ecVSBMBV61aJcuY5zCk\n99rLli2b59Y2yynQFQHwI488Evfcc09ceeWVs6zSEzfN/p3ZTjrppNiwYUNs3rx55uLyDeiZ\nZ545a1m6s+96c1aw4HkFWq2WNxLPq+MBAp0RmHoepi9kaAQI5BGYmlmRnoc+YMszBnolkATS\n38Spv4tECBDIJ5Ceh+m9ur+J+cZAzwSSQDpd48TEhOeiXwcCGQWmTvvsvWLGQdA1gUIgvTb1\nXnH+vwrJT+tOga64+MAdd9wRq1evjpe//OWzlB966KFytu+jjz46vTwFuk899VTsew3g6RXc\nIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAwCIV6IoA+OGHH44TTzxxzhCccMIJkU67\neM011
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(cats_birds, aes(x = weight, y = speed, label = species, color = group)) + \n",
" geom_text(hjust = -0.1) + \n",
" geom_point() + \n",
" xlim(0, 350) # Two geometries"
]
},
{
"cell_type": "code",
"execution_count": 9,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N0LnGRVfS/6f1X1a3qYNwMDg/IQZGbQkKAE\nUHI5iBj9JD44elSScwLqPeeag2hIbj6ac+7H8/nc68dojnmcE0CMHokJkgQQk2hiThSDIBIE\nQVRkEBSGAYYZBubZ09OPqrp77aGb7ulhHj27and1f9fnM3TVrr3XWvu7uuiq+tVau9LMSigE\nCBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg0PEC1Y4/AydAgAABAgQIECBAgAABAgQI\nECBAgAABAgQIECBAgAABArmAANgvAgECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBGaJ\ngAB4lgyk0yBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgIAA2O8AAQIECBAgQIAAAQIE\nCBAgQIAAAQIECBAgQIAAAQIEZomAAHiWDKTTIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQ\nIECAgADY7wABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgRmiYAAeJYMpNMgQIAAAQIE\nCBAgQIAAAQIECBAgQIAAAQIECBAgQIBA10whqNfrcd1118VFF10UCxcuzLu1adOmuO+++/bZ\nxZNPPjle9rKXxY4dO+LOO++css/5558f3d3dU7bbQIAAAQIECBAgQIAAAQIECBAgQIAAAQIE\nCBAgQIAAgdkqMGMC4KuvvjpuuOGGuPDCC8cD4Mcffzw++9nPTrIfHR2NZ599Nj7wgQ/kAfD9\n998fH//4x+PII4+ctN8555xzUAFwCpmVQxdYvHhxpNA+BfAKAQLlCRxxxBGxa9euaDQa5XVC\nywTmuEBPT0/09/fHwMBAjIyMzHENp0+gPIFarRZ9fX35c7G8XmiZAIH0he5KpRLbtm2DQYBA\niQLp9enw8HCkz9EUAgTKEejq6or0uc3g4GAMDQ2V0wmtEiCQvzZNz0VZxvR+GdLnXikPUjpP\noPQAeOPGjfGpT30q7r333il6r371q+Omm26atP2P/uiP4p577om3vvWt+faHH344TjvttLjq\nqqsm7Xewd1KIqRy6QJpdnd7U8zt0O0cQKFIgfdidwl/PxSJV1UXg0ATS38P0Yjh9GcNz8dDs\n7E2gSIH0XEx/Fz0Pi1RVF4FDF0gfdlerVc/FQ6dzBIFCBdLzsNlsei4WqqoyAocmkP4mpveK\nu3fv9lw8NDp7EyhUIL1XTM9H7xWnx8ptem4z4ajSrwH8iU98In9B+slPfvKAHin4/cpXvhIf\n/ehH82/3pwNSAHzqqace8Fg7ECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAYLYLlD4D\n+CMf+UgcffTRsW7duv1ap2UyUlj87ne/O1atWjW+bwqAe3t7I9Wzdu3aWL16db489MqVK8f3\nSTfSDLk/+IM/mLTtrLPOijPPPHPSNncOXiB9m3TBggUHf4A9CRAoXCDNdEpLmFgCunBaFRI4\naIH0LdJU0tKzY7cP+mA7EiBQmEB6bZqeg16fFkaqIgLTEkjPxTTLwnNxWnwOIlCYwNjKbekz\nM4UAgXIE0mc2qaTnYfr7qBAgUI5Aem0qy5i+vc+dp29X9pGlB8Ap/D2Ycuutt8bmzZvjHe94\nx/juac32p59+OlasWBEXX3xxnHvuufmS0Zdddllcd911eSgytnOapn7ttdeO3c1/pif++eef\nP2mbOwcvMBY8HfwR9iRAoBUCAqdWqKqTwKELpABYIUCgfIH0xSiFAIHyBTwXyx8DPSCQQmCF\nAIHyBVIA7MsY5Y+DHhDw+nR6vwPpOuZKZwqUHgAfLFta+vm8886LZcuWjR+SnrA33nhjLF26\nNL+eQnpgzZo1cckll8Qtt9wyfp3gtD0FJH/1V3+Vbo6XFD6nUFk5dIE0DilU37p166Ef7AgC\nBAoTWLhwYQwMDLiGRWGiKiJw6AIp+E2vSdIX09KKJQoBAuUIpC8n9vf358/FcnqgVQIEksCS\nJUvyGcDPPfccEAIEShRIr0/Ta9ORkZESe6FpAnNbIF3/d+xzGwHK3P5dcPblCqSJgIsWLZJl\nTHMY0nvtefPmTfNoh5Up0BEB8OOPPx73339/XHnllZOs0hM3zf6dWE466aRYvnx5bNiwYeLm\n/A3oGWecMWlburP3flN2sOFFBZrNpjcSL6rjAQLtERh7HqYvZCgECJQjMDazIj0PfcBWzhho\nlUASSH8Tx/4uEiFAoDyB9DxM79X9TSxvDLRMIAmk5RpHR0c9F/06EChRYGzZZ+8VSxwETRPI\nBNJrU+8Vp/+rkPyUzhToiIsP3HXXXbF48eI4/fTTJyk/9thj+Wzf9evXj29Pge4zzzwTe18D\neHwHNwgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIDBLBToiAF63bl2ceOKJU4bghBNO\niLTs4
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(cats_birds, aes(x = weight, y = speed, label = species)) + \n",
" geom_text(hjust = -0.1, aes(color = group)) + \n",
" geom_point() + \n",
" xlim(0, 350) # Local aesthetic"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"#### Wykres liniowy i wykres typu \"wstążka\""
]
},
{
"cell_type": "code",
"execution_count": 10,
"metadata": {},
"outputs": [
{
"data": {
"text/html": [
"<table>\n",
"<caption>A data.frame: 6 ×
"<thead>\n",
"\t<tr><th></th><th scope=col>Date</th><th scope=col>Name</th><th scope=col>Opening Price</th><th scope=col>Max Price</th><th scope=col>Min Price</th><th scope=col>Closing Price</th><th scope=col>Change</th><th scope=col>Turnover</th></tr>\n",
"\t<tr><th></th><th scope=col><date></th><th scope=col><fct></th><th scope=col><dbl></th><th scope=col><dbl></th><th scope=col><dbl></th><th scope=col><dbl></th><th scope=col><dbl></th><th scope=col><dbl></th></tr>\n",
"</thead>\n",
"<tbody>\n",
"\t<tr><th scope=row>1</th><td>2013-12-02</td><td>WIG</td><td>54627</td><td>54790</td><td>53935</td><td>53935</td><td>-1.41</td><td> 640784</td></tr>\n",
"\t<tr><th scope=row>2</th><td>2013-12-03</td><td>WIG</td><td>54026</td><td>54026</td><td>53250</td><td>53277</td><td>-1.22</td><td> 914148</td></tr>\n",
"\t<tr><th scope=row>3</th><td>2013-12-04</td><td>WIG</td><td>53222</td><td>53285</td><td>52536</td><td>52867</td><td>-0.77</td><td> 968047</td></tr>\n",
"\t<tr><th scope=row>4</th><td>2013-12-05</td><td>WIG</td><td>52837</td><td>52900</td><td>52575</td><td>52597</td><td>-0.51</td><td> 808039</td></tr>\n",
"\t<tr><th scope=row>5</th><td>2013-12-06</td><td>WIG</td><td>52838</td><td>52899</td><td>52513</td><td>52728</td><td> 0.25</td><td>1012872</td></tr>\n",
"\t<tr><th scope=row>6</th><td>2013-12-09</td><td>WIG</td><td>53113</td><td>53187</td><td>52881</td><td>52881</td><td> 0.29</td><td> 599884</td></tr>\n",
"</tbody>\n",
"</table>\n"
],
"text/latex": [
"A data.frame: 6 ×
"\\begin{tabular}{r|llllllll}\n",
" & Date & Name & Opening Price & Max Price & Min Price & Closing Price & Change & Turnover\\\\\n",
" & <date> & <fct> & <dbl> & <dbl> & <dbl> & <dbl> & <dbl> & <dbl>\\\\\n",
"\\hline\n",
"\t1 & 2013-12-02 & WIG & 54627 & 54790 & 53935 & 53935 & -1.41 & 640784\\\\\n",
"\t2 & 2013-12-03 & WIG & 54026 & 54026 & 53250 & 53277 & -1.22 & 914148\\\\\n",
"\t3 & 2013-12-04 & WIG & 53222 & 53285 & 52536 & 52867 & -0.77 & 968047\\\\\n",
"\t4 & 2013-12-05 & WIG & 52837 & 52900 & 52575 & 52597 & -0.51 & 808039\\\\\n",
"\t5 & 2013-12-06 & WIG & 52838 & 52899 & 52513 & 52728 & 0.25 & 1012872\\\\\n",
"\t6 & 2013-12-09 & WIG & 53113 & 53187 & 52881 & 52881 & 0.29 & 599884\\\\\n",
"\\end{tabular}\n"
],
"text/markdown": [
"\n",
"A data.frame: 6 ×
"\n",
"| <!--/--> | Date <date> | Name <fct> | Opening Price <dbl> | Max Price <dbl> | Min Price <dbl> | Closing Price <dbl> | Change <dbl> | Turnover <dbl> |\n",
"|---|---|---|---|---|---|---|---|---|\n",
"| 1 | 2013-12-02 | WIG | 54627 | 54790 | 53935 | 53935 | -1.41 | 640784 |\n",
"| 2 | 2013-12-03 | WIG | 54026 | 54026 | 53250 | 53277 | -1.22 | 914148 |\n",
"| 3 | 2013-12-04 | WIG | 53222 | 53285 | 52536 | 52867 | -0.77 | 968047 |\n",
"| 4 | 2013-12-05 | WIG | 52837 | 52900 | 52575 | 52597 | -0.51 | 808039 |\n",
"| 5 | 2013-12-06 | WIG | 52838 | 52899 | 52513 | 52728 | 0.25 | 1012872 |\n",
"| 6 | 2013-12-09 | WIG | 53113 | 53187 | 52881 | 52881 | 0.29 | 599884 |\n",
"\n"
],
"text/plain": [
" Date Name Opening Price Max Price Min Price Closing Price Change\n",
"1 2013-12-02 WIG 54627 54790 53935 53935 -1.41 \n",
"2 2013-12-03 WIG 54026 54026 53250 53277 -1.22 \n",
"3 2013-12-04 WIG 53222 53285 52536 52867 -0.77 \n",
"4 2013-12-05 WIG 52837 52900 52575 52597 -0.51 \n",
"5 2013-12-06 WIG 52838 52899 52513 52728 0.25 \n",
"6 2013-12-09 WIG 53113 53187 52881 52881 0.29 \n",
" Turnover\n",
"1 640784 \n",
"2 914148 \n",
"3 968047 \n",
"4 808039 \n",
"5 1012872 \n",
"6 599884 "
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"head(WIG)"
]
},
{
"cell_type": "code",
"execution_count": 11,
"metadata": {},
"outputs": [
{
"name": "stderr",
"output_type": "stream",
"text": [
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n"
]
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N0JkGVVfT/w07N39yw6wLDNgMCgyBYXFCRK\nCZYbhAQMpiRi0IBbGSqLVaaSaCopLc0/m1bEpKygaKUUNBIrxBIVARdEJMQFZRGHbYYZYFiG\nmWG6e9b+53fNaXtmenmv+7737nv3c6um+7137z33nM95Pa/7fd85p2/0f7dkI0CAAAECBAgQ\nIECAAAECBAgQIECAAAECBAgQIECAAIGuF5jT9S3QAAIECBAgQIAAAQIECBAgQIAAAQIECBAg\nQIAAAQIECBAoBATAnggECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBDoEQEBcI90pGYQ\nIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIEBAAOw5QIAAAQIECBAgQIAAAQIECBAgQIAA\nAQIECBAgQIAAgR4READ3SEdqBgECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBATAngME\nCBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBDoEQEBcI90pGYQIECAAAECBAgQIECAAAEC\nBAgQIECAAAECBAgQIEBAAOw5QIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAgR4RmNcj\n7ehYMzZu3Nj0tRctWpT27NmTduzY0fS5TiBQZ4GFCxem/v7+9Mwzz6Rdu3bVmULbCTQtEK89\nu3fvTjt37mz6XCcQqLNA/OzEP689dX4WaPtsBebOnZvi97ihoaHZFuV8ArUVWLp0adH2LVu2\n1NZAwwmUJTB//vwUr00jIyNlFakcArUVGBwcTPEztXnz5jQ6OlpbBw0nMBOBxYsXF38jRVZk\nI9CMQPwec8ABB0x7igB4WqKpD4g305vd5syZUwTAMzm32Ws5nkAvCfT19aUFCxYUTfLz00s9\nqy3tEIjXnvi58bPTDm3X6CUBrz291Jva0imB+OM0/nkN6lQPuG4vCMSb67H5OeqF3tSGTgvE\nz1P++6jTdXF9At0uEL/jxXt1EWAJsbq9N9W/3QLx8xM/N36/a7d8fa5nCuj69LWWEiBAgAAB\nAgQIECBAgAABAgQIECBAgAABAgQIECDQ4wIC4B7vYM0jQIAAAQIECBAgQIAAAQIECBAgQIAA\nAQIECBAgQKA+AgLg+vS1lhIgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg0OMCAuAe72DN\nI0CAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECgPgIC4Pr0tZYSIECAAAECBAgQIECAAAEC\nBAgQIECAAAECBAgQINDjAgLgHu9gzSNAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAoD4C\nAuD69LWWEiBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECDQ4wIC4B7vYM0jQIAAAQIECBAg\nQIAAAQIECBAgQIAAAQIECBAgQKA+AgLg+vS1lhIgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIE\nCBAg0OMCAuAe72DNI0CAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECgPgIC4Pr0tZYSIECA\nAAECBAgQIECAAAECBAgQIECAAAECBAgQINDjAgLgHu9gzSNAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAoD4CAuD69LWWEiBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECDQ4wIC4B7v\nYM0jQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQKA+AgLg+vS1lhIgQIAAAQIECBAgQIAA\nAQIECBAgQIAAAQIECBAg0OMCAuAe72DNI0CAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECg\nPgIC4Pr0tZYSIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQINDjAgLgHu9gzSNAgAABAgQI\nECBAgAABAgQIECBAgAABAgQIECBAoD4CAuD69LWWEiBAgAABAgQIECBAgAABAgQIECBAgAAB\nAgQIECDQ4wIC4B7vYM0jQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQKA+AgLg+vS1lhIg\nQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg0OMCAuAe72DNI0CAAAECBAgQIECAAAECBAgQ\nIECAAAECBAgQIECgPgIC4Pr0tZYSIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQINDjAgLg\nHu9gzSNAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAoD4CAuD69LWWEiBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECDQ4wIC4B7vYM0jQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg\nQKA+AgLg+vS1lhIgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg0OMCAuAe72DNI0CAAAEC\nBAgQI
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(WIG, aes(x = Date, y = `Closing Price`)) + \n",
" geom_line() # Line geometry"
]
},
{
"cell_type": "code",
"execution_count": 12,
"metadata": {},
"outputs": [
{
"name": "stderr",
"output_type": "stream",
"text": [
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n",
"Warning message in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <c5>”\n",
"Warning message in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, :\n",
"“niepowodzenie konwersji 'paź 2014' w 'mbcsToSbcs': kropka zastąpiona <ba>”\n"
]
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N1bjGR5QT/w3165wwIKBMPNF1F8gBgTJRpj\nvMRINNH48DdASPZBIfiC4cEHHkQCRBMjqCAEEiOiBpdForsDLKwiC+yNhb2wl2HYmZ3Z2enu\nufTMdE9PT1/rv79aq6nuruo6p+pcfuecz0mWrjp1zu/y+Z2huutbv9+5qvf0FmwECBAgQIAA\nAQIECBAgQIAAAQIECBAgQIAAAQIECBAg0HiBqxvfAx0gQIAAAQIECBAgQIAAAQIECBAgQIAA\nAQIECBAgQIAAgb6AANiFQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAgZYICIBbMpC6\nQYAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQGwa4AAAQIECBAgQIAAAQIECBAgQIAA\nAQIECBAgQIAAAQItERAAt2QgdYMAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQICYNcA\nAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIEWiIgAG7JQOoGAQIECBAgQIAAAQIECBAg\nQIAAAQIECBAgQIAAAQIEBMCuAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECLRE4NqW\n9GNiN86dOxe2trYmHjd8wFVXXRWe//znh+Xl5eHdHhMgkEPgOc95TnjWs57V/3eU999gjmoc\nSqDVAldffXWI/5ZWVlZa3U+dI1CmwHOf+9xw/fXXh4sXL4Zer1dmVcom0AmBF77whWFpaakT\nfdVJAmUKxM8dXvSiF4WNjQ2/65UJrexOCniv6uSw63TJAi94wQtC/Iwi/l1lI0BgOoH4WXnc\n1tbWpivAWZ0XuOaaa8JLX/rSiQ6dCYBj8JQ3fIp/iF177bW5z5uo7gACHRKIvxTGD9zjh+15\n/w12iElXCRwo4P3oQB4vEsgkEH85ju9H29vb/f8yneQgAgTGClx33XV+txur4wUC2QUGfy/F\n9yd/L2V3cySBLAI+08ui5BgC+QTi74Dxvct7Vj43RxMYFoif88XNv6NhFY/LELAEdBmqyiRA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgEANAgLgGtBVSYAAAQIECBAgQIAAAQIECBAg\nQIAAAQIECBAgQIAAgTIEBMBlqCqTAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECNQgI\ngGtAVyUBAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgTKEBAAl6GqTAIECBAgQIAAAQIE\nCBAgQIAAAQIECBAgQIAAAQIECNQgIACuAV2VBAgQIECAAAECBAgQIECAAAECBAgQIECAAAEC\nBAgQKENAAFyGqjIJECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBQg4AAuAZ0VRIgQIAA\nAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQKAMAQFwGarKJECAAAECBAgQIECAAAECBAgQIECA\nAAECBAgQIECAQA0CAuAa0FVJgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgACBMgQEwGWo\nKpMAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQI1CAiAa0BXJQECBAgQIECAAAECBAgQ\nIECAAAECBAgQIECAAAECBMoQEACXoapMAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQI\n1CAgAK4BXZUECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAoQ0AAXIaqMgkQIECAAAEC\nBAgQIECAAAECBAgQIECAAAECBAgQIFCDgAC4BnRVEiBAgAABAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAoAwBAXAZqsokQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIBADQIC4BrQVUmA\nAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAIEyBATAZagqkwABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAjUICIBrQFclAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIEyhAQ\nAJehqkwCBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAjUICAArgFdlQQIECBAgAABAgQI\nECBAgAABAgQIECBAgAABAgQIEChDQABchqoyCRAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIE\nCBAgUIOAALgGdFUSIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECgDAEBcBmqyiRAgAAB\nAgQIECBAgAABAgQIECBAgAABAgQIECBAgEANAgLgGtBVSYAAAQIECBAgQIAAAQIECBAgQIAA\nAQIECBAgQIAAgTIEBMBlqCqTAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECNQgIgGtA\nVyUBA
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(WIG, aes(x = Date, \n",
" ymin = 52000, \n",
" ymax = `Closing Price`)) + \n",
" geom_ribbon() # Ribbon geometry"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"#### Dodawanie trendu do wykresu"
]
},
{
"cell_type": "code",
"execution_count": 13,
"metadata": {},
"outputs": [
{
"data": {
"text/html": [
"<table>\n",
"<caption>A data.frame: 3954 ×
"<thead>\n",
"\t<tr><th scope=col>Brand</th><th scope=col>Model</th><th scope=col>Year</th><th scope=col>Price.in.PLN</th><th scope=col>Type.of.fuel</th></tr>\n",
"\t<tr><th scope=col><fct></th><th scope=col><fct></th><th scope=col><dbl></th><th scope=col><dbl></th><th scope=col><fct></th></tr>\n",
"</thead>\n",
"<tbody>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2010</td><td>52750</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2003</td><td>16800</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2007</td><td>38900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2009</td><td>39999</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2008</td><td>28500</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2008</td><td>36800</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2010</td><td>43821</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2008</td><td>45900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2008</td><td>33500</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2001</td><td>12600</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2010</td><td>59800</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2008</td><td>35900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2008</td><td>27500</td><td>benzyna+LPG </td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2009</td><td>44500</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2009</td><td>44500</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2010</td><td>47500</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2007</td><td>32500</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2008</td><td>40900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2007</td><td>32500</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2008</td><td>38900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>1999</td><td> 8500</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>1998</td><td> 8890</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2008</td><td>38500</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2003</td><td>21388</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2008</td><td>36990</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2005</td><td>30900</td><td>benzyna+LPG </td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>1999</td><td> 2900</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>1997</td><td> 6900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2004</td><td>26500</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2002</td><td>22072</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>⋮</td><td>⋮</td><td>⋮</td><td>⋮</td><td>⋮</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2000</td><td> 8900</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2006</td><td>24500</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2011</td><td>51870</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2006</td><td>29999</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2008</td><td>36000</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2006</td><td>28900</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2002</td><td>18700</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2006</td><td>26900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2006</td><td>24900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2010</td><td>32999</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2001</td><td>15900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2010</td><td>42195</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2001</td><td>18900</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2011</td><td>67180</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2011</td><td>75129</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2011</td><td>76550</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2005</td><td>26500</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2007</td><td>27900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2005</td><td>22000</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>1998</td><td>10900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>1997</td><td>11800</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2000</td><td>14900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2010</td><td>32900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>1999</td><td> 7800</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2000</td><td>11800</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>1999</td><td> 6850</td><td>benzyna+LPG </td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2005</td><td> 8900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2007</td><td> 2600</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2001</td><td>18600</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia</td><td>2000</td><td>14200</td><td>olej napedowy (diesel)</td></tr>\n",
"</tbody>\n",
"</table>\n"
],
"text/latex": [
"A data.frame: 3954 ×
"\\begin{tabular}{lllll}\n",
" Brand & Model & Year & Price.in.PLN & Type.of.fuel\\\\\n",
" <fct> & <fct> & <dbl> & <dbl> & <fct>\\\\\n",
"\\hline\n",
"\t Skoda & Octavia & 2010 & 52750 & benzyna \\\\\n",
"\t Skoda & Octavia & 2003 & 16800 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 38900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2009 & 39999 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2008 & 28500 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2008 & 36800 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2010 & 43821 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2008 & 45900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2008 & 33500 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2001 & 12600 & benzyna \\\\\n",
"\t Skoda & Octavia & 2010 & 59800 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2008 & 35900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2008 & 27500 & benzyna+LPG \\\\\n",
"\t Skoda & Octavia & 2009 & 44500 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2009 & 44500 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2010 & 47500 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 32500 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2008 & 40900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 32500 & benzyna \\\\\n",
"\t Skoda & Octavia & 2008 & 38900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 1999 & 8500 & benzyna \\\\\n",
"\t Skoda & Octavia & 1998 & 8890 & benzyna \\\\\n",
"\t Skoda & Octavia & 2008 & 38500 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2003 & 21388 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2008 & 36990 & benzyna \\\\\n",
"\t Skoda & Octavia & 2005 & 30900 & benzyna+LPG \\\\\n",
"\t Skoda & Octavia & 1999 & 2900 & benzyna \\\\\n",
"\t Skoda & Octavia & 1997 & 6900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2004 & 26500 & benzyna \\\\\n",
"\t Skoda & Octavia & 2002 & 22072 & olej napedowy (diesel)\\\\\n",
"\t ⋮ & ⋮ & ⋮ & ⋮ & ⋮\\\\\n",
"\t Skoda & Octavia & 2000 & 8900 & benzyna \\\\\n",
"\t Skoda & Octavia & 2006 & 24500 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2011 & 51870 & benzyna \\\\\n",
"\t Skoda & Octavia & 2006 & 29999 & benzyna \\\\\n",
"\t Skoda & Octavia & 2008 & 36000 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2006 & 28900 & benzyna \\\\\n",
"\t Skoda & Octavia & 2002 & 18700 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2006 & 26900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2006 & 24900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2010 & 32999 & benzyna \\\\\n",
"\t Skoda & Octavia & 2001 & 15900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2010 & 42195 & benzyna \\\\\n",
"\t Skoda & Octavia & 2001 & 18900 & benzyna \\\\\n",
"\t Skoda & Octavia & 2011 & 67180 & benzyna \\\\\n",
"\t Skoda & Octavia & 2011 & 75129 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2011 & 76550 & benzyna \\\\\n",
"\t Skoda & Octavia & 2005 & 26500 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 27900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2005 & 22000 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 1998 & 10900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 1997 & 11800 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2000 & 14900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2010 & 32900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 1999 & 7800 & benzyna \\\\\n",
"\t Skoda & Octavia & 2000 & 11800 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 1999 & 6850 & benzyna+LPG \\\\\n",
"\t Skoda & Octavia & 2005 & 8900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 2600 & benzyna \\\\\n",
"\t Skoda & Octavia & 2001 & 18600 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2000 & 14200 & olej napedowy (diesel)\\\\\n",
"\\end{tabular}\n"
],
"text/markdown": [
"\n",
"A data.frame: 3954 ×
"\n",
"| Brand <fct> | Model <fct> | Year <dbl> | Price.in.PLN <dbl> | Type.of.fuel <fct> |\n",
"|---|---|---|---|---|\n",
"| Skoda | Octavia | 2010 | 52750 | benzyna |\n",
"| Skoda | Octavia | 2003 | 16800 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 38900 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2009 | 39999 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2008 | 28500 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2008 | 36800 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2010 | 43821 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2008 | 45900 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2008 | 33500 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2001 | 12600 | benzyna |\n",
"| Skoda | Octavia | 2010 | 59800 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2008 | 35900 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2008 | 27500 | benzyna+LPG |\n",
"| Skoda | Octavia | 2009 | 44500 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2009 | 44500 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2010 | 47500 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 32500 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2008 | 40900 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 32500 | benzyna |\n",
"| Skoda | Octavia | 2008 | 38900 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 1999 | 8500 | benzyna |\n",
"| Skoda | Octavia | 1998 | 8890 | benzyna |\n",
"| Skoda | Octavia | 2008 | 38500 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2003 | 21388 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2008 | 36990 | benzyna |\n",
"| Skoda | Octavia | 2005 | 30900 | benzyna+LPG |\n",
"| Skoda | Octavia | 1999 | 2900 | benzyna |\n",
"| Skoda | Octavia | 1997 | 6900 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2004 | 26500 | benzyna |\n",
"| Skoda | Octavia | 2002 | 22072 | olej napedowy (diesel) |\n",
"| ⋮ | ⋮ | ⋮ | ⋮ | ⋮ |\n",
"| Skoda | Octavia | 2000 | 8900 | benzyna |\n",
"| Skoda | Octavia | 2006 | 24500 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2011 | 51870 | benzyna |\n",
"| Skoda | Octavia | 2006 | 29999 | benzyna |\n",
"| Skoda | Octavia | 2008 | 36000 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2006 | 28900 | benzyna |\n",
"| Skoda | Octavia | 2002 | 18700 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2006 | 26900 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2006 | 24900 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2010 | 32999 | benzyna |\n",
"| Skoda | Octavia | 2001 | 15900 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2010 | 42195 | benzyna |\n",
"| Skoda | Octavia | 2001 | 18900 | benzyna |\n",
"| Skoda | Octavia | 2011 | 67180 | benzyna |\n",
"| Skoda | Octavia | 2011 | 75129 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2011 | 76550 | benzyna |\n",
"| Skoda | Octavia | 2005 | 26500 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 27900 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2005 | 22000 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 1998 | 10900 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 1997 | 11800 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2000 | 14900 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2010 | 32900 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 1999 | 7800 | benzyna |\n",
"| Skoda | Octavia | 2000 | 11800 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 1999 | 6850 | benzyna+LPG |\n",
"| Skoda | Octavia | 2005 | 8900 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 2600 | benzyna |\n",
"| Skoda | Octavia | 2001 | 18600 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2000 | 14200 | olej napedowy (diesel) |\n",
"\n"
],
"text/plain": [
" Brand Model Year Price.in.PLN Type.of.fuel \n",
"1 Skoda Octavia 2010 52750 benzyna \n",
"2 Skoda Octavia 2003 16800 olej napedowy (diesel)\n",
"3 Skoda Octavia 2007 38900 olej napedowy (diesel)\n",
"4 Skoda Octavia 2009 39999 olej napedowy (diesel)\n",
"5 Skoda Octavia 2008 28500 olej napedowy (diesel)\n",
"6 Skoda Octavia 2008 36800 olej napedowy (diesel)\n",
"7 Skoda Octavia 2010 43821 olej napedowy (diesel)\n",
"8 Skoda Octavia 2008 45900 olej napedowy (diesel)\n",
"9 Skoda Octavia 2008 33500 olej napedowy (diesel)\n",
"10 Skoda Octavia 2001 12600 benzyna \n",
"11 Skoda Octavia 2010 59800 olej napedowy (diesel)\n",
"12 Skoda Octavia 2008 35900 olej napedowy (diesel)\n",
"13 Skoda Octavia 2008 27500 benzyna+LPG \n",
"14 Skoda Octavia 2009 44500 olej napedowy (diesel)\n",
"15 Skoda Octavia 2009 44500 olej napedowy (diesel)\n",
"16 Skoda Octavia 2010 47500 olej napedowy (diesel)\n",
"17 Skoda Octavia 2007 32500 olej napedowy (diesel)\n",
"18 Skoda Octavia 2008 40900 olej napedowy (diesel)\n",
"19 Skoda Octavia 2007 32500 benzyna \n",
"20 Skoda Octavia 2008 38900 olej napedowy (diesel)\n",
"21 Skoda Octavia 1999 8500 benzyna \n",
"22 Skoda Octavia 1998 8890 benzyna \n",
"23 Skoda Octavia 2008 38500 olej napedowy (diesel)\n",
"24 Skoda Octavia 2003 21388 olej napedowy (diesel)\n",
"25 Skoda Octavia 2008 36990 benzyna \n",
"26 Skoda Octavia 2005 30900 benzyna+LPG \n",
"27 Skoda Octavia 1999 2900 benzyna \n",
"28 Skoda Octavia 1997 6900 olej napedowy (diesel)\n",
"29 Skoda Octavia 2004 26500 benzyna \n",
"30 Skoda Octavia 2002 22072 olej napedowy (diesel)\n",
"⋮ ⋮ ⋮ ⋮ ⋮ ⋮ \n",
"3925 Skoda Octavia 2000 8900 benzyna \n",
"3926 Skoda Octavia 2006 24500 olej napedowy (diesel)\n",
"3927 Skoda Octavia 2011 51870 benzyna \n",
"3928 Skoda Octavia 2006 29999 benzyna \n",
"3929 Skoda Octavia 2008 36000 olej napedowy (diesel)\n",
"3930 Skoda Octavia 2006 28900 benzyna \n",
"3931 Skoda Octavia 2002 18700 olej napedowy (diesel)\n",
"3932 Skoda Octavia 2006 26900 olej napedowy (diesel)\n",
"3933 Skoda Octavia 2006 24900 olej napedowy (diesel)\n",
"3934 Skoda Octavia 2010 32999 benzyna \n",
"3935 Skoda Octavia 2001 15900 olej napedowy (diesel)\n",
"3936 Skoda Octavia 2010 42195 benzyna \n",
"3937 Skoda Octavia 2001 18900 benzyna \n",
"3938 Skoda Octavia 2011 67180 benzyna \n",
"3939 Skoda Octavia 2011 75129 olej napedowy (diesel)\n",
"3940 Skoda Octavia 2011 76550 benzyna \n",
"3941 Skoda Octavia 2005 26500 olej napedowy (diesel)\n",
"3942 Skoda Octavia 2007 27900 olej napedowy (diesel)\n",
"3943 Skoda Octavia 2005 22000 olej napedowy (diesel)\n",
"3944 Skoda Octavia 1998 10900 olej napedowy (diesel)\n",
"3945 Skoda Octavia 1997 11800 olej napedowy (diesel)\n",
"3946 Skoda Octavia 2000 14900 olej napedowy (diesel)\n",
"3947 Skoda Octavia 2010 32900 olej napedowy (diesel)\n",
"3948 Skoda Octavia 1999 7800 benzyna \n",
"3949 Skoda Octavia 2000 11800 olej napedowy (diesel)\n",
"3950 Skoda Octavia 1999 6850 benzyna+LPG \n",
"3951 Skoda Octavia 2005 8900 olej napedowy (diesel)\n",
"3952 Skoda Octavia 2007 2600 benzyna \n",
"3953 Skoda Octavia 2001 18600 olej napedowy (diesel)\n",
"3954 Skoda Octavia 2000 14200 olej napedowy (diesel)"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"auta2012 %>% \n",
" filter(Brand == 'Skoda', Model == 'Octavia') %>% \n",
" select(Brand, Model, Year, Price.in.PLN, Type.of.fuel) -> data.skods # Preapre data\n",
"data.skods"
]
},
{
"cell_type": "code",
"execution_count": 14,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N0JlF51eT/wJ7OFLASSkAFC2AIUciqgNhwW\nhSQcNk+FsoetrSC0ymIp4JGC0Irn0CJSFKHQI6iUgIWDrVQNhs3QUoyitaBAQoAQlgDBhJBM\nltn//b3/M5kMeecyE2Z573s/95xx3vf+7nvv8/s8k/Flvu+9d0Tn/y1hIUCAAAECBAgQIECA\nAAECBAgQIECAAAECBAgQIECAAIHcC9TkfgYmQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg\nQIAAAQIlAQGwHwQCBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAhUiYAAuEoaaRoECBAg\nQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAQAPsZIECAAAECBAgQIECAAAECBAgQIECAAAEC\nBAgQIECAQJUICICrpJGmQYAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQGwnwECBAgQ\nIECAAAECBAgQIECAAAECBAgQIECAAAECBAhUiYAAuEoaaRoECBAgQIAAAQIECBAgQIAAAQIE\nCBAgQIAAAQIECBAQAPsZIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAQJUI1FXJPIZt\nGqtWrYqWlpZhO74DEyCwZQLjxo2L1atXb9mLvYoAgaoRaGhoiNGjR8e6dev8/3nVdNVECGy5\ngPcHW27nlQSqSaC+vj7GjBkT69evj+bm5mqamrkQILAFAltvvXWsWbNmC17pJQQIVJNAXV1d\njB07NjZs2FD6qqa5mQsBAv0XSL8P1q5dG52dnf1/8Yd8RW1tbUycOPED9yIA/kCi7A3a29sj\nfVkIEMiXQPqjjn+7+eqZagkMlkAKgdMfeP1OGCxh+yWQHwHvD/LTK5USGEyB9Afe9P4g/YHX\n+4PBlLZvAvkQSL8TOjo6huUPvPkQUiWBYgikwCW9P0gng3l/UIyemyWBLIGu9wfpPUKlLi4B\nXamdURcBAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgT6KSAA7ieYzQkQIECAAAECBAgQ\nIECAAAECBAgQIECAAAECBAgQIFCpAgLgSu2MuggQIECAAAECBAgQIECAAAECBAgQIECAAAEC\nBAgQINBPAQFwP8FsToAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAgUoVEABXamfURYAA\nAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAgX4KCID7CWZzAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgQIVKqAALhSO6MuAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQI9FNA\nANxPMJsTIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECgUgUEwJXaGXURIECAAAECBAgQ\nIECAAAECBAgQIECAAAECBAgQIECgnwIC4H6C2ZwAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg\nQIAAAQKVKiAArtTOqIsAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQL9FBAA9xPM5gQI\nECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIEKhUAQFwpXZGXQQIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgQIEOingAC4n2A2J0CAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAQKUK\nCIArtTPqIkCAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAQD8FBMD9BLM5AQIECBAgQIAA\nAQIECBAgQIAAAQIECBAgQIAAAQIEKlVAAFypnVEXAQIECBAgQIAAAQIECBAgQIAAAQIECBAg\nQIAAAQIE+ikgAO4nmM0JECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBQqQIC4ErtjLoI\nECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECDQTwEBcD/BbE6AAAECBAgQIECAAAECBAgQ\nIECAAAECBAgQIECAAIFKFRAAV2pn1EWAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAIF+\nCgiA+wlmcwIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECFSqgAC4UjujLgIECBAgQIAA\nAQIECBAgQIAAAQIECBAgQIAAAQIECPRTQADcTzCbEyBAgAABAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAoFIFBMCV2hl1ESBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAoJ8CAuB+gtmc\nAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAEClSogAK7UzqiLAAECBAgQIECAAAECBAgQ\nIECAAAECBAgQIECAAAEC/RQQAPcTzOYECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBCo\nVAEBc
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(data.skods, aes(x = Year, y = Price.in.PLN)) + \n",
" geom_point() # Too many points"
]
},
{
"cell_type": "code",
"execution_count": 15,
"metadata": {},
"outputs": [
{
"name": "stderr",
"output_type": "stream",
"text": [
"`geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = \"cs\")'\n",
"\n"
]
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N1plGRHfSD6f+1bd3V3dXdVb2jp1oI2FtvC\nRiAPIARGkgW2We3BHr/n5+GN33iZTzPnzIc3X2Y+zDnj53me3X4MXsZCYIwBAbZABhkENojN\nIKGltfdWa3ftW1a9jER5q7K2rr2yMn9xTpI34sa9N+IX1Ukp/xURNbP5FBIBAgQIECBAgAAB\nAgQIECBAgAABAgQIECBAgAABAgQI7HqB2l3fAx0gQIAAAQIECBAgQIAAAQIECBAgQIAAAQIE\nCBAgQIAAgYKAALAfBAIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECFSIgABwhQykbhAg\nQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQEAA2M8AAQIECBAgQIAAAQIECBAgQIAAAQIE\nCBAgQIAAAQIEKkRAALhCBlI3CBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgIADsZ4AA\nAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIVIiAAXCEDqRsECBAgQIAAAQIECBAgQIAA\nAQIECBAgQIAAAQIECBAQAPYzQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAgQoRqK+Q\nfuxYN7q7u3fs2R5MgMD6BBoaGqK+vj7GxsbWdwNXESBQMQKtra3R2NgYly5ditnZ2Yrpl44Q\nILB2gdra2kifCcPDw2u/2BUECFSUQHNzc6RX+jyYnp6uqL7pDAECaxdob2+PwcHBtV/oCgIE\nKkogfZ/Y1tZW+D5xYmKiovqmMwQIrF1g7969hf9e2InvE+vq6uLgwYOXbbQA8GWJVq6Qy+VW\nruAsAQJlJ5CCv+lLXv9+y25oNIjAtgukX5hSAHhmZqbw2vYGeCABAmUlkD4T/H5QVkOiMQR2\nRKCmpqbw+0F6uM+EHRkCDyVQVgIp6OOzoKyGRGMI7IhA+j4xfX8wPj7uM2FHRsBDCZSXQPr+\noNy/T7QEdHn9zGgNAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIE1i0gALxuOhcSIECA\nAAECBAgQIECAAAECBAgQIECAAAECBAgQIECgvAQEgMtrPLSGAAECBAgQIECAAAECBAgQIECA\nAAECBAgQIECAAAEC6xYQAF43nQsJECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBQXgIC\nwOU1HlpDgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgACBdQsIAK+bzoUECBAgQIAAAQIE\nCBAgQIAAAQIECBAgQIAAAQIECBAoLwEB4PIaD60hQIAAAQIECBAgQIAAAQIECBAgQIAAAQIE\nCBAgQIDAugUEgNdN50ICBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAiUl4AAcHmNh9YQ\nIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIEBg3QICwOumcyEBAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgTKS0AAuLzGQ2sIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECCw\nbgEB4HXTuZAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQLlJSAAXF7joTUECBAgQIAA\nAQIECBAgQIAAAQIECBAgQIAAAQIECBBYt4AA8LrpXEiAAAECBAgQIECAAAECBAgQIECAAAEC\nBAgQIECAAIHyEhAALq/x0BoCBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAisW0AAeN10\nLiRAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgEB5CQgAl9d4aA0BAgQIECBAgAABAgQI\nECBAgAABAgQIECBAgAABAgTWLSAAvG46FxIgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg\nQKC8BASAy2s8tIYAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQLrFhAAXjedCwkQIECA\nAAECBAgQIECAAAECBAgQIECAAAECBAgQIFBeAgLA5TUeWkOAAAECBAgQIECAAAECBAgQIECA\nAAECBAgQIECAAIF1CwgAr5vOhQQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECgvAQHg\n8hoPrSFAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgMC6BQSA103nQgIECBAgQIAAAQIE\nCBAgQIAAAQIECBAgQIAAAQIECJSXgABweY2H1hAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIE\nCBAgQGDdAgLA66ZzIQECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBMpLQAC4vMZDawgQ\nIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQILBuAQHgddO5kAABAgQIECBAgAABAgQIECBA\ngAABA
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(data.skods, aes(x = Year, y = Price.in.PLN)) + \n",
" geom_smooth() # Smoothed regression line + standard error"
]
},
{
"cell_type": "code",
"execution_count": 16,
"metadata": {},
"outputs": [
{
"name": "stderr",
"output_type": "stream",
"text": [
"`geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = \"cs\")'\n",
"\n"
]
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N0JmGRlfS/+X3d19/Q+G7uACqIgGAUBUZDI\njiwDBP4iKIrmmuCGy/Ua42P+3pj/o7nhBhOvXI1RWdzYBUQUARUCiguKsgsICgzLDDNM73v9\n6zTMqalZu6uXOlX1qefpp9+z/97P21PTU995z2nIF17hRYAAAQIECBAgQIAAAQIECBAgQIAA\nAQIECBAgQIAAAQJVL9BY9T3QAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBCYFBAA\n+0EgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIBAjQgIgGtkIHWDAAECBAgQIECAAAEC\nBAgQIECAAAECBAgQIECAAAECAmA/AwQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIEKgR\nAQFwjQykbhAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQEAA7GeAAAECBAgQIECAAAEC\nBAgQIECAAAECBAgQIECAAAECNSIgAK6RgdQNAgQIECBAgAABAgQIECBAgAABAgQIECBAgAAB\nAgQICID9DBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQKBGBJpqpB8V68YzzzxTsWu7\nMAEC5Qk0NzdHU1NTDA4OlncCRxEgUDMC7e3t0dLSEmvWrIl8Pl8z/dIRAgSmL9DY2BjJe0Jf\nX9/0D3YEAQI1JdDa2hrJV/J+MDY2VlN90xkCBKYv0N3dHT09PdM/0BEECNSUQPJ5YkdHx+Tn\nicPDwzXVN50hQGD6Al1dXZP/XqjE54m5XC6WLl26xaIFwFsk2vwO4+Pjm9/BVgIEMieQhL/J\nh7z+/GZuaBREYN4Fkl+YkgB4YmJi8mveC3BBAgQyJZC8J/j9IFNDohgCFRFoaGiY/P0gubj3\nhIoMgYsSyJRAEvp4L8jUkCiGQEUEks8Tk88PhoaGvCdUZARclEC2BJLPD7L+eaJbQGfrZ0Y1\nBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQKFtAAFw2nQMJECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgQIECCQLQEBcLbGQzUECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAo\nW0AAXDadAwkQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIJAtAQFwtsZDNQQIECBAgAAB\nAgQIECBAgAABAgQIECBAgAABAgQIEChbQABcNp0DCRAgQIAAAQIECBAgQIAAAQIECBAgQIAA\nAQIECBAgkC0BAXC2xkM1BAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQKFtAAFw2nQMJ\nECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECCQLQEBcLbGQzUECBAgQIAAAQIECBAgQIAA\nAQIECBAgQIAAAQIECBAoW0AAXDadAwkQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIJAt\nAQFwtsZDNQQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIEChbQABcNp0DCRAgQIAAAQIE\nCBAgQIAAAQIECBAgQIAAAQIECBAgkC0BAXC2xkM1BAgQIECAAAECBAgQIECAAAECBAgQIECA\nAAECBAgQKFtAAFw2nQMJECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECCQLQEBcLbGQzUE\nCBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAoW0AAXDadAwkQIECAAAECBAgQIECAAAEC\nBAgQIECAAAECBAgQIJAtAQFwtsZDNQQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIEChb\nQABcNp0DCRAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgkC0BAXC2xkM1BAgQIECAAAEC\nBAgQIECAAAECBAgQIECAAAECBAgQKFtAAFw2nQMJECBAgAABAgQIECBAgAABAgQIECBAgAAB\nAgQIECCQLQEBcLbGQzUECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAoW0AAXDadAwkQ\nIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIJAtAQFwtsZDNQQIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgQIEChbQABcNp0DCRAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgkC0B\nAXC2xkM1BAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQKFtAAFw2nQMJECBAgAABAgQI\nECBAgAABAgQIECBAgAABAgQIECCQLQEBcLbGQzUECBAgQIAAAQIECBAgQIAAAQIECBAgQIAA\nAQIECBAoW0AAXDadAwkQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIJAtAQFwtsZDNQQI\nECBAg
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(data.skods, aes(x = Year, y = Price.in.PLN)) + \n",
" geom_smooth(se = FALSE)"
]
},
{
"cell_type": "code",
"execution_count": 17,
"metadata": {},
"outputs": [
{
"name": "stderr",
"output_type": "stream",
"text": [
"`geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = \"cs\")'\n",
"\n"
]
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N0JlF51eT/wJ7OFLASSkAFC2AIUciqgNhwW\nhSQcNk+FsoetrSC0ymIp4JGC0Irn0CJSFKHQI6iUgIWDrVQNhs3QUoyitaBAQoAQlgDBhJBM\nltn//b3/M5kMeecyE2Z573s/95xx3vf+7nvv8/s8k/Flvu+9d0Tn/y1hIUCAAAECBAgQIECA\nAAECBAgQIECAAAECBAgQIECAAIHcC9TkfgYmQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg\nQIAAAQIlAQGwHwQCBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAhUiYAAuEoaaRoECBAg\nQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAQAPsZIECAAAECBAgQIECAAAECBAgQIECAAAEC\nBAgQIECAQJUICICrpJGmQYAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQGwnwECBAgQ\nIECAAAECBAgQIECAAAECBAgQIECAAAECBAhUiYAAuEoaaRoECBAgQIAAAQIECBAgQIAAAQIE\nCBAgQIAAAQIECBAQAPsZIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAQJUI1FXJPIZt\nGqtWrYqWlpZhO74DEyCwZQLjxo2L1atXb9mLvYoAgaoRaGhoiNGjR8e6dev8/3nVdNVECGy5\ngPcHW27nlQSqSaC+vj7GjBkT69evj+bm5mqamrkQILAFAltvvXWsWbNmC17pJQQIVJNAXV1d\njB07NjZs2FD6qqa5mQsBAv0XSL8P1q5dG52dnf1/8Yd8RW1tbUycOPED9yIA/kCi7A3a29sj\nfVkIEMiXQPqjjn+7+eqZagkMlkAKgdMfeP1OGCxh+yWQHwHvD/LTK5USGEyB9Afe9P4g/YHX\n+4PBlLZvAvkQSL8TOjo6huUPvPkQUiWBYgikwCW9P0gng3l/UIyemyWBLIGu9wfpPUKlLi4B\nXamdURcBAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgT6KSAA7ieYzQkQIECAAAECBAgQ\nIECAAAECBAgQIECAAAECBAgQIFCpAgLgSu2MuggQIECAAAECBAgQIECAAAECBAgQIECAAAEC\nBAgQINBPAQFwP8FsToAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAgUoVEABXamfURYAA\nAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAgX4KCID7CWZzAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgQIVKqAALhSO6MuAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQI9FNA\nANxPMJsTIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECgUgUEwJXaGXURIECAAAECBAgQ\nIECAAAECBAgQIECAAAECBAgQIECgnwIC4H6C2ZwAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg\nQIAAAQKVKiAArtTOqIsAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQL9FBAA9xPM5gQI\nECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIEKhUAQFwpXZGXQQIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgQIEOingAC4n2A2J0CAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAQKUK\nCIArtTPqIkCAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAQD8FBMD9BLM5AQIECBAgQIAA\nAQIECBAgQIAAAQIECBAgQIAAAQIEKlVAAFypnVEXAQIECBAgQIAAAQIECBAgQIAAAQIECBAg\nQIAAAQIE+ikgAO4nmM0JECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBQqQIC4ErtjLoI\nECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECDQTwEBcD/BbE6AAAECBAgQIECAAAECBAgQ\nIECAAAECBAgQIECAAIFKFRAAV2pn1EWAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAIF+\nCgiA+wlmcwIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECFSqgAC4UjujLgIECBAgQIAA\nAQIECBAgQIAAAQIECBAgQIAAAQIECPRTQADcTzCbEyBAgAABAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAoFIFBMCV2hl1ESBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAoJ8CAuB+gtmc\nAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAEClSogAK7UzqiLAAECBAgQIECAAAECBAgQ\nIECAAAECBAgQIECAAAEC/RQQAPcTzOYECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBCo\nVAEBc
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(data.skods, aes(x = Year, y = Price.in.PLN)) + \n",
" geom_point() + \n",
" geom_smooth(se = FALSE)"
]
},
{
"cell_type": "code",
"execution_count": 18,
"metadata": {},
"outputs": [
{
"name": "stderr",
"output_type": "stream",
"text": [
"`geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = \"cs\")'\n",
"\n"
]
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N0LkF11fQfw32YfeRLIg0RDSDVElCAUKJYK\n0QAtIaPjI6B2GFDLMCopFgJ0WtpqK7X1MQ1twEctUuoUimC1ohMNNK0UxAQQgcAISYGkYIOo\nSYFssslu9lHOZXZvNiR3c7N7957/PZ87s+459zz+v//nt1kv97vn3Ka+lx/hQYAAAQIECBAg\nQIAAAQIECBAgQIAAAQIECBAgQIAAAQLJC4xJfgYmQIAAAQIECBAgQIAAAQIECBAgQIAAAQIE\nCBAgQIAAAQIlAQGwHwQCBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAg0iIAAuEEaaRoE\nCBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAQAPsZIECAAAECBAgQIECAAAECBAgQIECA\nAAECBAgQIECAQIMICIAbpJGmQYAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQGwnwEC\nBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAg0iIAAuEEaaRoECBAgQIAAAQIECBAgQIAA\nAQIECBAgQIAAAQIECBAQAPsZIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAQIMItDTI\nPOo2jRdffDG6urrqNr6BCRA4OIHJkyfHtm3bDu5gRxEg0DACbW1tMWHChOjo6PD/5w3TVRMh\ncPACXh8cvJ0jCTSSQGtra0ycODF27twZnZ2djTQ1cyFA4CAEDjnkkGhvbz+IIx1CgEAjCbS0\ntMSkSZNi165dpa9Gmpu5ECBQvUD2+2DHjh3R19dX/cHDPKK5uTmmTZs25FkEwEMSVd6hp6cn\nsi8PAgTSEsje1PFvN62eqZZArQSyEDh7g9fvhFoJOy+BdAS8PkinVyolUEuB7A3e7PVB9gav\n1we1lHZuAmkIZL8Tent76/IGbxpCqiRQDIEscMleH2QXg3l9UIyemyWBSgL9rw+y1wh5fbgF\ndF47oy4CBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAhUKSAArhLM7gQIECBAgAABAgQI\nECBAgAABAgQIECBAgAABAgQIEMirgAA4r51RFwECBAgQIECAAAECBAgQIECAAAECBAgQIECA\nAAECBKoUEABXCWZ3AgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQI5FVAAJzXzqiLAAEC\nBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECVQoIgKsEszsBAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgTyKiAAzmtn1EWAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAIEqBQTA\nVYLZnQABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAnkVEADntTPqIkCAAAECBAgQIECA\nAAECBAgQIECAAAECBAgQIECAQJUCAuAqwexOgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngACBvAoIgPPaGXURIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECgSgEBcJVgdidAgAAB\nAgQIECBAgAABAgQIECBAgAABAgQIECBAgEBeBQTAee2MuggQIECAAAECBAgQIECAAAECBAgQ\nIECAAAECBAgQIFClgAC4SjC7EyBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAIK8CAuC8\ndkZdBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQqFJAAFwlmN0JECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECCQVwEBcF47oy4CBAgQIECAAAECBAgQIECAAAECBAgQIECAAAEC\nBAhUKSAArhLM7gQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIEMirgAA4r51RFwECBAgQ\nIECAAAECBAgQIECAAAECBAgQIECAAAECBKoUEABXCWZ3AgQIECBAgAABAgQIECBAgAABAgQI\nECBAgAABAgQI5FVAAJzXzqiLAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECVQoIgKsE\nszsBAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgTyKiAAzmtn1EWAAAECBAgQIECAAAEC\nBAgQIECAAAECBAgQIECAAIEqBQTAVYLZnQABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAAB\nAnkVEADntTPqIkCAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAQJUCAuAqwexOgAABAgQI\nECBAgAABAgQIECBAgAABAgQIECBAgACBvAoIgPPaGXURIECAAAECBAgQIECAAAECBAgQIECA\nAAECBAgQIECgSgEBcJVgdidAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgEBeBQTAee2M\nuggQI
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(data.skods, aes(x = Year, y = Price.in.PLN)) + \n",
" geom_point(size = 0.5) + \n",
" geom_smooth(se = FALSE, size = 3) # Layers are independent"
]
},
{
"cell_type": "code",
"execution_count": 19,
"metadata": {},
"outputs": [
{
"name": "stderr",
"output_type": "stream",
"text": [
"`geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = \"cs\")'\n",
"\n",
"`geom_smooth()` using formula 'y ~ x'\n",
"\n"
]
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N0LkJ1lfT/w32YvIRguJuFiSrkLSUxCCOGi\nkIQgCVEoLYowHaUjgxRTqqRpazutMnXSqVo1UEal0xEsdxWw0Y4YEi7BVORSUJCKWEPAAgmX\nkJDNZbPXv++Z/+7JBkiye/bsed7zfs7MMe+7532f5/d8fst6st+872no+d0jPAgQIECAAAEC\nBAgQIECAAAECBAgQIECAAAECBAgQIEAg9wIjcr8CCyBAgAABAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAgACBkoAA2DcCAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIE6kRAAFwnjbQM\nAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQICIB9DxAgQIAAAQIECBAgQIAAAQIECBAg\nQIAAAQIECBAgQKBOBATAddJIyyBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgIAA2PcA\nAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIE6kRAAFwnjbQMAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQICIB9DxAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQKBOBJrq\nZB01W8bGjRujvb29ZvObmACBwQnsu+++sWnTpsGd7CwCBOpGoKWlJfbee+/YunWr/z+vm65a\nCIHBC3h/MHg7ZxKoJ4Hm5uZ4xzveEdu2bYvt27fX09KshQCBQQjss88+0draOogznUKAQD0J\nNDU1xejRo6Otra30rKe1WQsBAgMXyH4ebNmyJXp6egZ+coVnNDY2xtixY3c7igB4t0S7PqCr\nqyuypwcBAvkSyH6p47/dfPVMtQSqJZCFwNkveP1MqJawcQnkR8D7g/z0SqUEqimQ/YI3e3+Q\n/YLX+4NqShubQD4Esp8J3d3dNfkFbz6EVEmgGAJZ4JK9P8guBvP+oBg9t0oCuxLofX+QvUdI\n9eEW0Kl2Rl0ECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAYoIAAeIBgDidAgAABAgQI\nECBAgAABAgQIECBAgAABAgQIECBAgECqAgLgVDujLgIECBAgQIAAAQIECBAgQIAAAQIECBAg\nQIAAAQIECAxQQAA8QDCHEyBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAIFUBAXCqnVEX\nAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIEBiggAB4gmMMJECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgQIECCQqoAAONXOqIsAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQID\nFBAADxDM4QQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIEEhVQACcamfURYAAAQIECBAg\nQIAAAQIECBAgQIAAAQIECBAgQIAAgQEKCIAHCOZwAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQIpCogAE61M+oiQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIDAAAUEwAMEczgB\nAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgRSFRAAp9oZdREgQIAAAQIECBAgQIAAAQIE\nCBAgQIAAAQIECBAgQGCAAgLgAYI5nAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAqkK\nCIBT7Yy6CBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgMEABAfAAwRxOgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgACBVAUEwKl2Rl0ECBAgQIAAAQIECBAgQIAAAQIECBAgQIAA\nAQIECBAYoIAAeIBgDidAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgECqAgLgVDujLgIE\nCBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECAxQQAA8QDCHEyBAgAABAgQIECBAgAABAgQI\nECBAgAABAgQIECBAIFUBAXCqnVEXAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIEBigg\nAB4gmMMJECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECCQqoAAONXOqIsAAQIECBAgQIAA\nAQIECBAgQIAAAQIECBAgQIAAAQIDFBAADxDM4QQIECBAgAABAgQIECBAgAABAgQIECBAgAAB\nAgQIEEhVQACcamfURYAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAgQEKCIAHCOZwAgQI\nECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIpCogAE61M+oiQIAAAQIECBAgQIAAAQIECBAg\nQIAAAQIECBAgQIDAAAUEwAMEczgBAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgRSFRAA\np9oZd
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(data.skods, aes(x = Year, y = Price.in.PLN)) + \n",
" geom_point(size = 0.5) +\n",
" geom_smooth(se = FALSE, size = 2) + \n",
" geom_smooth(method = 'lm', size = 2, color = 'green') + \n",
" geom_smooth(method = 'lm', formula = y ~ poly(x, 2), size = 2, color = 'red')"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"#### Wykres pudełkowy"
]
},
{
"cell_type": "code",
"execution_count": 20,
"metadata": {},
"outputs": [
{
"data": {
"text/html": [
"<table>\n",
"<caption>A data.frame: 950 ×
"<thead>\n",
"\t<tr><th scope=col>Brand</th><th scope=col>Model</th><th scope=col>Year</th><th scope=col>Price.in.PLN</th><th scope=col>Type.of.fuel</th></tr>\n",
"\t<tr><th scope=col><fct></th><th scope=col><fct></th><th scope=col><dbl></th><th scope=col><dbl></th><th scope=col><fct></th></tr>\n",
"</thead>\n",
"<tbody>\n",
"\t<tr><td>Skoda</td><td>Fabia </td><td>2007</td><td>21850</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>38900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>32500</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>32500</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Superb </td><td>2007</td><td>36600</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Fabia </td><td>2007</td><td>14500</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>36600</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Fabia </td><td>2007</td><td>25494</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>34900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Fabia </td><td>2007</td><td>18900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>35900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Fabia </td><td>2007</td><td>19732</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Fabia </td><td>2007</td><td>24119</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Fabia </td><td>2007</td><td>31500</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Roomster</td><td>2007</td><td>19700</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Fabia </td><td>2007</td><td>29900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>37900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Fabia </td><td>2007</td><td>23700</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Fabia </td><td>2007</td><td>23200</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>27900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>44500</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>10900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Roomster</td><td>2007</td><td>21900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Fabia </td><td>2007</td><td>21200</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Superb </td><td>2007</td><td>39999</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>28900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>23526</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Roomster</td><td>2007</td><td>32900</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>39900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>24900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>⋮</td><td>⋮</td><td>⋮</td><td>⋮</td><td>⋮</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td> 600</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>35800</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>44900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Fabia </td><td>2007</td><td>24900</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Fabia </td><td>2007</td><td>25900</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Fabia </td><td>2007</td><td>25900</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Fabia </td><td>2007</td><td>24900</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Fabia </td><td>2007</td><td>24900</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Fabia </td><td>2007</td><td>25900</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Roomster</td><td>2007</td><td>28900</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>29200</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>29900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Fabia </td><td>2007</td><td>15300</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>34500</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>35900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>32500</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>27900</td><td>benzyna+LPG </td></tr>\n",
"\t<tr><td>Skoda</td><td>Fabia </td><td>2007</td><td>13200</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>33500</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>34900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>34900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Fabia </td><td>2007</td><td>26900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Fabia </td><td>2007</td><td>20200</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Roomster</td><td>2007</td><td>19900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td>27900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Fabia </td><td>2007</td><td>14800</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Fabia </td><td>2007</td><td>16800</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Octavia </td><td>2007</td><td> 2600</td><td>benzyna </td></tr>\n",
"\t<tr><td>Skoda</td><td>Fabia </td><td>2007</td><td>13900</td><td>olej napedowy (diesel)</td></tr>\n",
"\t<tr><td>Skoda</td><td>Fabia </td><td>2007</td><td>12700</td><td>benzyna </td></tr>\n",
"</tbody>\n",
"</table>\n"
],
"text/latex": [
"A data.frame: 950 ×
"\\begin{tabular}{lllll}\n",
" Brand & Model & Year & Price.in.PLN & Type.of.fuel\\\\\n",
" <fct> & <fct> & <dbl> & <dbl> & <fct>\\\\\n",
"\\hline\n",
"\t Skoda & Fabia & 2007 & 21850 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 38900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 32500 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 32500 & benzyna \\\\\n",
"\t Skoda & Superb & 2007 & 36600 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Fabia & 2007 & 14500 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 36600 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Fabia & 2007 & 25494 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 34900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Fabia & 2007 & 18900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 35900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Fabia & 2007 & 19732 & benzyna \\\\\n",
"\t Skoda & Fabia & 2007 & 24119 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Fabia & 2007 & 31500 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Roomster & 2007 & 19700 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Fabia & 2007 & 29900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 37900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Fabia & 2007 & 23700 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Fabia & 2007 & 23200 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 27900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 44500 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 10900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Roomster & 2007 & 21900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Fabia & 2007 & 21200 & benzyna \\\\\n",
"\t Skoda & Superb & 2007 & 39999 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 28900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 23526 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Roomster & 2007 & 32900 & benzyna \\\\\n",
"\t Skoda & Octavia & 2007 & 39900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 24900 & olej napedowy (diesel)\\\\\n",
"\t ⋮ & ⋮ & ⋮ & ⋮ & ⋮\\\\\n",
"\t Skoda & Octavia & 2007 & 600 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 35800 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 44900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Fabia & 2007 & 24900 & benzyna \\\\\n",
"\t Skoda & Fabia & 2007 & 25900 & benzyna \\\\\n",
"\t Skoda & Fabia & 2007 & 25900 & benzyna \\\\\n",
"\t Skoda & Fabia & 2007 & 24900 & benzyna \\\\\n",
"\t Skoda & Fabia & 2007 & 24900 & benzyna \\\\\n",
"\t Skoda & Fabia & 2007 & 25900 & benzyna \\\\\n",
"\t Skoda & Roomster & 2007 & 28900 & benzyna \\\\\n",
"\t Skoda & Octavia & 2007 & 29200 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 29900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Fabia & 2007 & 15300 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 34500 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 35900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 32500 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 27900 & benzyna+LPG \\\\\n",
"\t Skoda & Fabia & 2007 & 13200 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 33500 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 34900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 34900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Fabia & 2007 & 26900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Fabia & 2007 & 20200 & benzyna \\\\\n",
"\t Skoda & Roomster & 2007 & 19900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 27900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Fabia & 2007 & 14800 & benzyna \\\\\n",
"\t Skoda & Fabia & 2007 & 16800 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Octavia & 2007 & 2600 & benzyna \\\\\n",
"\t Skoda & Fabia & 2007 & 13900 & olej napedowy (diesel)\\\\\n",
"\t Skoda & Fabia & 2007 & 12700 & benzyna \\\\\n",
"\\end{tabular}\n"
],
"text/markdown": [
"\n",
"A data.frame: 950 ×
"\n",
"| Brand <fct> | Model <fct> | Year <dbl> | Price.in.PLN <dbl> | Type.of.fuel <fct> |\n",
"|---|---|---|---|---|\n",
"| Skoda | Fabia | 2007 | 21850 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 38900 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 32500 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 32500 | benzyna |\n",
"| Skoda | Superb | 2007 | 36600 | olej napedowy (diesel) |\n",
"| Skoda | Fabia | 2007 | 14500 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 36600 | olej napedowy (diesel) |\n",
"| Skoda | Fabia | 2007 | 25494 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 34900 | olej napedowy (diesel) |\n",
"| Skoda | Fabia | 2007 | 18900 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 35900 | olej napedowy (diesel) |\n",
"| Skoda | Fabia | 2007 | 19732 | benzyna |\n",
"| Skoda | Fabia | 2007 | 24119 | olej napedowy (diesel) |\n",
"| Skoda | Fabia | 2007 | 31500 | olej napedowy (diesel) |\n",
"| Skoda | Roomster | 2007 | 19700 | olej napedowy (diesel) |\n",
"| Skoda | Fabia | 2007 | 29900 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 37900 | olej napedowy (diesel) |\n",
"| Skoda | Fabia | 2007 | 23700 | olej napedowy (diesel) |\n",
"| Skoda | Fabia | 2007 | 23200 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 27900 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 44500 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 10900 | olej napedowy (diesel) |\n",
"| Skoda | Roomster | 2007 | 21900 | olej napedowy (diesel) |\n",
"| Skoda | Fabia | 2007 | 21200 | benzyna |\n",
"| Skoda | Superb | 2007 | 39999 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 28900 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 23526 | olej napedowy (diesel) |\n",
"| Skoda | Roomster | 2007 | 32900 | benzyna |\n",
"| Skoda | Octavia | 2007 | 39900 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 24900 | olej napedowy (diesel) |\n",
"| ⋮ | ⋮ | ⋮ | ⋮ | ⋮ |\n",
"| Skoda | Octavia | 2007 | 600 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 35800 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 44900 | olej napedowy (diesel) |\n",
"| Skoda | Fabia | 2007 | 24900 | benzyna |\n",
"| Skoda | Fabia | 2007 | 25900 | benzyna |\n",
"| Skoda | Fabia | 2007 | 25900 | benzyna |\n",
"| Skoda | Fabia | 2007 | 24900 | benzyna |\n",
"| Skoda | Fabia | 2007 | 24900 | benzyna |\n",
"| Skoda | Fabia | 2007 | 25900 | benzyna |\n",
"| Skoda | Roomster | 2007 | 28900 | benzyna |\n",
"| Skoda | Octavia | 2007 | 29200 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 29900 | olej napedowy (diesel) |\n",
"| Skoda | Fabia | 2007 | 15300 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 34500 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 35900 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 32500 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 27900 | benzyna+LPG |\n",
"| Skoda | Fabia | 2007 | 13200 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 33500 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 34900 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 34900 | olej napedowy (diesel) |\n",
"| Skoda | Fabia | 2007 | 26900 | olej napedowy (diesel) |\n",
"| Skoda | Fabia | 2007 | 20200 | benzyna |\n",
"| Skoda | Roomster | 2007 | 19900 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 27900 | olej napedowy (diesel) |\n",
"| Skoda | Fabia | 2007 | 14800 | benzyna |\n",
"| Skoda | Fabia | 2007 | 16800 | olej napedowy (diesel) |\n",
"| Skoda | Octavia | 2007 | 2600 | benzyna |\n",
"| Skoda | Fabia | 2007 | 13900 | olej napedowy (diesel) |\n",
"| Skoda | Fabia | 2007 | 12700 | benzyna |\n",
"\n"
],
"text/plain": [
" Brand Model Year Price.in.PLN Type.of.fuel \n",
"1 Skoda Fabia 2007 21850 olej napedowy (diesel)\n",
"2 Skoda Octavia 2007 38900 olej napedowy (diesel)\n",
"3 Skoda Octavia 2007 32500 olej napedowy (diesel)\n",
"4 Skoda Octavia 2007 32500 benzyna \n",
"5 Skoda Superb 2007 36600 olej napedowy (diesel)\n",
"6 Skoda Fabia 2007 14500 olej napedowy (diesel)\n",
"7 Skoda Octavia 2007 36600 olej napedowy (diesel)\n",
"8 Skoda Fabia 2007 25494 olej napedowy (diesel)\n",
"9 Skoda Octavia 2007 34900 olej napedowy (diesel)\n",
"10 Skoda Fabia 2007 18900 olej napedowy (diesel)\n",
"11 Skoda Octavia 2007 35900 olej napedowy (diesel)\n",
"12 Skoda Fabia 2007 19732 benzyna \n",
"13 Skoda Fabia 2007 24119 olej napedowy (diesel)\n",
"14 Skoda Fabia 2007 31500 olej napedowy (diesel)\n",
"15 Skoda Roomster 2007 19700 olej napedowy (diesel)\n",
"16 Skoda Fabia 2007 29900 olej napedowy (diesel)\n",
"17 Skoda Octavia 2007 37900 olej napedowy (diesel)\n",
"18 Skoda Fabia 2007 23700 olej napedowy (diesel)\n",
"19 Skoda Fabia 2007 23200 olej napedowy (diesel)\n",
"20 Skoda Octavia 2007 27900 olej napedowy (diesel)\n",
"21 Skoda Octavia 2007 44500 olej napedowy (diesel)\n",
"22 Skoda Octavia 2007 10900 olej napedowy (diesel)\n",
"23 Skoda Roomster 2007 21900 olej napedowy (diesel)\n",
"24 Skoda Fabia 2007 21200 benzyna \n",
"25 Skoda Superb 2007 39999 olej napedowy (diesel)\n",
"26 Skoda Octavia 2007 28900 olej napedowy (diesel)\n",
"27 Skoda Octavia 2007 23526 olej napedowy (diesel)\n",
"28 Skoda Roomster 2007 32900 benzyna \n",
"29 Skoda Octavia 2007 39900 olej napedowy (diesel)\n",
"30 Skoda Octavia 2007 24900 olej napedowy (diesel)\n",
"⋮ ⋮ ⋮ ⋮ ⋮ ⋮ \n",
"921 Skoda Octavia 2007 600 olej napedowy (diesel)\n",
"922 Skoda Octavia 2007 35800 olej napedowy (diesel)\n",
"923 Skoda Octavia 2007 44900 olej napedowy (diesel)\n",
"924 Skoda Fabia 2007 24900 benzyna \n",
"925 Skoda Fabia 2007 25900 benzyna \n",
"926 Skoda Fabia 2007 25900 benzyna \n",
"927 Skoda Fabia 2007 24900 benzyna \n",
"928 Skoda Fabia 2007 24900 benzyna \n",
"929 Skoda Fabia 2007 25900 benzyna \n",
"930 Skoda Roomster 2007 28900 benzyna \n",
"931 Skoda Octavia 2007 29200 olej napedowy (diesel)\n",
"932 Skoda Octavia 2007 29900 olej napedowy (diesel)\n",
"933 Skoda Fabia 2007 15300 olej napedowy (diesel)\n",
"934 Skoda Octavia 2007 34500 olej napedowy (diesel)\n",
"935 Skoda Octavia 2007 35900 olej napedowy (diesel)\n",
"936 Skoda Octavia 2007 32500 olej napedowy (diesel)\n",
"937 Skoda Octavia 2007 27900 benzyna+LPG \n",
"938 Skoda Fabia 2007 13200 olej napedowy (diesel)\n",
"939 Skoda Octavia 2007 33500 olej napedowy (diesel)\n",
"940 Skoda Octavia 2007 34900 olej napedowy (diesel)\n",
"941 Skoda Octavia 2007 34900 olej napedowy (diesel)\n",
"942 Skoda Fabia 2007 26900 olej napedowy (diesel)\n",
"943 Skoda Fabia 2007 20200 benzyna \n",
"944 Skoda Roomster 2007 19900 olej napedowy (diesel)\n",
"945 Skoda Octavia 2007 27900 olej napedowy (diesel)\n",
"946 Skoda Fabia 2007 14800 benzyna \n",
"947 Skoda Fabia 2007 16800 olej napedowy (diesel)\n",
"948 Skoda Octavia 2007 2600 benzyna \n",
"949 Skoda Fabia 2007 13900 olej napedowy (diesel)\n",
"950 Skoda Fabia 2007 12700 benzyna "
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"auta2012 %>% \n",
" filter(Brand == 'Skoda', Year == 2007) %>% \n",
" select(Brand, Model, Year, Price.in.PLN, Type.of.fuel) -> data.skods # Prepare data set\n",
"data.skods"
]
},
{
"cell_type": "code",
"execution_count": 21,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N19jBx1/Qfwz93t9Xq9PtHyZCkFBSkI8ocB\nqgY0ggV5KsRAIgoaMJqKSJUo+EBChAB/QFpD1GDEEAhEilifiVCCSoAUQSEEi6ICVR7K0daz\n16dr7+HnLLn7tfTau7mb25mdfW3S3O3Mfp9en7nNdt87s00D/7uFGwECBAgQIECAAAECBAgQ\nIECAAAECBAgQIECAAAECBAjUvUBz3a/AAggQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQ\nIECgKiAAdiAQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECgJAIC4JIU0jIIECBAgAAB\nAgQIECBAgAABAgQIECBAgAABAgQIECAgAHYMECBAgAABAgQIECBAgAABAgQIECBAgAABAgQI\nECBAoCQCAuCSFNIyCBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgIAB2DBAgQIAAAQIE\nCBAgQIAAAQIECBAgQIAAAQIECBAgQKAkAgLgkhTSMggQIECAAAECBAgQIECAAAECBAgQIECA\nAAECBAgQICAAdgwQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECgJAKVkqwjt2V0dnbm\nNraBCZRFYOrUqVGpVKKrq6ssS7IOAgQI1IXAlClTYtKkSbFx48bo7++vizmbJAECBMogMHny\n5Ej+bdq0KXp7e8uwJGsgQIBAXQgkr32T18BbtmyJ7du318WcTZIAAQJlEEje+03eA962bVv1\nXxnWZA0E8hJoaWmJ2bNnjzi8AHhEor0/oK+vb+8PsJcAgREFkhcAyX/C/D2NSOUBBAgQyFQg\necGYPP8m4a/n4ExpdUaAAIG9CjQ3N1effwcGBjz/7lXKTgIECGQr0NTUVH3+TQJgr3+ztdUb\nAQIE9iYw+P5vT0+P59+9QdlHIEMBl4DOEFNXBAgQIECAAAECBAgQIECAAAECBAgQIECAAAEC\nBAgQyFNAAJynvrEJECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECCQoYAAOENMXREgQIAA\nAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQCBPAQFwnvrGJkCAAAECBAgQIECAAAECBAgQIECA\nAAECBAgQIECAQIYCAuAMMXVFgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgACBPAUEwHnq\nG5sAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIZCgiAM8TUFQECBAgQIECAAAECBAgQ\nIECAAAECBAgQIECAAAECBPIUEADnqW9sAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQI\nZCggAM4QU1cECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBDIU0AAnKe+sQkQIECAAAEC\nBAgQIECAAAECBAgQIECAAAECBAgQIJChgAA4Q0xdESBAgAABAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAIE8BAXCe+sYmQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIBAhgIC4AwxdUWA\nAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAIE8BQTAeeobmwABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAhkKCIAzxNQVAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIE8hQQ\nAOepb2wCBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAhkKCAAzhBTVwQIECBAgAABAgQI\nECBAgAABAgQIECBAgAABAgQIEMhTQACcp76xCRAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIE\nCBAgkKGAADhDTF0RIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIEAgTwEBcJ76xiZAgAAB\nAgQIECBAgAABAgQIECBAgAABAgQIECBAgECGAgLgDDF1RYAAAQIECBAgQIAAAQIECBAgQIAA\nAQIECBAgQIAAgTwFBMB56hubAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECGQpUMuyr\nIbtqa2tryHVbNIEsBZqamqrd+XvKUlVfBAgQGFmgufmtzwJOmjQp+vv7R27gEQQIECCQiUBL\nS0u1n9bW1hh8LZxJxzohQIAAgb0KVCpvvRWa/PQexF6p7CRAgECmAsnr3uSWvA72/Jsprc4a\nUGC0/4cUAI/z4PBkNU5AzQn8T2AwgPD35HAgQIBAbQUGA4gkAB4YGKjt4EYjQIBAAwsMPv8m\nb4QN/t7AHJZOgACBmgkMBsA+gFMzcgMRIECgKjD4mtcHcBwQBMYvMNqTOATA47TeuHHjOHvQ\nnACBwTe+/D05FggQIFBbgZkzZ0byn69NmzZFX19fbQc3GgECBBpYYNq0aZF8+GbLli2xffv2\nBpawd
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(data.skods, aes(x = Model, y = Price.in.PLN)) + \n",
" geom_boxplot()"
]
},
{
"cell_type": "code",
"execution_count": 22,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N1djB11/T/wzz71uWxpKwUsxfBYBMQLCYIQ\nkScRkHJRjARIFG+KRlBDApEiSYnUBFMuxESMCekF+dEKRgjBhHqBCoYYTEhTWgMUaKCUFlo3\n3Zbttt3dv3P4T7Pb3e0us4fufGdeJymz8/Cd8/m+Ptvl9Lx35rQM/O8RHgQIECBAgAABAgQI\nECBAgAABAgQIECBAgAABAgQIECCQvEBr8jMwAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAA\nAQIECBBoCAiAfSMQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECgIgIC4Io00jQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECAgAPY9QIAAAQIECBAgQIAAAQIECBAgQIAAAQIE\nCBAgQIAAgYoICIAr0kjTIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAgADY9wABAgQI\nECBAgAABAgQIECBAgAABAgQIECBAgAABAgQqIiAArkgjTYMAAQIECBAgQIAAAQIECBAgQIAA\nAQIECBAgQIAAAQICYN8DBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQqIhAe0XmMWnT\n2LFjx6Q9tycmUBWBWbNmRXt7e3R1dVVlSuZBgACBJARmzJgRU6ZMid27d0d/f38SNSuSAAEC\nVRCYNm1aZH/27NkTBw8erMKUzIEAAQJJCGSvfbPXwB9//HHs378/iZoVSYAAgSoIZO/9Zu8B\n79u3r/GnCnMyBwKTJdDW1hbz5s0b8+kFwGMSHfmAvr6+Ix9gLwECYwpkLwCyf4T5+zQmlQMI\nECDQVIHsBWP28zcLf/0MbiqtkxEgQOCIAq2trY2fvwMDA37+HlHKTgIECDRXoKWlpfHzNwuA\nvf5trq2zESBA4EgC+fu/vb29fv4eCco+Ak0UcAvoJmI6FQECBAgQIECAAAECBAgQIECAAAEC\nBAgQIECAAAECBCZTQAA8mfqemwABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAk0UEAA3\nEdOpCBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgMJkCAuDJ1PfcBAgQIECAAAECBAgQ\nIECAAAECBAgQIECAAAECBAgQaKKAALiJmE5FgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngACByRQQAE+mvucmQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIBAEwUEwE3EdCoCBAgQ\nIECAAAECBAgQIECAAAECBAgQIECAAAECBAhMpoAAeDL1PTcBAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgSaKCAAbiKmUxEgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQGAyBQTA\nk6nvuQkQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQINBEAQFwEzGdigABAgQIECBAgAAB\nAgQIECBAgAABAgQIECBAgAABApMpIACeTH3PTYAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg\nQIAAgSYKCICbiOlUBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQmEwBAfBk6ntuAgQI\nECBAgAABAgQIECBAgAABAgQIECBAgAABAgQINFFAANxETKciQIAAAQIECBAgQIAAAQIECBAg\nQIAAAQIECBAgQIDAZAoIgCdT33MTIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECgiQIC\n4CZiOhUBAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQmU0AAPJn6npsAAQIECBAgQIAA\nAQIECBAgQIAAAQIECBAgQIAAAQJNFBAANxHTqQgQIECAAAECBAgQIECAAAECBAgQIECAAAEC\nBAgQIDCZAgLgydT33AQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIEGiigAC4iZhORYAA\nAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAgckUEABPpr7nJkCAAAECBAgQIECAAAECBAgQ\nIECAAAECBAgQIECAQBMF2pt4rlqeaurUqbWct0kTaKZAS0tL43T+PjVT1bkIECAwtkBr6ye/\nCzhlypTo7+8fe4AjCBAgQKApAm1tbY3zdHR0RP5auCkndhICBAgQOKJAe/snb4VmS+9BHJHK\nTgIECDRVIHvdmz2y18F+/jaV1slqKDDef0MKgCf4zeGH1QQBDSfwP4E8gPD3ybcDAQIEjq5A\nHkBkAfDAwMDRfXLPRoAAgRoL5D9/szfC8q9rzGHqBAgQOGoCeQDsF3COGrknIkCAQEMgf83r\nF3B8QxCYuMB4L+IQAE/Qevfu3RM8g+EECORvfPn75HuBAAECR1dgzpw5kf3ja8+ePdHX13d0\nn9yzE
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"data.skods$Model <- reorder(data.skods$Model, data.skods$Price.in.PLN, median)\n",
"ggplot(data.skods, aes(x = Model, y = Price.in.PLN)) + \n",
" geom_boxplot() # Sorted"
]
},
{
"cell_type": "code",
"execution_count": 23,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N1djF1l+Tfge776OWVKWylgqYbPIiAeSBCE\niCCIgJT8U4z8gcTgSdUIasgLkSJJidQEUw7ERIwJ6QGRVjBCCCbUA1QwHOAb0pTWAAUaKKWV\n1kmnZTrtfLyuzbuaTmemM6zZdNaz1rWTsmZ9PGvfz3VPh939m7V2y9B/H+FBgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAskLtCY/AxMgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIE\nCBAgQIAAgYaAANg3AgECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBCoiIACuSCNNgwAB\nAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgJg3wMECBAgQIAAAQIECBAgQIAAAQIECBAg\nQIAAAQIECBCoiIAAuCKNNA0CBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgIgH0PECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAoCICAuCKNNI0CBAgQIAAAQIECBAgQIAAAQIE\nCBAgQIAAAQIECBAgIAD2PUCAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAIGKCLRXZB5T\nNo2dO3dO2XN7YgJVEejs7Iz29vbo7u6uypTMgwABAkkIzJo1K6ZNmxZ79uyJwcHBJGpWJAEC\nBKogMGPGjMj+7N27N/r7+6swJXMgQIBAEgLZa9/sNfCHH34YBw4cSKJmRRIgQKAKAtl7v9l7\nwPv372/8qcKczIHAVAm0tbXF/Pnzx316AfC4REc/YGBg4OgH2EuAwLgC2QuA7B9h/j6NS+UA\nAgQINFUge8GY/fzNwl8/g5tK62QECBA4qkBra2vj5+/Q0JCfv0eVspMAAQLNFWhpaWn8/M0C\nYK9/m2vrbAQIEDiaQP7+b19fn5+/R4Oyj0ATBdwCuomYTkWAAAECBAgQIECAAAECBAgQIECA\nAAECBAgQIECAAIGpFBAAT6W+5yZAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgEATBQTA\nTcR0KgIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECEylgAB4KvU9NwECBAgQIECAAAEC\nBAgQIECAAAECBAgQIECAAAECBJooIABuIqZTESBAgAABAgQIECBAgAABAgQIECBAgAABAgQI\nECBAYCoFBMBTqe+5CRAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg0EQBAXATMZ2KAAEC\nBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECUykgAJ5Kfc9NgAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgACBJgoIgJuI6VQECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBCYSgEB\n8FTqe24CBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAg0UUAA3ERMpyJAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgMBUCgiAp1LfcxMgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIE\nCBAgQKCJAgLgJmI6FQECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBKZSQAA8lfqemwAB\nAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAk0UEAA3EdOpCBAgQIAAAQIECBAgQIAAAQIE\nCBAgQIAAAQIECBAgMJUCAuCp1PfcBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQaKKA\nALiJmE5FgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgACBqRQQAE+lvucmQIAAAQIECBAg\nQIAAAQIECBAgQIAAAQIECBAgQIBAEwUEwE3EdCoCBAgQIECAAAECBAgQIECAAAECBAgQIECA\nAAECBAhMpYAAeCr1PTcBAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgSaKCAAbiKmUxEg\nQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQGAqBQTAU6nvuQkQIECAAAECBAgQIECAAAEC\nBAgQIECAAAECBAgQINBEgfYmnquWp5o+fXot523SBJop0NLS0jidv0/NVHUuAgQIjC/Q2vrR\n7wJOmzYtBgcHxx/gCAIECBBoikBbW1vjPB0dHZG/Fm7KiZ2EAAECBI4q0N7+0Vuh2dJ7EEel\nspMAAQJNFche92aP7HWwn79NpXWyGgpM9N+QAuBJfnP4YTVJQMMJ/FcgDyD8ffLtQIAAgWMr\nkAcQWQA8NDR0bJ/csxEgQKDGAvnP3+yNsPzrGnOYOgECBI6ZQB4A+wWcY0buiQgQINAQyF/z\n+gUc3xAEJi8w0Ys4BMCTtN6zZ88kz2A4AQL5G1/+PvleIECAwLEVmDt3bmT/+Nq7d28MDAwc\n2yf3b
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(data.skods, aes(x = Model, y = Price.in.PLN)) + \n",
" geom_boxplot(aes(fill = Model)) + \n",
" guides(fill = FALSE) # Remove legend for fill"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"#### Histogram"
]
},
{
"cell_type": "code",
"execution_count": 24,
"metadata": {},
"outputs": [
{
"name": "stderr",
"output_type": "stream",
"text": [
"`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.\n",
"\n"
]
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N1LiGRX/Qfw06/pme5xHpmJMSqoScCYLNyI\nIEhEBHFhMiouzEo6K0FFXCVrFxpF1IVGIYFGkCSQ7Ny4EQQXKoghoEZwETOiiWPiTDLvV/f/\nf0uqnc7MnfvIfZxzz6dg6Kq6597zO59fVXfN/XZVL2z//yW4ECBAgAABAgQIECBAgAABAgQI\nECBAgAABAgQIECBAgEDyAovJr8ACCBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQGAm\nIAD2QCBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgMBEBATAE2mkZRAgQIAAAQIECBAg\nQIAAAQIECBAgQIAAAQIECBAgQEAA7DFAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgACB\niQgIgCfSSMsgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQICAANhjgAABAgQIECBAgAAB\nAgQIECBAgAABAgQIECBAgAABAhMREABPpJGWQYAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg\nQIAAAQGwxwABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQmIrA8kXW0XsaJEyda72vH\n8QT27NkT1tbWwrlz58KlS5fGK8TMBAg0Fti/f384e/Zs2N7ebryvHQgQGE/g0KFD4fLly7Pn\n73hVmJkAgaYCq6urs10uXrzYdFfjCRAYUWB9fT2srKyEU6dOjViFqQkQaCqwsLAQiufvmTNn\nmu5qPAECIwo41zwivqkJvEWBHM81Ly0thSNHjlTKZR8AX716tRLJgDgFih/MRQCsh3H2R1UE\nygSWl5fD1tbW7F/ZGPcTIBCXQHEiq/i5W/zihp+7cfVGNQSqBIrnb3Hx3K2Ssp1AXALFa+bi\nZ2/xutkvTsbVG9UQuJnA4uJiKJ6/fu7eTMk2AnEKONccZ19URaBKwLnmciEfAV1uYwsBAgQI\nECBAgAABAgQIECBAgAABAgQIECBAgAABAgSSEhAAJ9UuxRIgQIAAAQIECBAgQIAAAQIECBAg\nQIAAAQIECBAgQKBcQABcbmMLAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIEkhIQACfV\nLsUSIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECgXEAAXG5jCwECBAgQIECAAAECBAgQ\nIECAAAECBAgQIECAAAECBJISEAAn1S7FEiBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\noFxAAFxuYwsBAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgSSEhAAJ9UuxRIgQIAAAQIE\nCBAgQIAAAQIECBAgQIAAAQIECBAgQKBcQABcbmMLAQIECBAgQIAAAQIECBAgQIAAAQIECBAg\nQIAAAQIEkhIQACfVLsUSIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECgXEAAXG5jCwEC\nBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBJISEAAn1S7FEiBAgAABAgQIECBAgAABAgQI\nECBAgAABAgQIECBAoFxAAFxuYwsBAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgSSEhAA\nJ9UuxRIgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQKBcQABcbmMLAQIECBAgQIAAAQIE\nCBAgQIAAAQIECBAgQIAAAQIEkhIQACfVLsUSIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQ\nIECgXEAAXG5jCwECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBJISEAAn1S7FEiBAgAAB\nAgQIECBAgAABAgQIECBAgAABAgQIECBAoFxAAFxuYwsBAgQIECBAgAABAgQIECBAgAABAgQI\nECBAgAABAgSSEhAAJ9UuxRIgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQKBcQABcbmML\nAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIEkhIQACfVLsUSIECAAAECBAgQIECAAAEC\nBAgQIECAAAECBAgQIECgXEAAXG5jCwECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBJIS\nEAAn1S7FEiBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAoFxAAFxuYwsBAgQIECBAgAAB\nAgQIECBAgAABAgQIECBAgAABAgSSEhAAJ9UuxRIgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIE\nCBAgQKBcQABcbmMLAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIEkhIQACfVLsUSIECA\nAAECBAgQIECAAAECBAgQIECAAAECBAgQIECgXEAAXG5jCwECBAgQIECAAAECBAgQIECAAAEC\nBAgQI
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(data.skods, aes(x = Price.in.PLN)) + \n",
" geom_histogram()"
]
},
{
"cell_type": "code",
"execution_count": 25,
"metadata": {},
"outputs": [
{
"name": "stderr",
"output_type": "stream",
"text": [
"`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.\n",
"\n"
]
},
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N17kJ1lnSfw55w+ne4knXRCbiAq4TLcgsvi\nUjisrKPrrMvOqFFLS7B0RSxdptS1qHEL/vEPtVS0HPUPRatIFeWugxSwag3WSDlCgWyJuojL\nFIJMnAGiEJIQyL1z6e6zeU62e9Mk6fTlvT7v562CdJ/zvs/z/D6/c+vzPZdW9/AWbAQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBQe4F27StQAAECBAgQIECAAAECBAgQIECAAAEC\nBAgQIECAAAECBAj0BATALggECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBBIREAAnEgj\nlUGAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAEBsMsAAQIECBAgQIAAAQIECBAgQIAA\nAQIECBAgQIAAAQIEEhEQACfSSGUQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIEBAAOwy\nQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAgUQEBMCJNFIZBAgQIECAAAECBAgQIECA\nAAECBAgQIECAAAECBAgQEAC7DBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQCARgU4i\ndcy5jK1bt875WAfmJ7BkyZLQbrfDzp0785vEyAQITAp0Op3Q398fRkZGJk/zAwEC+QksWrQo\nLFiwIOzatSuMj4/nN5GRCRDoCbRarTA0NBR2795NhACBAgTifVy8r9u3b184ePBgATOaggCB\npUuX9h5bkiBAIH+Bvr6+EJ+7PHDggOdR8uc2A4GeQHxsGR9Xjo6OJiuyevXqZGtTWDkCjQ+A\nx8bGypE367QCMYyKD6b0Z1omZxLITMB1LjNKAxGYkUB8kVN8cjyGv+7rZkRmJwLzEogBcLyv\nc32bF6ODCcxYIF7n4v1cDIBd72bMZkcC8xJwPzcvPgcTmJXAxP3coUOH3M/NSs7OBOYuEJ9H\n6Xa7rnNzJ3RkAwV8BHQDm65kAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgTSFBAAp9lX\nVREgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg0EABAXADm65kAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgTSFBAAp9lXVREgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg0EAB\nAXADm65kAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgTSFBAAp9lXVREgQIAAAQIECBAg\nQIAAAQIECBAgQIAAAQIECBAg0EABAXADm65kAgQIECBAgAABAgQIECBAgAABAgQIECBAgAAB\nAgTSFBAAp9lXVREgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg0EABAXADm65kAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgTSFBAAp9lXVREgQIAAAQIECBAgQIAAAQIECBAgQIAA\nAQIECBAg0EABAXADm65kAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgTSFBAAp9lXVREg\nQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg0EABAXADm65kAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgTSFBAAp9lXVREgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg0EABAXAD\nm65kAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgTSFBAAp9lXVREgQIAAAQIECBAgQIAA\nAQIECBAgQIAAAQIECBAg0EABAXADm65kAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgTS\nFBAAp9lXVREgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg0EABAXADm65kAgQIECBAgAAB\nAgQIECBAgAABAgQIECBAgAABAgTSFBAAp9lXVREgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIE\nCBAg0EABAXADm65kAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgTSFBAAp9lXVREgQIAA\nAQIECBAgQIAAAQIECBAgQIAAAQIECBAg0EABAXADm65kAgQIECBAgAABAgQIECBAgAABAgQI\nECBAgAABAgTSFBAAp9lXVREgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg0EABAXADm65k\nAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgTSFBAAp9lXVREgQIAAAQIECBAgQIAAAQIE\nCBAgQIAAAQIECBAg0EABAXADm65kAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgTSFBAA\np9lXVREgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg0EABAXADm65kAgQIECBAgAABAgQI\nECBAg
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(data.skods, aes(x = Price.in.PLN, fill = Model)) + \n",
" geom_histogram(color = 'white')"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"#### Wykres słupkowy"
]
},
{
"cell_type": "code",
"execution_count": 26,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N1diFxn/QfwZ5PNe5OQt8akNVIRREPwhZaU\nXqlIUyFvBRHvNFGhkJb4hkXphVAhVC8SRS8CgRgQGiFSVFDEGy8MRKhIsUlQWwu9aF5qkibb\nxCRNsn+fU2a755+Xs9nZ5zdzZj8D250z55zf75nPk53OnO+cmaHR/12SCwECBAgQIECAAAEC\nBAgQIECAAAECBAgQIECAAAECBAi0XmBG6++BO0CAAAECBAgQIECAAAECBAgQIECAAAECBAgQ\nIECAAAEClYAA2D8EAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIDIiAAHhAJtLdIECA\nAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAgADYvwECBAgQIECAAAECBAgQIECAAAECBAgQ\nIECAAAECBAgMiIAAeEAm0t0gQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQICAANi/AQIE\nCBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECAyIgAB4QCbS3SBAgAABAgQIECBAgAABAgQI\nECBAgAABAgQIECBAgIAA2L8BAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIDIjA8IDc\nj0nfjdOnT096XzsSIPCewMyZM9PChQvTlStX0n//+9/3VrhGgAABAqECixcvTjdu3EgjIyOh\nfTUjQIAAgfcEFixYkGbNmpXOnz+fRkdH31vhGgECBAiECcyZMyfNmzcvXbx4Mb3zzjthfTUi\nQIAAgfcEZsyYkRYtWuSY8XskrhHoWiBnMcuWLWusM+0D4OvXrzci2YAAgWaBoaGhNHv27OpF\nlb+rZi9bECBAoJRADhxyAOyxuJSwugQIEGgWyC/I83Pj/Hicf1wIECBAoDcC+bE4B8CeG/fG\nX1cCBAh0jhlfu3bNY7F/DgSCBXwEdDC4dgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQI\nECglIAAuJasuAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIEggUEwMHg2hEgQIAAAQIE\nCBAgQIAAAQIECBAgQIAAAQIECBAgQKCUgAC4lKy6BAgQIECAAAECBAgQIECAAAECBAgQIECA\nAAECBAgQCBYQAAeDa0eAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAIFSAgLgUrLqEiBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAIFhAABwMrh0BAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgRKCQiAS8mqS4AAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAgWABAXAw\nuHYECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAoJSAALiWrLgECBAgQIECAAAECBAgQ\nIECAAAECBAgQIECAAAECBIIFBMDB4NoRIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECg\nlIAAuJSsugQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIEAgWEAAHg2tHgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgACBUgIC4FKy6hIgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIE\nCBAgQCBYQAAcDK4dAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIESgkIgEvJqkuAAAEC\nBAgQIECAAAECBAgQIECAAAECBAgQIECAAIFgAQFwMLh2BAgQIECAAAECBAgQIECAAAECBAgQ\nIECAAAECBAgQKCUgAC4lqy4BAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgSCBQTAweDa\nESBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAoJSAALiUrLoECBAgQIAAAQIECBAgQIAA\nAQIECBAgQIAAAQIECBAIFhAAB4NrR4AAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAgVIC\nAuBSsuoSIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIEAgWGA4uN9N7V555ZX073//u3b7\n0qVL04MPPjh228jISDp8+HDKv9evX5/WrFkzti5faVpf29gCAQIECBAgQIAAAQIECBAgQIAA\nAQIECBAgQIAAAQIEBlSg5wHw888/n/785z+nhQsXjhGvW7duLAB+7bXX0le+8pX0wQ9+MN13\n331p79696Qc/+EF6+OGHq+2b1o8VdYUAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQID\nLtDzAPif//xn+trXvpY+//nP35J6165dafPmzWnnzp1paGgoHThwIO3evTsdPHiwWm5af8ui\nbiRAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgMAACvT0O4CvXLmSXn/99fThD3/4lrRn\nzpxJx
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(data.skods , aes(x = Model)) + \n",
" geom_bar()"
]
},
{
"cell_type": "code",
"execution_count": 27,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N1riF1X3T/wlZnJpDPTJJ3cbNJYqQiiIXih\npf33lYokEXJp+Yv4To0KgbTES7GP0hdChT7VBxJFXwQCMSAkQqSooIhvfGEgQkWKTYLaGuiL\n3HpJ0sndZObftfufeWZompPTs/fa+6z9OTCdc87ee/3W77NOT2bOd/Y586beugQXAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIEOh7gYG+70ADBAgQIECAAAECBAgQIECAAAECBAgQ\nIECAAAECBAgQIFAICIA9EAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIJCJgAA4k4XU\nBgECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBATAHgMECBAgQIAAAQIECBAgQIAAAQIE\nCBAgQIAAAQIECBDIREAAnMlCaoMAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQICYI8B\nAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIZCIgAM5kIbVBgAABAgQIECBAgAABAgQI\nECBAgAABAgQIECBAgAABAbDHAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBDIRGMqk\nj/fcxpkzZ97zsQ4k0C8Cd911V7hx40aYmJjolymbJwECBG5LYGxsLMyfPz+cP38+TE1N3dYx\ndiJAgEA/CAwPD4fR0dFw6dKlcO3atX6YsjkSIEDgtgQGBgbCokWLiue2+BznQoAAgZwEFi5c\nGOLzXPwd1YVA7gIrVqzIvUX9EehrgdYHwDEUcyGQu0AMR+bNm1eEwLn3qj8CBNolMDg4GGJI\nMjk5WXy1q3vdEiCQs0D82S0+v8VwxO8sOa+03gi0UyA+v8XnNs9v7Vx/XRPIWSC+BhcDYM9v\nOa+y3ggQINAfAt4Cuj/WySwJECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECDQUUAA3JHI\nDgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIEOgPAQFwf6yTWRIgQIAAAQIECBAgQIAA\nAQIECBAgQIAAAQIECBAgQKCjgAC4I5EdCBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg\n0B8CAuD+WCezJECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAQEcBAXBHIjsQIECAAAEC\nBAgQIECAAAECBAgQIECAAAECBAgQIECgPwQEwP2xTmZJgAABAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAgACBjgIC4I5EdiBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgEB/CAiA+2Od\nzJIAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIdBQTAHYnsQIAAAQIECBAgQIAAAQIE\nCBAgQIAAAQIECBAgQIAAgf4QEAD3xzqZJQECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAEC\nBDoKCIA7EtmBAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAEC/SEgAO6PdTJLAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIdBQQAHcksgMBAgQIECBAgAABAgQIECBAgAABAgQI\nECBAgAABAgT6Q0AA3B/rZJYECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBDoKCAA7khk\nBwIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECPSHgAC4P9bJLAkQIECAAAECBAgQIECA\nAAECBAgQIECAAAECBAgQINBRQADckcgOBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQ\n6A8BAXB/rJNZEiBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAoKOAALgjkR0IECBAgAAB\nAgQIECBAgAABAgQIECBAgAABAgQIECDQHwIC4P5YJ7MkQIAAAQIECBAgQIAAAQIECBAgQIAA\nAQIECBAgQIBARwEBcEciOxAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQKA/BIbqnuZL\nL70U/v3vf8+ZxpIlS8L9998/c9/ExEQ4dOhQiN8ffPDBcO+9985si1c6bZ+zsxsECBAgQIAA\nAQIECBAgQIAAAQIECBAgQIAAAQIECBDIVKD2AHj//v3hz3/+c1i4cOEM8dq1a2cC4OPHj4ev\nfvWr4YMf/GC45557wu7du8MPfvCD8NBDDxX7d9o+M6grBAgQIECAAAECBAgQIECAAAECBAgQ\nIECAAAECBAgQyFyg9gD4n//8Z/j6178ePv/5z9+U+plnngmbN28OO3bsCPPmzQv79u0LO3fu\nDAcOHChud9p+00HdSYAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAgQwFav0M4KtXr4ZX\nXnklf
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(data.skods , aes(x = Model, fill = Type.of.fuel)) + \n",
" geom_bar()"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"#### ggplot2 - modyfikacje"
]
},
{
"cell_type": "code",
"execution_count": 28,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N19jB1V+Qfw05fte+nb0lJRKaWG0qpEpNZG\nEilaAxELTQBpTMAIiZiCBiEKMaIJphQl6h+0oVEgmAKmxT8UIiTaSECsJorWyFsaU0oF+t7S\nLS1tt+3Pc/3tZbdbujs7sztn7v1MUjv33jNnnvk8y3h7vztzBx377xIsBAgQIECAAAECBAgQ\nIECAAAECBAgQIECAAAECBAgQIFB5gcGVPwIHQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg\nQIAAAQI1AQGwHwQCBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAg0iIAAuEEa6TAIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECAgAPYzQIAAAQIECBAgQIAAAQIECBAgQIAAAQIE\nCBAgQIAAgQYREAA3SCMdBgECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBATAfgYIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECDQIAIC4AZppMMgQIAAAQIECBAgQIAAAQIECBAg\nQIAAAQIECBAgQIDA0FQIjhw5ElatWhUWLVoUTjnllFpZ27ZtC3//+99PWOKMGTPCWWedFdra\n2sK6deu6jZk/f35oaWnp9rwnCBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg0KgCyQTA\nK1asCKtXrw4LFiyoB8CvvfZa+NnPftbFvr29PezcuTPceOONtQB4/fr1YenSpaG1tbXLuHnz\n5vUqAI4hsyWbwJAhQ8LYsWPDO++8U/uTbWujCRBodIHBgweHkSNHhrfffrvRD9XxESDQB4Hx\n48eH+H5u3759fdjaJgQINLpA/GXgvXv3NvphOj4CBPogMGbMmDB06NCwZ8+ePmxtEwIEGl1g\n9OjRtc8p40VGFgIECHQWGDFiRIh/4ucQ8fMISzaBYcOGhfhZjqV6AqUHwFu3bg333HNPeP75\n57vpnX/++eGxxx7r8vyPf/zj8Ne//jVcdtlltec3bNgQZs+eHZYvX95lXG8feFPQW6l3x8Vw\nJ/5Hf+jQocDvXRdrBAj8T2DQoEEh/qKI84OfCAIETiQQ30PExTniRDqeI0Ag3sXJ+cHPAQEC\nJxKI4W98H+EccSIdzxEgED+HOHr0qHOEHwUCBLoJdOQZx44dc47optPzE9579WyU6ojSvwN4\n2bJlIf6Hd/fdd/doFIPfxx9/PNxxxx2139iIG8QA+Oyzz+5xWwMIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgQIECDQ6AKlXwF82223hSlTpoRNmzad1PrgwYMhhsVXX311mDlzZn1sDICH\nDx8e4jwvv/xyOOecc2q3hz799NPrY+JK/A2wH/7wh12emzt3bpgzZ06X5zzoWSD+xkxc4m/e\nxltBWwgQINBZIJ4j4m/nOz90VrFOgEBngY6vk+j8nHUCBAhEgXgnEe8h/CwQIHAigfj+IS7O\nESfS8RwBAvFziHgb6PgZsIUAAQKdBTruRDZq1KhaltT5Nes9Cziv9myU6ojSA+AY/vZmefrp\np8OOHTvCFVdcUR/e1tYWtmzZEk477bSwePHicMEFF9RuGb1kyZKwatWqEL8fpmOJl6k/+OCD\nHQ9rf8cPF+bPn9/lOQ96LxBPnB0nz95vZSQBAs0i0Pkc3CzH7DgJEOidQPwA1zmid1ZGEWhG\nAeeHZuy6YybQewHniN5bGUmg2QRiCGwhQIDAewmMHDnyvV7y/EkEDhw4cJJXvZSyQGX+XzHe\n+vnTn/50mDRpUt0zvulfs2ZNmDhxYj2InDVrVrj22mvD2rVr698THDeIbwAeffTR+rZxJYbP\nMVS2ZBOIlvFLv/fv31/7k21rowkQaHSBGOzE36iLv6RjIUCAwPECra2t4fDhw+Gtt946/iWP\nCRAgECZMmBB2795NggABAt0Exo0bF+L3hPscpxuNJwgQ+K9AvDtA/KzSd1X6cSBA4HiB+Dll\n/BM/h4ifR1iyCcTPeoXn2cxSGV2JAPi1114L69evD/fee28Xt3gFb7z6t/Myffr0cOqpp4Y3\n33yz89O1W4mdd955XZ6LD44f122AJ95TIF7674T5njxeINC0AvF73eMf54em/RFw4AR6FHCO\n6JHIAAJNLeA9RFO338ETeE+B+P4hLs4R70nkBQJNLRDPEe3t7bU/TQ3h4AkQ6CbQcQvjeI7w\nPqIbT49PxBzOUk2B/32Za+K1/+Uvf6ldcXruued2qfTVV1+tXe27efPm+vMx0N2+fXs4/juA\n6wOsECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAoEEFKhEAb9q0KZx55pndWjBt2rQw\nYsSIcN9999VuExbD3xUrVtRuG/aZz3ym23hPECBAgAABAgQIECBAgAABAgQIECBAgAABAgQI\nECBAo
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(cats_birds, aes(x = weight, y = speed, shape = group)) + \n",
" geom_point(size = 5) # How to adjust this plot?"
]
},
{
"cell_type": "code",
"execution_count": 29,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N0HnFTV2QfgA9JUFFREg2hEbNiwYO+9a+xY\nEluMsSRq1GDvLfYGscUYey+xoWCJvddYiVFBRLGBCIiIfL433wyzy+7s7DLs7uw+5/eDvXPn\n3nPPfe6ygv95z2kz9eeWNAIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBCoeIG2FX8H\nboAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIEMgEBsG8EAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQItBABAXALeZBugwABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAAB\nAgJg3wMECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBBoIQIC4BbyIN0GAQIECBAgQIAA\nAQIECBAgQIAAAQIECBAgQIAAAQIEBMC+BwgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQ\nINBCBATALeRBug0CBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAi0Q1C3wNSpU9Nnn32W\nhg8fnjp27Jh69+6d5phjjrpPdAQBAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQaUUAF\ncC3Y33//fbr++uvTeuutlzp16pR69OiRVltttbTCCiukOeecM80333xpl112SW+++WYtPcz8\n3aNHj575F2kBV9hqq63Soosumv2KIH9G2g477JDv6+OPP56Rrko+d8cdd8xf85NPPin5PAcS\nIECAAAECBAgQIECAAAECBAgQIECAAAECBAi0PgEVwDU881tuuSUdcMAB6Ztvvqnh3f/tivD1\n1ltvTbfddluKgO6yyy5Lc889d63Hl/ONuPaRRx6ZpkyZkoXU5ey7JfY1YsSI9MEHH2S39uOP\nP87QLUYAm+tr8uTJM9RXqSc3xTVLHZvjCBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIEmpeA\nALjgefzwww/pT3/6Uxo4cGB+b5s2bdJaa62VFl988dSrV680YcKELAB89NFH0xdffJFieugI\ngaMadOjQoTN9aui33norrbnmmmns2LFpt912y4/TBgECBAgQIECAAAECBAgQIECAAAECBAgQ\nIECAAAECBATABd8D1cPf/v37p+OPPz4ttdRSBUf9b3P8+PHp0ksvTccdd1yKqtIXXnghbbPN\nNmnIkCGpXbuZxxpTGEf4qzWNwL777ps23XTT7OKNVfHdNHfqqgQIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABApUoMPOSygrTeOCBB6pU/p500knpxBNPrPUuZp999jRgwIDUvXv3tM8++2TH\nPf744ymmj959991rPc8blS3wu9/9rrJvwOgJECBAgAABAgQIECBAgAABAgQIECBAgAABAgRa\ntEDbFn13Jd5cTP0clZ25tt9++xUNf3PHxde99947/frXv87vOvfcc/PbNggQIECAAAECBAgQ\nIECAAAECBAgQIECAAAECBAgQINCYAiqAf9Z+8MEHU0ytHK1Tp04pqn/r04488sh03XXXZad8\n/fXXadiwYWmxxRarsYuYOvrtt99O7777bnrvvffShx9+mGadddasknj11VdPG220Ufa6+snD\nhw9Psf7va6+9ln/r008/zcYeOxZaaKG09NJL59+LjUmTJqX77rsvvfPOO+m///1v6ty5czad\ndUxpvdxyy6WuXbtWOb7UF++//362DnIcv/DCC6c+ffrUeeqzzz6bxowZkx0X91n92jNrrLUN\nLJ7R008/nZ5//vk055xzplVXXTX7tcACC9R2Sra/8D7WXXfdNNtss+WPf+qpp9K4ceNSly5d\n0hprrJFth/8jjzySPd+tt946xb1Xb/E9EetIx/ONdaVXWmmltPbaa2fPqG3b0j+j0diG1e/D\nawIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAgaYXaDP159b0w2jaEey8885ZABej2G233dIN\nN9xQ7wFFiBwBbASxtbVbb701HXTQQenLL7+s7ZDUu3fvdMUVV6QNNtigyjF//etf04EHHlhl\nX+GL3//+9ymOybXLL788q2L+/PPPc7uqfI3Q+Q9/+EM67bTTUvv27au8V9eLhx56KG222WbZ\nYRFWvvTSS0VP+fbbb9N8882Xvv/++ywcHTVqVJWQe2aONQbWt2/f9MYbb2RjjCD96quvTief\nfHKq6Vv/iCOOSGeeeWat6zhHUBzrPUeLEHnRRRfNtuO3eP4R7q+44oopjCIgjteFLa4dVeO5\ndtFFF6VTTjklxQcHqrd11lkn3XXXXWmLLbbIgup4P4L8Xr16VT80zWzD6S5oBwECBAgQIECA\nAAECBAgQIECAAAECBAgQIECAQLMUKL28sFkOf8YH9dNPP2VVsrmeojK2IW3zzTevNfyNKaYj\nZN5ll
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(cats_birds, aes(x = weight, y = speed, shape = group)) + \n",
" geom_point(size = 5) +\n",
" ggtitle('Cats vs birds') + \n",
" theme(plot.title = element_text(size = 20)) + # Title\n",
" xlab('Weight [kg]') + ylab('Speed [km/h]') + # Axis' labels\n",
" scale_shape_discrete(name = 'Cats and birds') + \n",
" theme(legend.position = 'top') + # Title and position of legend\n",
" geom_text(data = cats_birds[c(6, 8), ], \n",
" aes(label = species), hjust = -0.2) # Additional text"
]
},
{
"cell_type": "code",
"execution_count": 30,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N19jGVlnSfwX731+wvdXbw0OIItKy+tshJZ\nJMvGtAyuu0Ggs771GIMRd2UX1GBMxJjgPwZBifoHdCAaGZIOukAmO6s76ybL6IhKGB3cllEY\nGYQGgabpprGrX+juetl+LlNF1a2GrlPnVJ3n3Ps5SU3fc+9znvM7n1955nK/dc7tGTuyhIUA\nAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIEGi/Q2/gjcAAECBAgQIAAAQIECBAgQIAA\nAQIECBAgQIAAAQIECBAg0BIQAPtFIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAQIcI\nCIA7pJEOgwABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgJgvwMECBAgQIAAAQIECBAg\nQIAAAQIECBAgQIAAAQIECBDoEAEBcIc00mEQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQ\nIEBAAOx3gAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAh0iIADukEY6DAIECBAgQIAA\nAQIECBAgQIAAAQIECBAgQIAAAQIECPTnQjAyMhJbtmyJjRs3xooVK1pl7dixI379618ftcTT\nTz893vzmN8fQ0FA88MAD08Zs2LAhBgYGpj3vCQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAA\nAQIECHSqQDYB8ObNm+Puu++Oiy++eCIAfuqpp+Lb3/72FPvh4eHYtWtXXHPNNa0AeOvWrXHD\nDTfE4ODglHEXXHDBjALgFDJbign09fXF8uXL4+WXX279FNvaaAIEOl2gt7c3Fi9eHPv27ev0\nQ3V8BAjMQuC4446L9H5u7969s9jaJgQIdLpA+mPgPXv2dPphOj4CBGYhsGzZsujv74+XXnpp\nFlvbhACBThdYunRp63PKdJGRhQABApMFFi1aFOknfQ6RPo+wFBNYsGBBpM9yLM0TqD0Afv75\n5+Pmm2+Ohx56aJreO9/5zrj33nunPP+Nb3wjfvWrX8Vll13Wev6xxx6L9evXx6233jpl3ExX\nvCmYqdSr41K4k/5Hf+jQoeD3qotHBAi8ItDT0xPpD0WcH/xGECBwNIH0HiItzhFH0/EcAQLp\nLk7OD34PCBA4mkAKf9P7COeIo+l4jgCB9DnE6Oioc4RfBQIEpgmM5xljY2POEdN0jv2E917H\nNsp1RO3fAXzjjTdG+h/eTTfddEyjFPz+4Ac/iOuvv771FxtpgxQAn3HGGcfc1gACBAgQIECA\nAAECBAgQIECAAAECBAgQIECAAAECBAh0ukDtVwBfd911ceKJJ8a2bdte1/rgwYORwuKPfOQj\nceaZZ06MTQHwwoULI83z6KOPxllnndW6PfQpp5wyMSY9SH8B9rWvfW3Kc+eff36cd955U56z\ncmyB9BczaUl/eZtuBW0hQIDAZIF0jkh/ne/8MFnFYwIEJguMf53E5Oc8JkCAQBJIdxLxHsLv\nAgECRxNI7x/S4hxxNB3PESCQPodIt4FOnwFbCBAgMFlg/E5kS5YsaWVJk1/z+NgCzqvHNsp1\nRO0BcAp/Z7L85Cc/iZ07d8YHPvCBieFDQ0Oxffv2OOmkk2LTpk1x4YUXtm4ZffXVV8eWLVsi\nfT/M+JIuU7/jjjvGV1v/pg8XNmzYMOU5KzMXSCfO8ZPnzLcykgCBbhGYfA7ulmN2nAQIzEwg\nfYDrHDEzK6MIdKOA80M3dt0xE5i5gHPEzK2MJNBtAikEthAgQOC1BBYvXvxaL3n+dQQOHDjw\nOq96KWeBxvx/xXTr53e/+92xZs2aCc/0pv+ee+6J1atXTwSRZ599dlxxxRVx3333TXxPcNog\nvQH43ve+N7FtepDC5xQqW4oJJMv0pd/79+9v/RTb2mgCBDpdIAU76S/q0h/pWAgQINAuMDg4\nGIcPH44//elP7S9ZJ0CAQKxatSp2795NggABAtMEVq5cGel7wn2OM43GEwQIHBFIdwdIn1X6\nrkq/DgQItAukzynTT/ocIn0eYSkmkD7rFZ4XM8tldCMC4Keeeiq2bt0at9xyyxS3dAVvuvp3\n8rJu3bo4/vjj47nnnpv8dOtWYueee+6U59JK+7hpAzzxmgLp0n8nzNfk8QKBrhVI3+uefpwf\nuvZXwIETOKaAc8QxiQwg0NUC3kN0dfsdPIHXFEjvH9LiHPGaRF4g0NUC6RwxPDzc+ulqCAdP\ngMA0gfFbGKdzhPcR03iO+UTK4SzNFHjly1wzr/3BBx9sXXF6zjnnTKn0ySefbF3t+/TTT088\nnwLdF154Idq/A3higAcECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBDoUIFGBMDbtm2L\nN73pTdNacNppp8WiRYvitttua90mLIW/mzdvbt027KKLLpo23hMECBAgQIAAAQIECBAgQIAA\nAQIEC
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(cats_birds, aes(x = weight, y = speed, shape = group, color = group)) + \n",
" geom_point(size = 5) # Control mapping"
]
},
{
"cell_type": "code",
"execution_count": 31,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N19jN11nS/wzzy30ydKh0JLL7hcESmJxKwG\nMA3KGkldQSRmY5BVK9wIBklX/1gJV/deAohe6oqJomR5SANWHho3d01Ar5LVQFM2eCVsgIIs\nYhcsLbb2Yfo4nYc7v9M7wwwz7bT9/Wa+3zPndZJhzsPv+/1+fq/PcHJ63uf3O00Dg5dwIUCA\nAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAIG6F2iu+z2wAwQIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgQIECBQExAA+0MgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIDANBEQ\nAE+TRtoNAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQItOZAsGnTpnjiiSeipaUlPvCB\nD8TixYtHldXd3R3r1q2L4vd5550Xp5122jE9PmpjNwgQIECAAAECBAgQIECAAAECBAgQIECA\nAAECBAgQIDBNBZIfAfz1r389VqxYEb/73e/i0Ucfjc985jOxfv36Ye5XX301Lrvssli7dm08\n99xzcdVVV8VTTz111I8Pb+gKAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIEprlA08Dg\nJdU+vvTSS/GFL3whHnnkkVi4cGGtjJtuuilefPHF+PGPf1y7XTy+dOnSWLlyZTQ1NcXq1atr\nQfGDDz5Yuz3R46n2zboECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBCYaoGkRwBv3749\nrr766uHwt9j59773vbF58+Yocult27bFhg0bakcAF+FvcbnkkkuiOGX0Cy+8MOHjtQH+Q4AA\nAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAgQYRSPodwOeff34UPyMvjz/+eJx99tm1o3uL\nILi4jPxO4AULFkR7e3u8+eabw8MO9/g555wzvE1fX1989rOfHb5dXPnYxz4Wn/70p0fd5wYB\nAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgTqVSBpAPx2tIceeiieffbZuOuuu2oPvfHG\nG9HR0VH7GbntnDlzojh6uAh1j/T4yDH9/f3xm9/8ZuRd8Z73vKc2x6g73Tgqgebm5tpR2gnP\nIH5UddqIAIE0AsVZGzw/pLG3KoHcBbyGyL1D6iOQVsBriLT+VieQs0Dx/FD8FO/vuBAgQODt\nAl5DvF3EbQIEhgS8hhiSOL7fPT09MXPmzOMbbFRSgWwC4HvvvTd+9KMfxa233hpnnXVWDaWt\nrS16e3vHABXBb2dnZ0z0+MiBxbbPPffcyLuipaUltmzZMuo+NyYWKCy7urpiz5490d3dPfEA\nWxAg0FACra2tMfRBnYbacTtLgMBRCSxatCgOHjxY+yqPoxpgIwIEGkpg4cKFo8721FA7b2cJ\nEDiiwHhnhDviAA8SINBQAvPnz6+9Tznee8kNBWFnCRAYI1C8Tzl79uzYsWNHFGGmy7EJFGfk\nFQAfm1kuWycPgItPbn7729+OX/7yl7Fq1aradwAP4RQhYxH27t27txb4Dt2/a9euKN48LEKG\nIz0+tP3Q7yK4dCFAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgMB0FWhOvWM333xzrF+/\nPn7wgx+MCn+LupYsWVILeZ9//vnhMjds2FA73U/xvb8TPT48yBUCBAgQIECAAAECBAgQIECA\nAAECBAgQIECAAAECBAg0gEDSAPixxx6rHfm7YsWK2ik6iu//HfopjuydN29eXHzxxXHffffF\n7t27Y//+/XH33XfH8uXL46STTprw8Qbon10kQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg\nQIDAsEDSU0CvXbu2Vsjtt98+XNDQlZ///Oe10z5fe+21cdNNN8Wll14aHR0dce6558b1118/\ntFlM9Pjwhq4QIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIEBgmgskDYDvueeeCXnnz58f\nd9xxRxTf+9vS0hKzZs0aNWaix0dt7AYBAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgSm\nsUDSAPhYXOfOnXvEzSd6/IiDPUiAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAIFpIJD0\nO4CngZ9dIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAQDYCAuBsWqEQAgQIECBAgAAB\nAgQIECBAgAABAgQIECBAgAABAgQIlBMQAJfzM5oAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg\nQIAAAQLZCAiAs2mFQggQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIFBOQABczs9oAgQI\nECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIZCMgAM6mFQohQIAAAQIECBAgQIAAAQIECBAg\nQIAAA
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(cats_birds, aes(x = weight, y = speed, shape = group, color = group)) + \n",
" geom_point(size = 5) + \n",
" scale_shape_manual(values = c('B', 'C'), \n",
" breaks = c('Bird', 'Cat')) + # Shape of groups and labels on legend\n",
" scale_color_manual(values = c('blue', 'red'), \n",
" breaks = c('Bird', 'Cat')) + # Colors\n",
" scale_y_continuous(limits = c(0, 200), \n",
" expand = c(0, 0)) # Remove margins for X axis"
]
},
{
"cell_type": "code",
"execution_count": 32,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N0LmB1lfT/w3+7mQm6bqyEQhBBQAlGxXAsP\nIilia7FAWimG+BTBx2vACmqF6uPjDQSV4qOAF1D0aUooUO2jxT5qQRH9S0ChFIFApAECSYCE\nS+6X3ex/37G77m42m7PJnJmz53yGZ9kzM++8l897OJw93zMzTR2dS1gIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAYMgLNA/5ERgAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAA\nAQIECGQCAmBPBAIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECNSJgAC4TibSMAgQIECA\nAAECBAgQIECAAAECBAgQIECAAAECBAgQICAA9hwgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIE\nCBAgQIBAnQgIgOtkIg2DAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECAmDPAQIECBAg\nQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECNSJgAC4TibSMAgQIECAAAECBAgQIECAAAECBAgQ\nIECAAAECBAgQIDCsVgja29tj4cKFMXfu3Ghtbc269dxzz8X999/fbxcPPvjgOOigg2LdunXx\n61//eocyc+bMieHDh++w3QYCBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAjUq0DNBMDX\nXntt3HzzzXHKKad0B8BPPfVUXHfddb3s29raYs2aNXH++ednAfADDzwQl112WUyZMqVXueOO\nO66iADiFzJbBCTQ3N2dztHXr1ti4cePgDlaaAIGGEBg7dmxs2LAhOjo6GmK8BkmAQOUC6Qt6\nY8aMiU2bNsWWLVsqP1BJAgQaRiB9IXjt2rUNM14DJUCgcoGRI0fGqFGjYv369ZE+H7IQIECg\np0BTU1P2t0Z6jbAQIECgr8Do0aNjxIgR2d8a27dv77vb+i4Ekt2ECRN2UcruWhIoPQB+9tln\n40tf+lLcd999O7gcddRRceutt/ba/k//9E/xm9/8Jk4//fRs+9KlS2P27NlxzTXX9CpX6Uo6\n89gyeIH0H3v6Y4vf4O0cQaARBIYNGxbpjZQ3U40w28ZIYHAC6fUhvY/YvHmz9xGDo1OaQMMI\npC+K+DujYabbQAkMSiCFO+l9RFq8TgyKTmECDSGQTlpJf294fWiI6TZIAoMWSK8R6X1E+rzS\n68Sg+XzOO3iy0o8o/R7Al19+eXaG2BVXXLFLjBT8/vCHP4xPfvKTsddee2XlUwB8yCGH7PJY\nBQgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIFDvAqWfAXzxxRfH3nvvHU8++eSA1ukS\ngSksfvvb3x6zZs3qLpsC4HQJoFTPkiVL4tBDD80uDz19+vTuMulB+lbHF77whV7bjj322Dj6\n6KN7bbOya4H0jdu0pG/mjxs3btcHKEGAQMMJtLS0RLoMtEtAN9zUGzCBXQqk14e0pPdv6du3\nFgIECPQVSH9v+Dujr4p1AgSSQPocIi3pMtBdZwJnG/yLAAECnQLpPUT6e8P7CE8HAgT6E+h6\nH5FuS+Uzy/6EBt7mSo8D+9Ti3tID4BT+VrL8/Oc/j9WrV8fb3va27uLr1q2LVatWxbRp02Le\nvHlxwgknZJeMXrBgQSxcuDALH7oKp1P6b7jhhq7V7Hd6UzBnzpxe26xULpBeMLteNCs/SkkC\nBBpFIL2ZshAgQGBnAikATj8WAgQI9CeQvkhmIUCAwM4EUgBsIUCAwM4EvI/YmYztBAgkAZ9Z\n7t7zYNOmTbt3oKNKEyg9AK505OnSz2984xtj8uTJ3Yek/5nfcsstMWnSpO5vfh522GFxzjnn\nxO233959n+B0QLr/w6JFi7qPTQ9S+JxCZcvgBNLZOsk83btv/fr1gztYaQIEGkJg/Pjxkb6k\n45thDTHdBklgUALpbJ3W1tbYsGFD+ONhUHQKE2gYgYkTJ8aLL77YMOM1UAIEKhdIwW/60Hbt\n2rWxdevWyg9UkgCBhhBIn1mms39ffvnlhhivQRIgMDiBlCelW4u+8MILPrMcHF1WOmVsvoS3\nG3AlHjIkAuCnnnoqHnjggbj66qt7UaUzeNPZvz2XmTNnxite8YpYuXJlz83ZJUCOOOKIXtvS\nSt9yOxSwYQeBrks3pmBn27ZtO+y3gQABAukyKun1QQDsuUCAQF+Brss+p6uzeB/RV8c6AQJd\nAl4fuiT8JkCgp0DXZZ/b2tq8j+gJ4zEBAplA+luj6/MIJAQIEOgr0PU5ZXofkT6TsAxOoOvz\nnMEdpXSZAkPixmuLFy+OCRMmxOGHH97L6oknnsjO9l2+fHn39hToPv/889H3HsDdBTwgQIAA\nAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIBAnQoMiQD4ySefjAMPPHCHKZgxY0Z2yv7Xv/71\n7BJhK
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(cats_birds, aes(x = weight, y = speed, size = length, color = lifespan)) + \n",
" geom_point() # Control mapping - continuous variable"
]
},
{
"cell_type": "code",
"execution_count": 33,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N0LlF11fS/w35mZZPKcPAnhJRBQgohYQClc\nfGQhbb1YIK1UI15RuPUFaAEfULu6uqpFRC1cF1AttNRrCigUXbpwrT4QkHoFakFq5SkrQCQE\nQhLIO5lkzp3/tjOdyclkziT7nH32nM9eK8w5e//3//H5j8cz53v+e1eq/VvYCBAgQIAAAQIE\nCBAgQIAAAQIECBAgQIAAAQIECBAgQKD0Ah2lH4EBECBAgAABAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAgEAmIAD2i0CAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAIFxIiAAHicTaRgE\nCBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAQAPsdIECAAAECBAgQIECAAAECBAgQIECA\nAAECBAgQIECAwDgREACPk4k0DAIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECAiA/Q4Q\nIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIEBgnAgIgMfJRBoGAQIECBAgQIAAAQIECBAg\nQIAAAQIECBAgQIAAAQIEulqFYMeOHbF06dJYvHhx9PT0ZN168cUX46GHHtplFw8//PA47LDD\nYv369fGTn/ykpsyiRYtiwoQJNfvtIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAwHgV\naJkA+Lrrrotvf/vbceqppw4GwM8++2xcf/31w+y3b98eq1evjgsuuCALgB9++OG4/PLLY+7c\nucPKnXjiiXUFwClkto1NoKOjI5ujbdu2xaZNm8Z2stIECLSFwLRp02Ljxo1RrVbbYrwGSYBA\n/QLpC3pTp06NzZs3x9atW+s/UUkCBNpGIH0heN26dW0zXgMlQKB+ge7u7pg8eXJs2LAh0udD\nNgIECAwVqFQq2d8a6TXCRoAAgZ0FpkyZEhMnTsz+1ujr69v5sOejCCS7mTNnjlLK4VYSKDwA\nfuGFF+LLX/5yPPjggzUuxx9/fNx2223D9v/lX/5l/PSnP40zzjgj2//kk0/GUUcdFddee+2w\ncvU+SSuPbWMXSP9jT39s8Ru7nTMItINAV1dXpDdS3ky1w2wbI4GxCaTXh/Q+YsuWLd5HjI1O\naQJtI5C+KOLvjLaZbgMlMCaBFO6k9xFp8zoxJjqFCbSFQFq0kv7e8PrQFtNtkATGLJBeI9L7\niPR5pdeJMfP5nHfsZIWfUfg9gK+44opshdgXv/jFUTFS8Pv9738//vRP/zQmTZqUlU8B8BFH\nHDHquQoQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIEBgvAsUvgL40ksvjX333TeeeeaZ\n3VqnSwSmsPg973lPLFy4cLBsCoDTJYBSPY899lgceeSR2eWhDzjggMEy6UH6VseVV145bN8J\nJ5wQb3zjG4ft82R0gfSN27Slb+ZPnz599BOUIECg7QQ6OzsjXQbaJaDbbuoNmMCoAun1IW3p\n/Vv69q2NAAECOwukvzf8nbGziucECCSB9DlE2tJloAdWAmc7/IcAAQL9Auk9RPp7w/sIvw4E\nCOxKYOB9RLotlc8sdyW0+32u9Lh7n1Y8WngAnMLfera77747XnrppXjXu941WHz9+vWxcuXK\nmD9/fixZsiROPvnk7JLR559/fixdujQLHwYKpyX9N95448DT7Gd6U7Bo0aJh+zypXyC9YA68\naNZ/lpIECLSLQHozZSNAgMBIAikATv9sBAgQ2JVA+iKZjQABAiMJpADYRoAAgZEEvI8YScZ+\nAgSSgM8s9+z3YPPmzXt2orMKEyg8AK535OnSz29961tjzpw5g6ek/zO/9dZbY/bs2YPf/Hzt\na18b55xzTtx5552D9wlOJ6T7P9x8882D56YHKXxOobJtbAJptU4yT/fu27Bhw9hOVpoAgbYQ\nmDFjRqQv6fhmWFtMt0ESGJNAWq3T09MTGzduDH88jIlOYQJtIzBr1qxYu3Zt24zXQAkQqF8g\nBb/pQ9t169bFtm3b6j9RSQIE2kIgfWaZVv++8sorbTFegyRAYGwCKU9KtxZds2aNzyzHRpeV\nThmbL+HtAVyBp5QiAH722Wfj4YcfjmuuuWYYVVrBm1b/Dt0WLFgQ++yzTzz//PNDd2eXADn2\n2GOH7UtPdi5XU8COGoGBSzemYKe3t7fmuB0ECBBIl1FJrw8CYL8LBAjsLDBw2ed0dRbvI3bW\n8ZwAgQEBrw8DEn4SIDBUYOCyz9u3b/c+YiiMxwQIZALpb42BzyOQECBAYGeBgc8p0/uI9JmE\nbWwCA5/njO0spYsUKMWN1+6///6YOXNmHHPMMcOsnn766Wy17/Llywf3p0B31apVsfM9gAcL\neECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAIFxKlCKAPiZZ56JQw89tGYKDjnkkGzJ\n/te+9
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(cats_birds, aes(x = weight, y = speed, size = length, color = lifespan)) + \n",
" geom_point() + \n",
" scale_size_continuous(range = c(2, 7), limits = c(0, 3)) + # Size and range of points\n",
" scale_color_gradient(low = 'gold', high = 'red') # Colors"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"#### ggplot2 - legenda"
]
},
{
"cell_type": "code",
"execution_count": 34,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N19jB1V+Qfw05fte+nb0lJRKaWG0qpEpNZG\nEilaAxELTQBpTMAIiZiCBiEKMaIJphQl6h+0oVEgmAKmxT8UIiTaSECsJorWyFsaU0oF+t7S\nLS1tt+3Pc/3tZbdbujs7sztn7v1MUjv33jNnnvk8y3h7vztzBx377xIsBAgQIECAAAECBAgQ\nIECAAAECBAgQIECAAAECBAgQIFB5gcGVPwIHQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg\nQIAAAQI1AQGwHwQCBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAg0iIAAuEEa6TAIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECAgAPYzQIAAAQIECBAgQIAAAQIECBAgQIAAAQIE\nCBAgQIAAgQYREAA3SCMdBgECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBATAfgYIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECDQIAIC4AZppMMgQIAAAQIECBAgQIAAAQIECBAg\nQIAAAQIECBAgQIDA0FQIjhw5ElatWhUWLVoUTjnllFpZ27ZtC3//+99PWOKMGTPCWWedFdra\n2sK6deu6jZk/f35oaWnp9rwnCBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg0KgCyQTA\nK1asCKtXrw4LFiyoB8CvvfZa+NnPftbFvr29PezcuTPceOONtQB4/fr1YenSpaG1tbXLuHnz\n5vUqAI4hsyWbwJAhQ8LYsWPDO++8U/uTbWujCRBodIHBgweHkSNHhrfffrvRD9XxESDQB4Hx\n48eH+H5u3759fdjaJgQINLpA/GXgvXv3NvphOj4CBPogMGbMmDB06NCwZ8+ePmxtEwIEGl1g\n9OjRtc8p40VGFgIECHQWGDFiRIh/4ucQ8fMISzaBYcOGhfhZjqV6AqUHwFu3bg333HNPeP75\n57vpnX/++eGxxx7r8vyPf/zj8Ne//jVcdtlltec3bNgQZs+eHZYvX95lXG8feFPQW6l3x8Vw\nJ/5Hf+jQocDvXRdrBAj8T2DQoEEh/qKI84OfCAIETiQQ30PExTniRDqeI0Ag3sXJ+cHPAQEC\nJxKI4W98H+EccSIdzxEgED+HOHr0qHOEHwUCBLoJdOQZx44dc47optPzE9579WyU6ojSvwN4\n2bJlIf6Hd/fdd/doFIPfxx9/PNxxxx2139iIG8QA+Oyzz+5xWwMIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgQIECDQ6AKlXwF82223hSlTpoRNmzad1PrgwYMhhsVXX311mDlzZn1sDICH\nDx8e4jwvv/xyOOecc2q3hz799NPrY+JK/A2wH/7wh12emzt3bpgzZ06X5zzoWSD+xkxc4m/e\nxltBWwgQINBZIJ4j4m/nOz90VrFOgEBngY6vk+j8nHUCBAhEgXgnEe8h/CwQIHAigfj+IS7O\nESfS8RwBAvFziHgb6PgZsIUAAQKdBTruRDZq1KhaltT5Nes9Cziv9myU6ojSA+AY/vZmefrp\np8OOHTvCFVdcUR/e1tYWtmzZEk477bSwePHicMEFF9RuGb1kyZKwatWqEL8fpmOJl6k/+OCD\nHQ9rf8cPF+bPn9/lOQ96LxBPnB0nz95vZSQBAs0i0Pkc3CzH7DgJEOidQPwA1zmid1ZGEWhG\nAeeHZuy6YybQewHniN5bGUmg2QRiCGwhQIDAewmMHDnyvV7y/EkEDhw4cJJXvZSyQGX+XzHe\n+vnTn/50mDRpUt0zvulfs2ZNmDhxYj2InDVrVrj22mvD2rVr698THDeIbwAeffTR+rZxJYbP\nMVS2ZBOIlvFLv/fv31/7k21rowkQaHSBGOzE36iLv6RjIUCAwPECra2t4fDhw+Gtt946/iWP\nCRAgECZMmBB2795NggABAt0Exo0bF+L3hPscpxuNJwgQ+K9AvDtA/KzSd1X6cSBA4HiB+Dll\n/BM/h4ifR1iyCcTPeoXn2cxSGV2JAPi1114L69evD/fee28Xt3gFb7z6t/Myffr0cOqpp4Y3\n33yz89O1W4mdd955XZ6LD44f122AJ95TIF7674T5njxeINC0AvF73eMf54em/RFw4AR6FHCO\n6JHIAAJNLeA9RFO338ETeE+B+P4hLs4R70nkBQJNLRDPEe3t7bU/TQ3h4AkQ6CbQcQvjeI7w\nPqIbT49PxBzOUk2B/32Za+K1/+Uvf6ldcXruued2qfTVV1+tXe27efPm+vMx0N2+fXs4/juA\n6wOsECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAoEEFKhEAb9q0KZx55pndWjBt2rQw\nYsSIcN9999VuExbD3xUrVtRuG/aZz3ym23hPECBAgAABAgQIECBAgAABAgQIECBAgAABAgQI\nECBAo
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(cats_birds, aes(x = weight, y = speed, shape = group)) +\n",
" geom_point(size = 5) "
]
},
{
"cell_type": "code",
"execution_count": 35,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N0HuFxVuTjuL4WQhEACoYQivYNGSkSKVIGA\nAoYewxXEB/VSBO5VQPgB0qSKDZArAkoJSv+DAkpvBi4IIiBdEkIghIQkENJI+fPte+fck3KS\nc5KZOXNm3vU8w+zZe+1V3nWYMznfrLU6zf40hUSAAAECBAgQIECAAAECBAgQIECAAAECBAgQ\nIECAAAECHV6gc4fvgQ4QIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAQCEgAOwHgQAB\nAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAnUiIABcJwOpGwQIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgQIEBAA9jNAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgACBOhEQAK6T\ngdQNAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQICAD7GSBAgAABAgQIECBAgAABAgQI\nECBAgAABAgQIECBAgECdCAgA18lA6gYBAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgS6\n1grBzJkz47rrrotBgwbFMsssUzRrzJgx8eyzz863ieuuu26ss8468dFHH8WwYcPmybPTTjvF\nEkssMc95JwgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIFCvAjUTAL7sssvixhtvjF13\n3bUpAPzWW2/FFVdcMYf9jBkzYty4cXH00UcXAeDnnnsufvzjH8fyyy8/R76tt966VQHgDDJL\niy/Qs2fP6NatW0ycODFmz569+AUqgQABAv8r0LVr1+L9ZfLkyUwIECBQVoFevXpFvsdMmDCh\nrOUqjAABAvlvo86dO8fUqVNhECBAoKwCpUkTH374YVnLVRgBAgS6d+8es2bNiunTp8MgQIBA\nWQX69OkTOQk0J3RKiy/QpUuX6Nu370ILavcA8HvvvRcXXXRRPPPMM/M0dsstt4ybb755jvMX\nX3xxPP3007HPPvsU51977bXYZJNN4tJLL50jX2tf5A+dtPgC+QOXf+TI4C/TxfdUAgEC/yeQ\n7y/5B1TvLf9n4ogAgfIIlL5g4v2lPJ5KIUBgToFOnTr5/DIniVcECJRBID+/eH8pA6QiCBCY\nRyDfW7y/zMPiBAECZRAordbr7y9lwGxDEe2+B/B5551XBA3PP//8hTY7A7933nlnnHbaaZHf\nSMqUAeANNthgoffKQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAgXoXaPcZwCeddFKs\ntNJKMWLEiAVaT5s2LTJYfPDBB8eGG27YlDcDwEsuuWRkOS+//HJstNFGxfLQq666alOePMjl\nKy644II5zm211VYxYMCAOc55sWgC+Q3UTEsttZQloBeN0F0ECLQgkDOA8z1m6aWXbiGH0wQI\nEFg0gXx/yeT9ZdH83EWAQMsC+dklVzDJWTQSAQIEyimQ7y2ZfH4pp6qyCBBIgdLqjqV/J1Eh\nQIBAOQXyvcXnl/KItnYb1nYPAGfwtzXpoYceirFjx8b+++/flD3XCx89enT069cvBg8eHNtt\nt12xZPRRRx0V1113XeS+bqWUU8uvvvrq0sviOf8xvtNOO81xzovFE8gAsESAAIFKCJSWCqlE\n2cokQKCxBZp/ZmxsCb0nQKDcAvmHVIkAAQKVEPD5pRKqyiRAIAVyspVEgACBcgtkANjnl/Ko\ntnav9nYPALe2u7n08w477DDHxsb5w3LTTTfFcsstV3xDKcvaeOON49BDD43777+/aZ/gPJ/f\nwL7hhhvysCll8DmDytLiC+Q3N/LDwQcffFDMtl78EpVAgACB/xHIwG++v0yaNAkJAQIEyirQ\nu3fvyPcYnwfLyqowAgQ+FcjPLjlLb8qUKTwIECBQVoFll122WF0g//4iESBAoJwCPXr0KFZ2\nnDp1ajmLVRYBAgSKuN6MGTNi4sSJNMogkJNb+/btu9CSOkQA+K233ornnnsuLrnkkjk6lJ3M\n2b/N09prrx0rrLBCvPvuu81PFx+ON9988znO5Yu5882TwYlWCeQS25nyf2IbebeKTCYCBFop\nkO/1GaD55JNPWnmHbAQIEGidQGnJHO8vrfOSiwCB1guUtsjx/tJ6MzkJEGidgM8vrXOSiwCB\ntgvkF9jyb7w+v7Tdzh0ECCxcID/DeH9ZuFNrcrR2qf7/2TikNSW2Y54nn3wy+vTpE/3795+j\nFcOHDy9m+44cObLpfAZ033///Zh7D+CmDA4IECBAgAABAgQIECBAgAABAgQIECBAgAABAgQI\nECBQpwIdIgA8YsSIWGutteYZgjXXXDO6d+8el19+eYwfP76YzXvZZZdFLoezyy67zJPfCQIE\nCBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECNSzQIcIAOdM31zaeX7p+OOPjzfffDMGDRoU\ngwcPj
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"ggplot(cats_birds, aes(x = weight, y = speed, shape = group)) +\n",
" geom_point(size = 5) + \n",
" scale_shape_manual(values = c('B', 'C'), \n",
" labels = c('Angry birds', 'Big cats'), \n",
" name = 'Animals') + \n",
" theme(legend.background = element_rect(color = 'red', fill = 'grey95'),\n",
" legend.title = element_text(size = 15),\n",
" legend.position = c(0.8, 0.8)) # Position, color of legend"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"#### ggplot2 - multiplots"
]
},
{
"cell_type": "code",
"execution_count": 36,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N17jB5V/T/ws+3udlt6v2uJXyiEyi1GwkUi\nESop4Q9ujaBUo4iIEqiXGtQiBhMlSLXBS6CBaCRoIwb4j8RAEFG0NqJiqghNipRSC7S0YGnp\nbW8/zsNva5dny57dnXbmPM9rktJ9znPmzJnXZ5nO7vuZmZbeN5dgIUCAAAECBAgQIECAAAEC\nBAgQIECAAAECBAgQIECAAIHsBUZlvwd2gAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAAB\nAgRqAgJg3wgECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBBoEAEBcIMU0m4QIECAAAEC\nBAgQIECAAAECBAgQIECAAAECBAgQIEBAAOx7gAABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAg0iIABukELaDQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECAiAfQ8QIECAAAEC\nBAgQIECAAAECBAgQIECAAAECBAgQIECgQQQEwA1SSLtBgAABAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAgACB1qoQdHd3h5UrV4aFCxeGiRMn1qa1ZcuW8Pe//33AKR577LHhmGOOCTt27Air\nV6+u6zN//vzQ1tZW166BAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECjSpQmQB4xYoV\n4b777gsLFizYHwC/8MIL4Sc/+Uk/+66urrBt27awePHiWgC8Zs2acMstt4Tp06f363fmmWcm\nBcAxZLaMXGDcuHGhvb09bN++PfT29o58QCMQIEDg/wu0trbWji+7du1iQoAAgUIFxo8fH+Ix\n5r///W+h4xqMAAEC8WejUaNGhT179sAgQIBAoQJ9F028/vrrhY5rMAIECHR0dISenp6wb98+\nGAQIEChUYPLkySFeBBov6LSMXGD06NFh2rRpgw5UegC8efPmsHz58vDkk0/WTfbUU08NDzzw\nQL/22267Lfz1r38NF198ca193bp14cQTTwx33HFHv36pL+I3nWXkAvEbLv6SI4a/TEfuaQQC\nBP4nEI8v8Reoji3/M/EVAQLFCPR9wMTxpRhPoxAg0F+gpaXF+Ut/Eq8IEChAIJ6/OL4UAGkI\nAgTqBOKxxfGljkUDAQIFCPTdrdfvXwrAHMIQpT8D+NZbb62FhsuWLRt02jH4ffDBB8NNN90U\n4ieS4hID4Hnz5g26rg4ECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBBodIHSrwBeunRp\nmDVrVtiwYcM7Wu/duzfEsPjyyy8P733ve/f3jQHwmDFjQhxn7dq14fjjj6/dHnrOnDn7+8Qv\n4u0rvve97/VrO+OMM8Jpp53Wr82L4QnET6DG5YgjjnAL6OERWosAgYMIxCuA4zFmwoQJB+mh\nmQABAsMTiMeXuDi+DM/PWgQIHFwgnrvEO5jEq2gsBAgQKFIgHlvi4vylSFVjESAQBfru7tj3\ncxIVAgQIFCkQjy3OX4oRTX0Ma+kBcAx/U5bf/e53YevWreHSSy/d3z3eL/zll18Os2fPDosW\nLQpnnXVW7ZbR1113XVi5cmWIz3XrW+Kl5XfffXffy9rf8Yfx+fPn92vzYmQCMQC2ECBA4FAI\n9N0q5FCMbUwCBJpb4MBzxuaWsPcECBQtEH+RaiFAgMChEHD+cihUjUmAQBSIF1tZCBAgULRA\nDICdvxSjmvqs9tID4NTdjbd+Pvvss/s92Dh+s9x///1h6tSptU8oxbFOOOGEcMUVV4RHH310\n/3OCY3v8BPa9994bv9y/xPA5hsqWkQvET27Ek4NXX321drX1yEc0AgECBN4SiMFvPL7s3LkT\nCQECBAoVmDRpUojHGOeDhbIajACBNwXiuUu8Sm/37t08CBAgUKjAlClTancXiL9/sRAgQKBI\ngbFjx9bu7Lhnz54ihzUWAQIEarleV1dX2L59O40CBOLFrdOmTRt0pCwC4BdeeCGsWbMm3H77\n7f12KO5kvPr3wGXu3LlhxowZ4aWXXjqwuXZyfMopp/Rriy/e3q+ug4YkgXiL7bjE/4k9yDuJ\nTCcCBBIF4rE+BjSdnZ2Ja+hGgACBNIG+W+Y4vqR56UWAQLpA3yNyHF/SzfQkQCBNwPlLmpNe\nBAgMXSB+gC3+jtf5y9DtrEGAwOAC8RzG8WVwp5Qeqbfqf+vBISkjltjnz3/+c5g8eXJ43/ve\n128Wzz//fO1q340bN+5vj4HuK6+8Et7+DOD9HXxBgAABAgQIECBAgAABAgQIECBAgAABAgQI\nECBAgACBBhXIIgDesGFDOProo+tKcNRRR4WOjo5w5513htdee612Ne+KFStCvB3OueeeW9df\nAwECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBBpZIIsAOF7pG2/tPNCyZMmSsH79+rBw\n4cKwa
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"figure <- ggplot(cats_birds, aes(x = weight, y = speed)) +\n",
" geom_point(size = 5) # We have now object figure, we don't plot\n",
"print(figure) # Plot"
]
},
{
"cell_type": "code",
"execution_count": 37,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N0LmJ3TvTDw/8xkJvdEkslFEKRp3Tl16tpU\nhVIfWlKqUu3R4mmdUppS0iq9UI2Pg54SVLUuOUr46ihKqWqp63Hi8hU5CEkQQlQucp+ZfF1v\nvz2dyUwyM5lJ9rv3/NbzjL33e1nvWr+17Oy9/+9aq2L131JIBAgQIECAAAECBAgQIECAAAEC\nBAgQIECAAAECBAgQIFDyApUlXwMVIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAIFM\nQABYRyBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgECZCAgAl0lDqgYBAgQIECBAgAAB\nAgQIECBAgAABAgQIECBAgAABAgQEgPUBAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQI\nlImAAHCZNKRqECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAQABYHyBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgECZCAgAl0lDqgYBAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQEgPUBAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIlIlAjzKpR6eqcdZZZ8Uj\njzzSZh4DBgyI22+/PVasWBEHHXRQ1NbWxi233NLmeeVwQKr39773vbjpppti2223LYcqqQMB\nAgQIECBAgAABAgS6nYDvv603+VNPPRVXXnll/M///E8MHz48xo4dG0cccUSMHDmy9RNsJUCA\nAAECBAgQIECAQI4FKlb/LeW4fBulaIcddlj85je/afNagwcPjnfffTeWLVsWffr0ic022yxe\nf/31Ns8r9QOee+652HPPPeP999+P//7v/45dd9211Kuk/AQIECBAgAABAgQIEOiWAr7/tmz2\nSy65JE4//fRoaGiIYcOGxZIlS7K/9J3/d7/7Xeywww4tT7KFAAECBAgQIECAAAECORYwArhJ\n41x44YVx9NFHN9nS/Gll5d9nzK6uro7zzz8/+vfv3/yAMnz15z//OY455pgs+FuG1VMlAgQI\nECBAgAABAgQIdEsB33//3uxpNrAU/O3bt29MnTo1Dj744Fi+fHn8/Oc/j4kTJ8a4ceNi7ty5\n0aOHn0+65f8oKk2AAAECBAgQIECgRAV8g2nScIMGDYrNN9+8yZbWn6Yvft/+9rdb31kmW9No\n30mTJsWUKVOioqIiBg4cGAsXLiyT2qkGAQIECBAgQIAAAQIEureA779/b/+rr746G/l7wgkn\nxKc//elsY79+/eIb3/hGXHPNNfGXv/wlHn300fjYxz7WvTuM2hMgQIAAAQIECBAgUFICAsDr\n0Vx1dXXZ3cDpDuEvfvGLzXJIM2o//fTTcffdd8cbb7yRTZ185JFHxv/9v/83pk+fHp/61Key\nqaPTSQ899FCk6ZUPOOCA+MAHPtAsnzS19J133hljxoyJT3ziE9m+hx9+OMvnc5/7XJbXbbfd\nFrvsskukKbzSNFWF9MQTT8SDDz4YL7zwQmyxxRax2267ZXcxp0Bue9MZZ5wRV1xxRRYQ/4//\n+I/44Q9/GPfff397T3ccAQIECBAgQIAAAQIECJSBQLl//03f19ON4F/5yldatNZHP/rRLAA8\nc+ZMAeAWOjYQIECAAAECBAgQIJBnAQHg9WidVatWxb/+679mgdymAeAVK1bEvvvuG4899liW\naxopnEbQXnrppbHjjjvG9ddfHx/84AcbA8A33nhjXHnllXHTTTe1CAA///zz2TXSlNSFAPDN\nN98cP/3pT7ORuGkEcmH55nTdk08+OZum6lvf+lZcfvnl2b6ePXtG2pfSQQcdFNdee20MHz48\ne93Wf9Ld4JMnT46TTjop0t3PEgECBAgQIECAAAECBAh0P4Fy//57yCGHRPpbMy1evDh+//vf\nZ5vTTdsSAQIECBAgQIAAAQIESkng74vallKJN2BZGxoaor6+vtW/tK+tdOKJJ2bB36OOOipe\ne+21WLZsWdx3333x9ttvZ8Hfts5v7/7vf//72TpEKbh8/PHHx4QJE7JTv/vd78Zll10We++9\ndzz77LPZ9dNaRWkqq3vuuSf+5V/+pb2XiB/96Edx5plnCv62W8yBBAgQIECAAAECBAgQKB0B\n339btlUySTNqnXvuudlsXq+88kqcf/75jTdxtzzDFgIECBAgQIAAAQIECORTwAjgJu2Spnxq\nbdqndMiee+6ZrfvT5PBmT9N0zmmE7U477RS/+tWvorLy77H1NHr317/+dey+++7Nju/Mi1Gj\nRsVdd90VvXr1aszmpZdein//93/PvpimqaM32WSTbN+mm24aaU2jNC31vffem53X2t3NjRl5\nQoAAAQIECBAgQIAAAQJlL+D7b8smnj17duyxxx6NOz7/+c/HpEmTGl97QoAAAQIECBAgQIAA\ngVIRE
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"# 1 solution\n",
"print(figure + ggtitle('Figure 1'), \n",
" vp = viewport(x = 0.25, y = 0.75, width = 0.5, height = 0.5))\n",
"print(figure + ggtitle('Figure 2'), \n",
" vp = viewport(x = 0.25, y = 0.25, width = 0.5, height = 0.5))\n",
"print(figure + ggtitle('Figure 3'), \n",
" vp = viewport(x = 0.75, y = 0.5, width = 0.5, height = 1))"
]
},
{
"cell_type": "code",
"execution_count": 38,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N0LmJ3TvTDw/8xkJvdEkslFEKRp3Tl16tpU\nhVIfWlKqUu3R4mmdUppS0iq9UI2Pg54SVLUuOUr46ihKqWqp63Hi8hU5CEkQQlQucp+ZfF1v\nvz2dyUwyM5lJ9rv3/NbzjL33e1nvWr+17Oy9/+9aq2L131JIBAgQIECAAAECBAgQIECAAAEC\nBAgQIECAAAECBAgQIFDyApUlXwMVIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAIFM\nQABYRyBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgECZCAgAl0lDqgYBAgQIECBAgAAB\nAgQIECBAgAABAgQIECBAgAABAgQEgPUBAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQI\nlImAAHCZNKRqECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAQABYHyBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgECZCAgAl0lDqgYBAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAgQEgPUBAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIlIlAjzKpR6eqcdZZZ8Uj\njzzSZh4DBgyI22+/PVasWBEHHXRQ1NbWxi233NLmeeVwQKr39773vbjpppti2223LYcqqQMB\nAgQIECBAgAABAgS6nYDvv603+VNPPRVXXnll/M///E8MHz48xo4dG0cccUSMHDmy9RNsJUCA\nAAECBAgQIECAQI4FKlb/LeW4fBulaIcddlj85je/afNagwcPjnfffTeWLVsWffr0ic022yxe\nf/31Ns8r9QOee+652HPPPeP999+P//7v/45dd9211Kuk/AQIECBAgAABAgQIEOiWAr7/tmz2\nSy65JE4//fRoaGiIYcOGxZIlS7K/9J3/d7/7Xeywww4tT7KFAAECBAgQIECAAAECORYwArhJ\n41x44YVx9NFHN9nS/Gll5d9nzK6uro7zzz8/+vfv3/yAMnz15z//OY455pgs+FuG1VMlAgQI\nECBAgAABAgQIdEsB33//3uxpNrAU/O3bt29MnTo1Dj744Fi+fHn8/Oc/j4kTJ8a4ceNi7ty5\n0aOHn0+65f8oKk2AAAECBAgQIECgRAV8g2nScIMGDYrNN9+8yZbWn6Yvft/+9rdb31kmW9No\n30mTJsWUKVOioqIiBg4cGAsXLiyT2qkGAQIECBAgQIAAAQIEureA779/b/+rr746G/l7wgkn\nxKc//elsY79+/eIb3/hGXHPNNfGXv/wlHn300fjYxz7WvTuM2hMgQIAAAQIECBAgUFICAsDr\n0Vx1dXXZ3cDpDuEvfvGLzXJIM2o//fTTcffdd8cbb7yRTZ185JFHxv/9v/83pk+fHp/61Key\nqaPTSQ899FCk6ZUPOOCA+MAHPtAsnzS19J133hljxoyJT3ziE9m+hx9+OMvnc5/7XJbXbbfd\nFrvsskukKbzSNFWF9MQTT8SDDz4YL7zwQmyxxRax2267ZXcxp0Bue9MZZ5wRV1xxRRYQ/4//\n+I/44Q9/GPfff397T3ccAQIECBAgQIAAAQIECJSBQLl//03f19ON4F/5yldatNZHP/rRLAA8\nc+ZMAeAWOjYQIECAAAECBAgQIJBnAQHg9WidVatWxb/+679mgdymAeAVK1bEvvvuG4899liW\naxopnEbQXnrppbHjjjvG9ddfHx/84AcbA8A33nhjXHnllXHTTTe1CAA///zz2TXSlNSFAPDN\nN98cP/3pT7ORuGkEcmH55nTdk08+OZum6lvf+lZcfvnl2b6ePXtG2pfSQQcdFNdee20MHz48\ne93Wf9Ld4JMnT46TTjop0t3PEgECBAgQIECAAAECBAh0P4Fy//57yCGHRPpbMy1evDh+//vf\nZ5vTTdsSAQIECBAgQIAAAQIESkng74vallKJN2BZGxoaor6+vtW/tK+tdOKJJ2bB36OOOipe\ne+21WLZsWdx3333x9ttvZ8Hfts5v7/7vf//72TpEKbh8/PHHx4QJE7JTv/vd78Zll10We++9\ndzz77LPZ9dNaRWkqq3vuuSf+5V/+pb2XiB/96Edx5plnCv62W8yBBAgQIECAAAECBAgQKB0B\n339btlUySTNqnXvuudlsXq+88kqcf/75jTdxtzzDFgIECBAgQIAAAQIECORTwAjgJu2Spnxq\nbdqndMiee+6ZrfvT5PBmT9N0zmmE7U477RS/+tWvorLy77H1NHr317/+dey+++7Nju/Mi1Gj\nRsVdd90VvXr1aszmpZdein//93/PvpimqaM32WSTbN+mm24aaU2jNC31vffem53X2t3NjRl5\nQoAAAQIECBAgQIAAAQJlL+D7b8smnj17duyxxx6NOz7/+c/HpEmTGl97QoAAAQIECBAgQIAA\ngVIRE
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"# 2 solution\n",
"pushViewport(viewport(layout = grid.layout(2, 2))) # Create layout\n",
"print(figure + ggtitle('Figure 1'), \n",
" vp = viewport(layout.pos.row = 1, layout.pos.col = 1)) # Position 1x1\n",
"print(figure + ggtitle('Figure 2'), \n",
" vp = viewport(layout.pos.row = 2, layout.pos.col = 1)) # Position 2x1\n",
"print(figure + ggtitle('Figure 3'), \n",
" vp = viewport(layout.pos.row = 1:2, layout.pos.col = 2)) # Position (1:2)x2"
]
},
{
"cell_type": "code",
"execution_count": 39,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N0JmFxVmTDgL71kIQskhCRsYREFQUEURJAf\nWQYHAQejgGTQQYHHDUQRRNQBGTZhxIURowiKRlS2EREBRwQUZHOYIBlFBKJhSwgEIWRfOvk9\n16m2u9Nbdd3uulX13ucpquou557znkOlvv7q3Dts3V+XsBAgQIAAAQIECBAgQIAAAQIECBAg\nQIAAAQIECBAgQIBAzQs01XwLNIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIEMgEJ\nYAOBAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECdSIgAVwnHakZBAgQIECAAAECBAgQ\nIECAAAECBAgQIECAAAECBAgQkAA2BggQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIFAn\nAhLAddKRmkGAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAEJYGOAAAECBAgQIECAAAEC\nBAgQIECAAAECBAgQIECAAAECdSIgAVwnHakZBAgQIECAAAECBAgQIECAAAECBAgQIECAAAEC\nBAgQkAA2BggQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIFAnAi110o6KmvHZz3427rnn\nnj7LGDduXNxwww2xcuXKOOigg2LixIlx7bXX9nlcPeyQ2v25z30urrrqqthhhx3qoUnaQIAA\nAQIECBAgQIAAgYYTEP923+WzZ8+Oyy+/PB599NFYvnx5bL/99nHYYYfFIYcc0v0B1hIgQIAA\nAQIECBAgQKDAAhLAf+2c3/3ud/HLX/6yz26aMGFCts/atWuz/TfffPM+j6mHHX7/+9/He97z\nnliyZEksW7asHpqkDQQIECBAgAABAgQIEGhIAfHv+t1+7rnnZj94TrH+FltsEStWrIg777wz\nLrvssjjiiCOyH0I3NbmA2vpy1hAgQIAAAQIECBAgUFQBCeAOPfOFL3whjjrqqA5rOr8sBXyt\nra1x/vnnx9ixYzvvUIfvfv3rX8fRRx+dJX/rsHmaRIAAAQIECBAgQIAAgYYUEP/+rdt/8Ytf\nxJlnnhlTpkyJ6667Lvbaa69Ys2ZN3HLLLZFmS6erfr3+9a+P008/vSHHiUYTIECAAAECBAgQ\nIFCbAhLAHfpt/Pjx2a99O6zq9mVLS0t8+tOf7nZbvaxMs31TgDtjxowYNmxYbLjhhrFo0aJ6\naZ52ECBAgAABAgQIECBAoKEFxL9/6/40y3fdunXxxS9+MUv+prUp5n/7298eW221Veyyyy5x\nxRVXSAA39P8tGk+AAAECBAgQIECg9gQkgAfQZ+nXwOneQKNHj473vve9nUpIgeNvf/vb7NfC\nzzzzTLzpTW+Kww8/PP73f/83Zs2alQWRpUtH33XXXZEur3zggQfGK17xik7lPP300/HTn/40\ntttuu/iHf/iHbNvdd9+dlfPud787K+v666/PgtF0X6JJkya1H/+b3/wmu1zVH/7wh9hyyy1j\n9913j4MPPjhL5Lbv1MeL0047Lb7+9a9nCfHvf//7cfbZZ8dtt93Wx1E2EyBAgAABAgQIECBA\ngEA9CdR7/Jvu95ti9P3333+9bnvta18b6Qpgjz/+eLS1tUVzc/N6+1hBgAABAgQIECBAgACB\nIgpIAA+gV1avXh0f/vCHsyCxYwJ45cqVse+++8Z9992XlZp+NZxm0H7lK1+J17zmNTFz5sx4\n5StfmR2XdvjBD34Q3/jGN7L7CXVNAD/88MPZOdIlqUsJ4Kuvvjq++tWvZjNx0wzklGxOSzrv\niSeemN2n6JOf/GR87Wtfy7aNGDEi25b2Oeigg+I73/lOTJ48Ob3tc0m/Br/gggvihBNOiDFj\nxvS5vx0IECBAgAABAgQIECBAoP4E6j3+/clPftJjpz366KOR2p9+mC352yOTDQQIECBAgAAB\nAgQIFFCgqYB1qlqV1q5dm/2qN/2yt+sjbetr+dCHPpQlf4888sh46qmnIv2S+NZbb43nnnsu\nS/72dXx/t5911lmx3377Zcnl4447LqZPn54d+q//+q9xySWXZJetmj17dnb+efPmxfHHHx8/\n+9nP4l/+5V/6e4o477zz4lOf+pTkb7/F7EiAAAECBAgQIECAAIHaERD/9t1X6UpYaXnb297W\n9872IECAAAECBAgQIECAQIEEzADu0Bkf+MAHIj26W9KlnO+9997uNmXr0uWc0wzbdImoH/7w\nh9HU9Lfcepq9+6Mf/Sje+MY39nhsuRumTp0aN910U4wcObL90Mceeyz+4z/+I5tdnC4dvdFG\nG2XbNt1000j3NEqXpf75z3+eHXfIIYe0H+cFAQIECBAgQIAAAQIECDSegPi39z6/+OKLs6t2\npdsqnXvuub3vbCsBAgQIECBAgAABAgQKJiAB3KFDpkyZEhtuuGGHNX9/udVWW/39TTev0n13\n05IuD
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"# 3 solution - simplest but not so flexible and we need additional library\n",
"grid.arrange(figure + ggtitle('Figure 1'), \n",
" figure + ggtitle('Figure 2'), \n",
" figure + ggtitle('Figure 3'),\n",
" ncol = 2)"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"#### ggplot2 - szablony"
]
},
{
"cell_type": "code",
"execution_count": 40,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N19jF3lnR/w351Xv8AYG4MdSMObKWAnikJg\nE1p2U0LJS0UAr5ImCEVEIqulgigipQ1R/qi6TYlJ2E1WCw4oEYjKIilm1a7SVqm2bJNQQrOb\nkDirBCc0MgaBbfAL4HfPW+e5ZLwzzDCeOffMnOee+znS4Lnnnuc5z/P5HY7uvd855zZGx5aw\nECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgEDbC3S1/QxMgAABAgQIECBAgAABAgQI\nECBAgAABAgQIECBAgAABAgSaAgJgBwIBAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgRq\nIiAArkkhTYMAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQICYMcAAQIECBAgQIAAAQIE\nCBAgQIAAAQIECBAgQIAAAQIEaiIgAK5JIU2DAAECBAgQIECAAAECBAgQIECAAAECBAgQIECA\nAAECAmDHAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBGoiIACuSSFNgwABAgQIECBA\ngAABAgQIECBAgAABAgQIECBAgAABAj25EAwPD8emTZti/fr1MTAw0BzWSy+9FD/72c+mHeKa\nNWvivPPOi/3798eTTz45ZZsrrrgient7p6y3ggABAgQIECBAgAABAgQIECBAgAABAgQIECBA\ngAABAnUVyCYA3rhxYzzyyCNx1VVXHQ+An3vuufjmN785yX5oaCj27NkTt956azMA3rJlS9x5\n552xcuXKSdtddtllJwyAN2/eHPfdd9+kdh7MTmBkZCQajUbzZ3YtbEWAQCcJjI6OOj90UsHN\nlcAcBNJriLR0dbkRzRzYbEqgYwTSOcL5oWPKbaIE5iTgNcScuGxMoOMEfA7RcSU3YQKzFkjn\nh/TjfcasySZt+O53vzu+8pWvTFrnQXsIVB4A79q1K+6+++546qmnpohdcskl8eijj05a/2d/\n9mfxk5/8JK699trm+meeeSbWrVsX995776TtZvMgXT18ww03xCc/+cnZbG6b3wkcO3Ys9u7d\nG0uXLo2TTz6ZCwECBCYJDA4OxoEDB2L58uWT1ntAgACBJLBz587mH+mdeuqpQAgQIDBFIN0F\n6vTTT5+y3goCBAikiwHSe41Vq1b5Y1OHAwECUwT27dsXJ5100gkvCJrS0AoCBGovkHKggwcP\nNj+r7O/vr/18y5zgtm3bmhdgltmnvhZOoPIAeMOGDdHd3R133XVX3HbbbTPOPAW/3/3ud+Mb\n3/hGLFq0qLltCoAvuOCCGdvN9GTat1tFzyQ09bn01zI9PT3NH3ZTfawhQCCcHxwEBAi8qYDX\nEG9K4wkCBMYE0jnCewyHAgEC0wmk80P6PCKdI9IdySwECBCYKDD+GsLriIkqfidAIAlM/BzC\nOWJux0Sys7SvQOXVu+OOO5p/vbl9+/YZFY8ePRopLP7EJz4RF1544fFtUwCc/moj9bN169a4\n6KKLmreHPvPMM49vk35Jtwp642Xqr776apx99tnx2muvTdrWg5kF0vc1pyVdCcxuZivPEuhE\ngXS+Tbfrd37oxOqbM4HZCaTXEs4Rs7OyFYFOE0ivI5wfOq3q5ktgdgLjn0Wkc4QAeHZmtiLQ\nSQLpc4h0hZ9bvHZS1c2VwOwEUo6RlkOHDkXKmSyzF0h3eRz/Go7Zt7JlLgKVB8Dp1j2zWb7/\n/e/H7t2746Mf/ejxzdOl++k2gqtXr47rr78+Lr/88uYto2+55ZbYtGlT87Yf4xunNwoPPvjg\n+MPmv+kW02eccUbzxcGkJzyYlUC69VL6sRAgQGA6gfTGy0KAAIHpBNKbB+eI6WSsI0AgCTg/\nOA4IEJhJIH14ayFAgMB0AocPH55utXUECBBoChw5coTEHAXSeTXdgcXSngKVB8CzZUu3fn7f\n+94XE78vLn2vw+bNm2PFihXR19fX7Grt2rVx4403xmOPPXb8e4LTE+lS9W9/+9uTdpdC5fQ9\nthP7nLSBB9MKpNA3/cVtug138rMQIEBgokD6q9v0oczAwMDE1X4nQIBAUyB9f196XbZs2TIi\nBAgQmCKwd+/e5vu7KU9YQYBAxwuku7il9xrpMyBXAHf84QCAwBSB9FnlkiVLmu81pjxpBQEC\nHS2QPqdMQWb6rNItoOd2KKRzqzsrzM0sp63bIgB+7rnnYsuWLXHPPfdMsksv+NPVvxOXc889\nN0477bTYsWPHxNXNNwcXX3zxpHU///nPm98/PB4eT3rSgxMKpO9PZndCJhsQ6DiBdG5OLwyc\nHzqu9CZMYNYC6TzhHDFrLhsS6CgB54eOKrfJEpiTQDo/pCW9hhj/fU4d2JgAgVoLpM8hUrAj\n3Kl1mU2OQCGB8St/0x+j+yxiboTpnOp119zMctq6K6fBvNlYfvzjH8cpp5wS73znOydt8uyz\nzzav9
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"figure <- ggplot(cats_birds, aes(x = weight, y = speed, color = group)) +\n",
" geom_point(size = 5)\n",
"figure + theme_bw() # White background and grey lines"
]
},
{
"cell_type": "code",
2021-03-21 13:24:35 +01:00
"execution_count": 41,
2021-03-21 13:14:16 +01:00
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N0NjF3lmR/w586MPbbB2BgMso0dnMQ2NSYC\nAiEKERTYwFI5gEO2aeOoQtVWS0QTCiRWQtWkHyFLiIgERLBRoKskKnW29qJNyoKgNVAgEErA\nLA5ZSAMxGIyxjQ0htue791wyE8Zf43Pve3xf278rDXPvuec873N/j5FG859zTm2o/ggPAgQI\nECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIEDjgBToO+E/gAxAgQIAAAQIECBAgQIAAAQIE\nCBAgQIAAAQIECBAgQIBAQ0AA7B8CAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIEDhIB\nAfBBMkgfgwABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgJg/wYIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAgQIECBwkAgIgA+SQfoYBAgQIECAAAECBAgQIECAAAECBAgQIECAAAEC\nBAgQ6CpD8OCDD8aWLVtiyZIlI4fdddddsXHjxpHX731y6qmnxmmnnRbPP/98PPTQQ+99q/F8\n6dKlcdhhh+2y3QYCBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQKC+wzwFwX19fLF++\nPObOnTtqlccffzxeeOGFUduKF9u3b4/DDz+8EQA/9dRTcffdd8fkyZNH7XfppZcKgEeJVPti\nx44d0d/f35hLtSupToAAAQIECBDYPwK/+93vYvz48dHd3b1/FrQKAQIECBAgQKBigTfffDOm\nTp0aHR0u3FcxtfIECBAgQIDAfhAYHByMrVu3xrRp0/bDapYYFhgzAN68eXOsXLkynnjiiVi3\nbt0uAfC3vvWt4Voj31etWhV33HFHfPKTn2xsW79+fVx44YVx+eWXj+zjyf4XeOONN+Ltt9+O\nRYsW7f/FrUiAAAECBAgQqEDgN7/5TRx77LExY8aMCqorSYAAAQIECBDY/wKrV6+OM8880x+4\n7X96KxIgQIAAAQIVCBQnmBY/35x77rkVVFdyTwJj/ilhcdZokczPnz8/pkyZsqc6I9uLwPjW\nW2+NL3/5yyNn/L7++usxa9askX08IUCAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAIH0\nAmOeAVwEt8uWLWusfM0114zZwU033RTFvX9PPvnkkX1fe+21xr2Db7nllnjrrbdi3rx5cfHF\nF8eECRNG9vGEAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBFoTGDMALlP+5z//eTz9\n9NNx++23jxxWnNpdnBV8zz33xNlnn924fM2dd94Z999/f9x8880xadKkkX13fvLLX/4yXnnl\nlZ03e92kQHGd9aGhocalvJss4TACBAgQIECAQFYC/f39Ufyx4TPPPJNVX5ohQIAAAQIECDQr\nUPwurbi9Wq1Wa7aE4wgQIECAAAEC2QgUuVTx+5t77703m54OhkZOO+20OProo/f4UZIGwD/+\n8Y8b9/ot7sM2/BgYGIgrrrgizjjjjJg+fXpj80UXXRRXXnll3HXXXbF06dLhXXf5vnDhwii+\nPNIIFGF6cQ/gE088MU1BVQgQIECAAAECbRYo7iHjHsBtHoLlCRAgQIAAgaQCDzzwQHzsYx9z\nD+CkqooRIECAAAEC7RLo6emJn/3sZ3HOOee0q4WDct2x/lgwWQD87LPPxnPPPRdf+MIXRkEW\nl3levHjxqG0LFiyIOXPmxNq1a0dt3/nFWM3vvL/X+ybAdd+c7EWAAAECBAjkL1D8XDP8lX+3\nOiRAgAABAgQI7JuAn2/2zcleBAgQIECAQP4Cw5nU8Pf8Oz44OuxI9THuu+++xr19586dO6rk\nk08+GTfccEO88847I9t7e3tj48aNI2cEj7zhCQECBAgQIECAAAECBAgQIECAAAECBAgQIECA\nAAECBAg0LZAsAC7u/Xv66afv0siRRx4ZxaVrbr311sY1vjds2BC33XZbFKd8X3DBBbvsbwMB\nAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQINCeQ5BLQxb1lN23atNv79X7gAx+Iq666\nKlasWBFLliyJ4p7AkyZNimuvvbZxGejm2nYUAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAA\nAQIECOwsUCoAvvHGG3c+vvF69uzZce+99+72vWLj+eef3/h69dVXY3BwMGbOnBmdnZ173N8b\nBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIFBeoFQAXL786CNmzZo1eoNXBAgQIECA\nAAECBAgQIECAAAECBAgQIECAAAECBAgQIJBMINk9gJN1pBABAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAgQINCUgAG6KzUEECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBDIT0AA\nnN9Md
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"figure + theme_excel_new() # Excel"
]
},
{
"cell_type": "code",
2021-03-21 13:24:35 +01:00
"execution_count": 42,
2021-03-21 13:14:16 +01:00
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N19jF1nnR/w351X22OP44mDDaE0cUxNbBCC\nkoW02aUhDS9VSOIVICz+yB9hRaoEodC0pEICdUuDs2Sh1SZWIhAolf+gSVbtirai2mYLLCFl\nF4zMCmJIUeJEie3EYxOPX+e189wws+N4zsycuWPPc879HMnMnXuec+7v+fxuDnfu955zGxOT\nS1gIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAoPICHZWfgQkQIECAAAECBAgQIECA\nAAECBAgQIECAAAECBAgQIECAQFNAAOyJQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAA\ngZoICIBr0kjTIECAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAgADYc4AAAQIECBAgQIAA\nAQIECBAgQIAAAQIECBAgQIAAAQI1ERAA16SRpkGAAAECBAgQIECAAAECBAgQIECAAAECBAgQ\nIECAAAEBsOcAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIEaiIgAK5JI02DAAECBAgQ\nIECAAAECBAgQIECAAAECBAgQIECAAAECXbkQjI2Nxe7du2P79u3R39/fLOull16Kn/3sZ7OW\nuHnz5rjiiitiaGgonnzyyXPGXHvttdHd3X3O/e4gQIAAAQIECBAgQIAAAQIECBAgQIAAAQIE\nCBAgQIBAXQWyCYB37doVjzzySFx//fXTAfBzzz0XX//618+yHx0djcHBwbjjjjuaAfDevXvj\nnnvuifXr15817uqrrxYAnyWydL+MjIzEsWPHYsWKFdHX17d0O7YnAgRqIZCO0ydPnpw+ltdi\nUiZBgMCSCaTXcV1dXbF27dol26cdESBQH4GjR4/GunXr6jMhMyFAYMkEXnnllUh/awwMDESj\n0Viy/doRAQL1EEjvVa5atar5t0Y9ZmQWBAgslUB6n/LUqVPN9yqdNLhUqvZTBYFlD4APHToU\n9913X+zZs+ccr3e9613x2GOPnXX/V7/61fjJT34SN910U/P+p59+OrZt2xYPPPDAWeP8cv4E\nJiYmYnh4WMB+/ojtmUClBdIxIr0xYyFAgMBsAuk1RDpOWAgQIDCbQDpGWAgQIDCbQPowevpn\nIUCAwGwC6X0If2fMJuM+AgTS8SH9nTE+Pg6DQFsJLPt3AO/cubP5f8733nvvvPAp+P3Od74T\nX/jCF5pnn6YNUgC8ZcuWebc1gAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAnUXWPYz\ngO++++7YsGFD7N+/f07rM2fORAqLP/7xj8db3vKW6bEpAO7t7Y20n3379sWVV17ZvDz0pZde\nOj2m6Eb63uETJ04UrXZ/gUByS0v61Ey6vIqFAAECMwXSp+nSJ+scH2aquE2AwEyB9FrCMWKm\niNsECEwJpNcRjg9TGn4SIDBTYOq9iHSMcAnomTJuEyCQBNL7EOl93o6OZT/fSUMIEMhMYOoq\nQ+lS0ClnspQT6OnpmT4hs9yWRi+3wLIHwCn8Xcjyve99Lw4fPhwf+chHpocPDQ3FwYMHY+PG\njbFjx4645pprmpeMvv3222P37t2xevXq6bGz3RAAz6ay8PtcfmnhVkYSaEcBH7Bpx66bM4GF\nCaSAxzFiYVZGEWhHAceHduy6ORNYuEB689ZCgACB2QTSd3xaCBAgUCRw+vTpolXun0dgxYoV\n84ywOkeBZQ+AF4qSLv383ve+Ny6++OLpTVLA++ijj8bAwECkTyGkZevWrXHLLbfE448/Pv09\nwdMbvOZGV1fXWft7zWq/Fgik4Dd94jb9R9/X11cwyt0ECLSrQPrUbXpTpr+/v10JzJsAgTkE\nBgcHI70GW7t27RyjrCJAoF0Fjhw50vz7rl3nb94ECBQLvPLKK80z/NJ7QM4ALnayhkC7CqT3\nKletWtX8W6NdDcybAIHZBdL7lOkDIum9yu7u7tkHubdQwJUVCmmyX1GJAPi5556LvXv3xv33\n338WaHrBn87+nbls2rQpLrnkkjhw4MDMu2e9nZ64U8HxrAPcOadAZ2cnvzmFrCTQngLp2Oz4\n2p69N2sCCxVIxwmvwRaqZRyB9hJwfGivfpstgTIC6fiQlvQaYup2me2NJUCg3gLpfYgU7Ah3\n6t1nsyOwGIGpM3/Th9G9F7EYQdtUVaASX4rw4x//OC666KJ4+9vffpbzs88+2zzb9/nnn5++\nPwW/L7/8cizkO4CnN3KDAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECNRCoRAC8f//+\nuPzyy8/hvuyyy5qXIX7wwQfj6NGjzbN+d+3aFevWrYvrrrvunPHuIECAAAECBAgQIECAAAEC\nBAgQIECAAAECBAgQIECAQJ0FKhEApzN906WdZ1vuvPPOeOaZZ2L79u2xY8eOeOGFF5qXik7f\n+WAhQ
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"figure + theme_minimal() # Simple"
]
},
{
"cell_type": "code",
"execution_count": 43,
"metadata": {},
"outputs": [
{
"data": {
"image/png": "iVBORw0KGgoAAAANSUhEUgAAB4AAAAQ4CAYAAADo08FDAAAEDmlDQ1BrQ0dDb2xvclNwYWNl\nR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRB\nkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4\na73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PC\nv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UA\nVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXd\na8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8\nHOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojL\njVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0\nyDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5Pt\nXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEw\nQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXH\nliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vW\nc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUt\nVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJf\ncl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdd\nuwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqv\ngcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCg\nKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8A\nrD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvF\nY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAeAoAMA\nBAAAAAEAAAQ4AAAAADFOLeoAAEAASURBVHgB7N13nB1V3T/w792SbCoJKSQkEEgg9CbSlCZN\nehM0SpWiKBYefiBiecAHUaQpijRBEREREOkgSJFeQpWWAKGYRjrpZctv5sZdstlNcrck3J37\nnucV770zZ87MeX/n+UM/e87kRo4ZXxc2AgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAgQI\nEOjwAmUdfgQGQIAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQJ5AQGwB4EAAQIECBAg\nQIAAAQIECBAgQIAAAQIECBAgQIAAAQIZERAAZ6SQhkGAAAECBAgQIECAAAECBAgQIECAAAEC\nBAgQIECAAAEBsGeAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECGREQAGekkIZBgAAB\nAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAbBngAABAgQIECBAgAABAgQIECBAgAABAgQI\nECBAgAABAhkREABnpJCGQYAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQGwZ4AAAQIE\nCBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIZERAAZ6SQhkGAAAECBAgQIECAAAECBAgQIECA\nAAECBAgQIECAAAEBsGeAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECGREQAGekkIZB\ngAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAbBngAABAgQIECBAgAABAgQIECBAgAAB\nAgQIECBAgAABAhkREABnpJCGQYAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQGwZ4AA\nAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIZERAAZ6SQhkGAAAECBAgQIECAAAECBAgQ\nIECAAAECBAgQIECAAAEBsGeAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECGREQAGek\nkIZBgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAbBngAABAgQIECBAgAABAgQIECBA\ngAABAgQIECBAgAABAhkREABnpJCGQYAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQGw\nZ4AAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIZERAAZ6SQhkGAAAECBAgQIECAAAEC\nBAgQIECAAAECBAgQIECAAAEBsGeAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAECGREQ\nAGekkIZBgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAbBngAABAgQIECBAgAABAgQI\nECBAgAABAgQIECBAgAABAhkREABnpJCGQYAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAA\nAQGwZ4AAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIZERAAZ6SQhkGAAAECBAgQIECA\nAAECBAgQIECAAAECBAgQIECAAAEBsGeAAAECBAgQIECAAAECBAgQIECAAAECBAgQIECAAAEC\nGREQAGekkIZBgAABAgQIECBAgAABAgQIECBAgAABAgQIECBAgAABAbBngAABAgQIECBAgAAB\nAgQIECBAgAABAgQIECBAgAABAhkREABnpJCGQYAAAQIECBAgQIAAAQIECBAgQIAAAQIECBAg\nQIAAAQGwZ4AAAQIECBAgQIAAAQIECBAgQIAAAQIECBAgQIAAAQIZEajIyDgMgwABAgQIECBA\ngAABAgRKQaCmJrp88G7+X8WsmZFLxlzdvUfMGzwk5q67XkR5eSkorNQxTq9eFCNnzYoPFsyP\nOYl3VVlZrNm5c2ydOA/s1HmlXlvnBAgQIECAAAECBAgQINB2AQFw2w31QIAAAQIECBAgQIAA\nAQIrWSC3cEGs/uS/kn+PRK66OuqSUDKXhJPpVpeEvrna2mRfeUzfbseYttNuUVvVJX/MfxQu\n8Pa8uXH1xPHx77lzolMuF7V1dVGdnF6RxOzlSdJ+efJ77SQIPn6NNePTPXoW3rGWBAgQIECA\nAAECBAgQILBKBXIjx4yvW6VXdDECBAgQIECAAAECBAgQINACgc4TxsXg638XZfPnR1lNGkku\ne6str4i6ysoY95XjYt7a6y67YQuO/POeO+OjGTOanNG5qirWGbpeDF1/eHTt1q3J8XTH32+8\nPmpr6+LgL30lmZzc9tnJY94aHS8+90wMS6655TbbNXvNlu6sS4LdP06aGLdMmZSfUV27gg7S\nUWzXY7U4bfDa0TkJ4tt7q04C/scf/me8/spLMXHcuOichPlrrbNObPvZnWLDTTZr78vpjwAB\nAgQIECBAgAABApkTEABnrqQGRIAAAQIECBAgQIAAgewIdHnvnVjrT1dFkqJGLgkqC9nyrXJl\nMe7Lx
"text/plain": [
"plot without title"
]
},
"metadata": {
"image/png": {
"height": 540,
"width": 960
}
},
"output_type": "display_data"
}
],
"source": [
"figure + theme_economist() # Economist (newspapper)"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"## Zadania"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"Zbiory danych dla zadań 1-8 znajdują się w pakiecie *PogromcyDanych* (wersja angielska).\n",
"\n",
"1. Dla zbioru danych *cats\\_birds* przedstaw zależność pomiędzy zmiennymi *length* oraz *speed* na wykresie rozrzutu. Dodaj trend liniowy do wykresu. Obie grupy zwierząt powinny mieć własną prostą regresji oraz typ i kolor punktów.\t\n",
"\n",
"2. W zbiorze danych *pearson* mamy informacje o wzroście ojców i synów. Przedstaw zależność pomiędzy tymi cechami na wykresie rozrzutu. Dodaj trend liniowy bez przedziału ufności.\n",
"\n",
"3. W zbiorze danych *seriesIMDB* mamy informacje o odcinkach około 200 seriali. Stwórz wykres, w którym na osi Y będzie nazwa serialu, a na osi X wykres pudełkowy ocen odcinków danego serialu. Popraw wykres tak, aby seriale były posortowane według median ocen.\t\n",
"\n",
"4. W zbiorze danych *diagnosis* mamy zmienną *eduk4\\_2013* z poziomami edukacji i zmienną *gp29* z odpowiedziami na pytanie co jest najważniejsze w życiu. Stwórz wykres słupkowy. Każdy słupek odpowiada jednemu poziomowi edukacji. Każdy słupek powinien być podzielony na części wypełnione różnymi kolorami w zależności od zmiennej *gp29*.\n",
"\n",
"5. Ze zbioru *auta2012* wybierz jedynie auta Volkswagen Passat. Użyj funkcji *geom\\_smooth()*, aby przedstawić
"\n",
"6. Zmień poniższy wykres:\n",
"\n",
"\tggplot(cats_birds, aes(x = weight, y = speed, size = lifespan, color = lifespan)) + geom_point()\n",
"\n",
" Zastąp skalę kolorów na gradient od koloru zielonego do czerwonego i zastąp kropki kwadratami. Dodaj tytuł i etykiety osi.\n",
"\n",
"7. Ze zbioru danych *auta2012* wybierz wszystkie samochody marki Toyota. Na wykresie kołowym zwizualizuj liczbę pięciu najpopularniejszych modeli. Następnie te same dane przedstaw na wykresie słupkowym w kolejności malejących liczebności. Nie zapomnij o legendzie.\t\n",
"\n",
"8. Dla wzrostu synów i ojców ze zbioru danych *pearson* narysuj na jednym wykresie histogram wraz z nieparametryczną oceną
"\n",
"9. Dla zbioru danych *iris* przygotuj obrazek jak na poniższym rysunku. Rozważ użycie funkcji *geom\\_density2d()* oraz *theme\\_light()*.\n",
"\n",
2021-03-21 13:20:29 +01:00
"<img src=\"figs/Lab2_1.png\" width=\"600\">\n",
2021-03-21 13:14:16 +01:00
"\n",
"10. Dla zbioru danych *iris* przygotuj obrazek jak na poniższym rysunku.\n",
"\n",
2021-03-21 13:20:29 +01:00
"<img src=\"figs/Lab2_2.png\" width=\"600\">\n",
2021-03-21 13:14:16 +01:00
"\n",
"11. Dla zbioru danych *mtcars* przygotuj obrazek jak na poniższym rysunku.\n",
"\n",
2021-03-21 13:20:29 +01:00
"<img src=\"figs/Lab2_3.png\" width=\"600\">\n",
2021-03-21 13:14:16 +01:00
"\n",
"12. Dla zbioru danych *economics* z pakietu *ggplot2* przygotuj obrazek jak na poniższym rysunku. Wykorzystaj szablon *theme\\_economist\\_white()* z pakietu *ggthemes*.\n",
"\n",
2021-03-21 13:20:29 +01:00
"<img src=\"figs/Lab2_4.png\" width=\"600\">"
2021-03-21 13:14:16 +01:00
]
}
],
"metadata": {
"kernelspec": {
"display_name": "R",
"language": "R",
"name": "ir"
},
"language_info": {
"codemirror_mode": "r",
"file_extension": ".r",
"mimetype": "text/x-r-source",
"name": "R",
"pygments_lexer": "r",
"version": "3.6.1"
}
},
"nbformat": 4,
"nbformat_minor": 4
}
