altair.ipynb

{
 "cells": [
  {
   "cell_type": "code",
   "execution_count": 1,
   "metadata": {},
   "outputs": [],
   "source": [
    "library(repr)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 2,
   "metadata": {},
   "outputs": [],
   "source": [
    "repr_vega <- function(obj, ...) UseMethod('repr_vega', obj)\n",
    "repr_vega.default <- function(obj, ...) NULL"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Extend repr’s list of known mimetypes and add the mimetype to the ones we used by IRdisplay"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 3,
   "metadata": {},
   "outputs": [],
   "source": [
    "options(jupyter.display_mimetypes = c(getOption('jupyter.display_mimetypes'), 'application/vnd.vegalite.v2+json'))\n",
    "IRkernel:::replace_in_package('repr', 'mime2repr', c(repr::mime2repr, list(`application/vnd.vegalite.v2+json` = repr_vega)))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Define the actual functionality for the newly extended `repr_vega`"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 4,
   "metadata": {},
   "outputs": [],
   "source": [
    "py_mimebundle <- function(obj) obj$`_repr_mimebundle_`(include = NULL, exclude = NULL)[[1L]]\n",
    "\n",
    "repr_text.altair.vegalite.v2.api.Chart <- function(chart)\n",
    "    py_mimebundle(chart)$`text/plain`\n",
    "repr_vega.altair.vegalite.v2.api.Chart <- function(chart)\n",
    "    py_mimebundle(chart)$`application/vnd.vegalite.v2+json`"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Load the python lib and data"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 5,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/plain": [
       "python:         /usr/bin/python3\n",
       "libpython:      /usr/lib/libpython3.7m.so\n",
       "pythonhome:     /usr:/usr\n",
       "version:        3.7.1 (default, Oct 22 2018, 10:41:28)  [GCC 8.2.1 20180831]\n",
       "numpy:          /usr/lib/python3.7/site-packages/numpy\n",
       "numpy_version:  1.15.4\n",
       "\n",
       "NOTE: Python version was forced by use_python function"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "library(reticulate)\n",
    "use_python('/usr/bin/python3', required = TRUE)\n",
    "py_config()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 6,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/plain": [
       "DataTransformerRegistry.enable('json')"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/plain": [
       "RendererRegistry.enable('jupyterlab')"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "alt <- import('altair')\n",
    "alt$data_transformers$enable('json')\n",
    "alt$renderers$enable('jupyterlab')"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 7,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "application/vnd.vegalite.v2+json": {
       "$schema": "https://vega.github.io/schema/vega-lite/v2.6.0.json",
       "config": {
        "view": {
         "height": 300,
         "width": 400
        }
       },
       "data": {
        "format": {
         "type": "json"
        },
        "url": "altair-data-32719fd5dfa9b6fabd12b66c33e9e445.json"
       },
       "encoding": {
        "x": {
         "field": "hp",
         "type": "quantitative"
        },
        "y": {
         "field": "mpg",
         "type": "quantitative"
        }
       },
       "mark": "point"
      },
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAAcoAAAFfCAYAAADON4wsAAAgAElEQVR4nO2db4wkZ53fP8KyhTS8AAlpLP9BZHVrRNiJLR2BtXUORk0GT1XrFkUk0a5Ojl94xb3gNEYZd5V3ONZKrNXMHULs5rxCxJsT49mpZwIRJANm1znfcV4ZzPrstVkH25jBHOA7X4zupHMQiiBMXnTVbE3vdG/PTHdP1e/3/UiPtru6u7o+89Tsd56nnnoeEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEGIgvBf4BvAM8ALw8dJrbwI/y8tDoz80IYQQYvd5J3Bj/vg64NX88duAJ3fliIQQQoiKEgFn88fvAlZ28ViEEEKIynAX8OO8vC/fdhPwBvAc7ZblHbtwXEIIIUSl+ADwA+Dq/PlV+b/7aF+nvAZgfn7+6Nzc3Fq5PPzww79aXV1dU1FRUVFR2WL5h9HH3c64ALx7k+3ngRu6fWhubm5tWAdUFVZXV+VoAA+O4MNTjjaog+NN5C1FYC/w0/z5tcBbS9tfBt7SbScKShvI0Q4ePOVogzo43gW8AlwEngUa+fbb820vAE8Bt/XaiYLSBnK0gwdPOdrAgyOgoLSCHO3gwVOONvDgCCgo+yFKFifiI2Hf5MzC2KCOadB4OGE9OIIPTznawIMjoKDsxVQr7I+TkDXTsFKUKF0+OOjjGwQeTlgPjuDDU4428OAIKCi7MTmzMFaEZJxkp6I0O7Yelkk4MIzj3AkeTlgPjuDDU4428OAIKCi7MdUK+4uQLLpco2Rxoh2W2fHBH+XO8HDCenAEH55ytIEHR0BB2Y0oyQ4107DSTLLDxbbJmYWxolU52CPcOR5OWA+O4MNTjjbw4AgoKLtRtB7jJDzcmF4ab28LB/JtJwZ/lDvDwwnrwRF8eMrRBh4cAQVlNyZnFsaiNISiBVke1DPVCvuHcZw7wcMJ68ERfHjK0QYeHAEFZS/i9PSeOAknLo14DaGKIQk+TlgPjuDDU4428OAIKCj7peh+rSoeTlgPjuDDU4428OAIKCitIEc7ePCUow08OAIKSivI0Q4ePOVoAw+OgILSCnK0gwdPOdrAgyOgoLSCHO3gwVOONvDgCCgo+yVKFieidPlgVSdH93DCenAEH55ytIEHR0BBeSUa00vjzTQ7Xp4YPU5CFqen9wzyGHeKhxPWgyP48JSjDTw4AgrKK1HcRxkn2almkh2Ok+xUFed79XDCenAEH55ytIEHR0BB2Ys4Pb2nc2L0dguzevO9ejhhPTiCD0852sCDI6Cg7EUx32uUZsfK24tWZZUmIfBwwnpwBB+ecrSBB0dAQdmLcusxShYn4NLE6FEawmCPcmd4OGE9OIIPTznawIMjoKC8EuUFm8ulanO+ejhhPTiCD0852sCDI6CgvBKTMwtjcSvcW3S3xkk4UbWQBB8nrAdH8OEpRxt4cAQUlFaQox08eMrRBh4cAQWlFeRoBw+ecrSBB0dAQWkFOdrBg6ccbeDBEVBQWkGOdvDgKUcbeHAEFJRWkKMdPHjK0QYeHAEFpRXkaAcPnnK0gQdHQEFpBTnawYOnHG3gwRFQUFpBjnbw4ClHG3hwBBSUVpCjHTx4ytEGHhwBP0HZmF4aj4+EfVVbR3JQbOeEnZxZGIuPhH3xkbCvShO8d8PLL6UHTznawIMjYD8oJ2cWxk5++dzaxrlas+PWAnOrJ2yUhANxErINP5ckTA/r+AaBl19KD55ytIEHR8B+UMZpmE1OnlkrlsuK0hA2Wzqr7mzlhC2vihIn2alicer2KinZoWEe507w8kvpwVOONqiD43uBbwDPAC8AHy+91gJWgReBW3vtxHJQFoHw6S8+tu5YLMZctYWXd8pWTtgoyQ4107ASp2H20rZi+bDq/gFRh1/KQeDBU442qIPjO4Eb88fXAa/mj/cCF4CrgfcAT/XaieWgLBZe/nz4yw2ORauyDtfl+mU7QVluPXZbpLpK1OGXchB48JSjDermGAFn88eHgaOl174LdA0Ey0FZtCiTk2fWilCcaoX9alG2g7KZZscnZxbGAJpJdlhBWQ08eMrRBnVxvAv4cV7el2/7DPCJ0nu+BtzSbQeWgxLaAVBcoywPXil3O1pgu9coO38uzVbWGOZx7oS6/FLuFA+ecrRB3Rw/APyAdnfrES4Pyvd3+6D1oJycWRh75Ovf2TDqNU7DbNGSssJWT9ipVthfLEbdbkmGUOWBPFC/X8rt4sFTjjaoo+MF4N3A3Vze9Xo9wPz8/NG5ubm1zrK6uuqiXLj40q4fQ9XK91/6gX4uKioq2y4jT7otchNwTf54L/DT/Pl1tEfCXp1vv9hrJ9ZblFDPv3q2ihzt4MFTjjaog+NdwCu0g/BZoHxtaYb2KNgXgdt77URBaQM52sGDpxxt4MERUFBaQY528OApRxt4cAQUlFaQox08eMrRBh4cAQWlFeRoBw+ecrSBB0dAQWkFOdrBg6ccbeDBEVBQWkGOdvDgKUcbeHAEFJRWkKMdPHjK0QYeHAEFpRXkaAcPnnK0gQdHQEFpBTnawYOnHG3gwRFQUFpBjnbw4ClHG3hwBBSUVpCjHTx4ytEGHhwBBaUV5GgHD55ytIEHR0BBaQU52sGDpxxt4MERUFBaQY528OApRxt4cAQUlFaQox08eMrRBh4cAQWlFeRoBw+ecrSBB0dAQWkFOdrBg6ccbeDBEVBQ9sNUK+yP0nBPlGbHojTcEyWLE4M6tkHh4YT14Ag+POVoAw+OgILySjST7HAzDSuXlVbWGOQx7hQPJ6wHR/DhKUcbeHAEFJS9mJxZGFsPxiQ7HCWLE3EaZptpWImTkA36OHeChxPWgyP48JSjDTw4AgrKXkTJ4kQ7FLNTG7anITTTsDI5szA2mCPcOR5OWA+O4MNTjjbw4AgoKHtRBGUzzY4X2yZnFsbiJGQKytHjwRF8eMrRBh4cAQVlLzZ2vYbp6P7sg3Gr3fUapSEM+jh3gocT1oMj+PCUow08OAIKyiuhwTzVwYMj+PCUow08OAIKyn6YaoX9zSQ7HKXZsWJQz6CObVB4OGE9OIIPTznawIMjoKC0ghzt4MFTjjbw4AgoKK0gRzt48JSjDTw4AgpKK8jRDh485WgDD46AgrKqRMniRJQuH4zS5YN39jFwqI6OW8WDI/jwlKMNPDgCCsoqsvlI2+x4r/s26+a4HTw4gg9POdrAgyOgoKwaU62wv7hPs5lkh9ujbdszAUVJONDtc3Vy3C4eHMGHpxxt4MERUFBWjbgV7u28TzNKwoFmGlbiNMx2+1ydHLeLB0fw4SlHG3hwBBSUVSNKs2OdQXmplZkd6/a5OjluFw+O4MNTjjbw4AgoKKtGlGSHimuS0f3ZB9shmR1vd71mh7p9rk6O28WDI/jwlKMNPDgCCsqq0ZheGi+uSZZLlIbQmF4a7/a5OjluFw+O4MNTjjbw4AgoKKtIY3ppPE7DbJRmx6I0OxanYbZXSEL9HLeDB0fw4SlHG9TB8Vrgy8APgeeB20uvvQn8LC8P9dqJgtIGcrSDB0852qAOjtcBxYCPm4Gn88dvA57sdycKShvI0Q4ePOVog7o5vh34Xv74XcBKvx9UUNpAjnbw4ClHG9TN8ZPAg/njm4A3gOdotyzv6PVBBaUN5GgHD55ytEGdHG8BzgPl6c2uyv/dR/s65TXdPqygtIEc7eDBU442qIvjjbSvTb67x3vOAzcAzM/PH52bm1vrLKurqyoqKioqKlsuI8i5HfEO4Nu0W5RlrgXemj/eC7wMvKXbTtSi3EiULE7ErTDbTLPj7dszlg8O89gGRR1O2J3iwRF8eMrRBnVwfAD4JfB6qdxM+zaRi8ALwFPAbb12oqC8RJQsTly+akdYaSZhetjHuFPqcMLuFA+O4MNTjjbw4AgoKMvEaZhtpmElTsKJOD29Z6oV9sdJdqo9fdzixLCPcyd4OGE9OIIPTznawIMjoKAsEyfhRHuVjtN7im3F2pC95lmtAh5OWA+O4MNTjjbw4AgoKMsUK3dMtcL+Ylux7JWCcvfx4Ag+POVoAw+OgIKyTLFyR5yELEqXDzaTMB0nIWumYeVKc63uNh5OWA+O4MNTjjbw4AgoKDtZXzi5XEprQ1YVDyesB0fw4SlHG3hwBBSUmxElixNRkh2KkuxQ1VuSBR5OWA+O4MNTjjbw4AgoKK0gRzt48JSjDTw4AgpKK8jRDh485WgDD46AgtIKcrSDB0852sCDI6CgtIIc7eDBU4428OAIKCitIEc7ePCUow08OAIKyrpQjL7tNgrXguOV8OAIPjzlaAMPjoCCsspMziyMxa0wGyXZo3ESXozT8HqUZs9HSXg0SsM9kzML62uQ1tVxK3hwBB+ecrSBB0dAQVlliin14jS8GCfhtTgNr8dJeC1Ksmfbq5pkh4v31tVxK3hwBB+ecrSBB0dAQVlViiW/4iQ7FaXhbDMNK3e2wn35XLSLxaxBRVdsHR23igdH8OEpRxt4cAQUlFUlSsKBZhpWovuWP13MPwtQBGTR2iyW/6qj41bx4Ag+POVoAw+OgIKyqlxqUYaHi3CcShan2uG59KVisvZiSbA6Om4VD47gw1OONvDgCCgoq0yxPmaUZOfjJLySX6d8JU7CM0W3bPHeujpuBQ+O4MNTjjbw4AgoKKtMY3ppPE7CiSjJHm22sufzwTyvREl4NE6yU+UFpuvquBU8OIIPTznawIMjoKCsA3F6ek+ULE58+FNL74uSxYlyQBbU3bEfPDiCD0852sCDI6CgtIIc7eDBU4428OAIKCitIEc7ePCUow08OAIKSivI0Q4ePOVoAw+OgIKybjRbWaOZZseLeyuLqez6dWxML413my+26liqx1548JSjDTw4AgrKOjHVCvuLeyrLJUqzY70cJ2cWxqJW9kCU5iNn8zlj43Tpoc0GBlUVK/V4JTx4ytEGHhwBBWWdKM39OtuYXhqP09N74iQ71UzDyjefuNDVMU7DbJRkz67PFdvKfhKn4fVmK3s+TkJWnly9ylipxyvhwVOONvDgCCgo60TntHUAUZIdaqZhZfns+a6OzTSsRK3sJ3GyfK7ZyhqN6aXxKA1no1b2kygJZ8v7qzJW6vFKePCUow08OAIKyjpRBGWzlTWKbXEr3NsrKOP09J78euZrUZKdnWotPRil2ZNREl6KkuxvojT7VpRkh0ZnsX2s1OOV8OApRxt4cAQUlHViwzXKJEyvB2caVs49fbFnizJOwt9GSfg/cZL9PEqyv4uT8H/jJPw6aoU31KKsFh485WgDD46AgrJuNJPs8GUDepLscC/HKM2OxUn4xzgJ/y9Kwy/yoHwzSpd/FSfhF1P3LX1olA7bxVI99sKDpxxt4MERUFDWkTg9vafZyhrNVtboZ/WQOD29ZyoJb8ZJ+HWcZD/PR76+GN2X/WgqCf87vi+bGd3Rbx9r9dgND55ytIEHR0BBaYUrOcZpeD1Ksjc+8qkvHfiX9y19KE5P74la4atxGl5XUFYLD55ytIEHR0BBaYUrOUZp9mR+e8iFqfuXPzaVhv9U3FOprtdq4cFTjjbw4AgoKK1wJcc7Wwv/qgjGconuX35sVMe4UzzUI/jwlKMNPDgCCkor9OM4dd/Sh+5Msj+J0uzJqBW+Wpcu1wIP9Qg+POVogzo4Xgt8Gfgh8Dxwe+m1FrAKvAjc2msnCkobyNEOHjzlaIM6OF4HFDee3ww8nT/eC1wArgbeAzzVaycKShvI0Q4ePOVog7o5vh34Xv74MHC09Np3ga6rRSgobSBHO3jwlKMN6ub4SeDB/PFngE+UXvsacEu3DyoobSDHwdJsZY0oXT4YpcsHRz1zkerSBnKsFrcA54FiBYgjXB6U7+/2YQWlDeQ4GCZnFsaK9T43LmUW7hn2dxeoLm0gx+pwI+1rk+8ubbuby7terweYn58/Ojc3t9ZZVldXVVRUVlfXvvr4X60lJ8+sffqLj6098vXvrD3y9e+sffqLj60lJ8+s/dm3n9/141NRqVoZVdhtl3cA3+bybtXrgGdoD+bZC1zstRO1KG0gx8EQp2G2c4WWKAkHmmlYiVvh3mF/P6gurSDHavAA8Evg9VK5OX9tBniV9u0ht2/24QIFpQ1G4diYXhqPj4R9xfyyo2aUQRnPZHF8JOyLj4R9xaotUZodG/b3g85XK8jREApKGwzTcXJmYSxKwz3la3ZxEh4edWCOoh7brcfs+TgJP4qT7FycLJ+Lk+zlOFk+N6p1O3W+2kCOhlBQ2mCYjuWlvcprYMZJeHhY37kZo6jHqVbYHyfhR/m8uD+KWtlP2hPKh7++89+Hfz7s7wedr1aQoyEUlDYYalDmwdiYXhqHYmRoHpYjbFWOpOu1Fe6NkuzRqLX0n6M0Oxal2bEoCV+NknC2mWSHh/39oPPVCnI0hILSBsNybEwvjW/WeixalqO8x3AkXa+511Qr7F/flixO6BrlYJGjDTw4AgpKK4yiRVmER5ye3hMnIbPYooyS7FCUZt+KWtm3oiR7NE5CFqfZ16MkPKoW5eCQow08OAIKSisM07G4PaJoWZYenxjWd27GKOrxo8nS++IkvJZfo3yt9PivP9r60geG/f2g89UKcuyfG7qUtw9i54NAQWmDYTuWw7LohrQ56jU7FCXZ43ESnouS8GiUhrNREr7fTMJ3oiQcGPb3g85XK8ixf9Z6lBeAfzqIL9kJCkobjMqxGNCzG4zyGmWULE5MziyMTc4sjDVbWaPdzRxmh/39oPPVCnLsn8/TXi/yCHAf8L+A/wGcAH4K/NkgvmQnKChtIMfBsH4rTOl6ZJRkhzQzz2CRow0G5fh94GDp+ce4NKXcHcA/DuJLdoKC0gZlx8b00njcCrPF7Q1xK8zuZktwUIym67U9wjUPxtlmEqbXu5xL09oNE2/nq1Xk2D9/D3wTuA24FVjJtwF8BPjFIL5kJygobVA4NqaXxosRqR0z6WR1D8tR1WPR1brh5zeiblfwdb5aRo798x+5/NpkcS/WHwPPDeJLdoKC0gaF43o3YRJOTLXC/nymmRPt6247m4ItTk/vsT7Xa0Fjemm82coazVbWsDhoabeRow0G6Xgr8Km83FbafgNw7aC+ZLsoKG2wHpTFFHOlbsKihbTdG+bj9PSezjUarc71WgU8eMrRBoN0/G3g92kvpvzPBrXTQaGgtEHhGLfCve3W46VbGdaXidpm92F5flfrc71WAQ+ecrTBoByPsrHb9TdAaxA7HhQKShsUjsWSUHESsigN90RpuKe4Zrnd+wA9zfVaBTx4ytEGgxzMcwb4MO3BO38B/HwQOx4UCkoblB3Lq33sdBaddrern7leq4AHTznaYFCOF4F/XXp+N+17KSuDgtIGnY5RsjiRzzJzaKe3NXTO9VpMlF5uZY6C3a7HKFmcKP5AiJPwcJQuH7zyp7bObnuOAjnaYJCjXl8F5oHPAX8LfIV2l+wDedlVFJQ22I25Xkc1SXjBbtZj+f7KDS311uBvG9H5agM59k+vKeyKsqsoKG0w6rlem0l2eHJmYWyY39nJrgZl0ZLMZ+eJ09N7ojSEYVyn1flqAzn2z2/1UXYVBaUNNNfrcCn+QNiwLb8WPOjJ0nW+2kCOhlBQ2kCOwyVOslOdrcdiIofyIs+DQHVpAzn2z+/Rnvz8V8CvS6UyKChtIMfhUprxKGvP/3ppAoZBt7JVlzaQY//8XV6+AoRSqQwKShvIcfjEaZi9bEDPECZK323PUSBHGwzK8Q3g3w5iR8NCQWkDOY6GjyZL75tKwh9ESXZoWNdrq+A5bORog0E53kd7koEY+J1SqQwKShvIcfgU3a/lFVkGfX0Sdt9zFMjRBoNyPE4Fbwkpo6C0gRyHS/n2mPY6n/mtIUnIBn2bjOrSBnLsn38AngA+SXti9KJUBgWlDeQ4XC4tVXZpyr5iJOygp/FTXdpAjv3zA2Ao01wNCgWlDeQ4XDa7j3KzlVoGgerSBnLsn/tpT1t3gktT1j0wiB0PCgWlDeQ4XIoWZTHKtTG9NF5M56cW5dbZieNuTnqxFVSP/VPJaevKKChtIMfhUixftn4vZel65aC/S3V5OZMzC2NRGu7ZeHtOdnzUi4dvBdVj/1Ry2royCkobyHH4TLXC/mIQT7EQ9jDmu91tz1GwVcfyiOMNdTCEwVSDQvVoCAWlDSw7ticgXz74Xx97eu3OVtbY7f8Yh931Z7kuC7bqWAyc2tj1PZzBVINC9WgIBaUNrDqWb8tITp5ZK5b6qst1qu1gtS7LbNWx96T02aHBHt1gUD0aQkFpA4uOkzMLY8X1wDgNs8tnz6+t36YxhGuDVcFiXXay5a7XvLu1mOAhPzeGMphqUKgeDaGgtIFFx2Kx5CgJ/7OZZseTk2fW4jQ8FCfL5zpbF6M6nvV1KZPwcJQuD+XWL4t12cmWu17zW3HWB/HkIRkn4cSwjnGnqB6rwxjwKPDZju1vAj/Ly0O9dqCgtIFFxyhZnIiS7Nk4Ca90dL2+FifL50Z5rbII7c4St8LsoL/LYl12sr1Rr+0/UkoDeU5UuQu+qvXYmF4aj4+EfYMYMVxVxzJX0Z715wtsDMq3AU/2uxMFpQ0sOv6LTy78kzgNr8dpeH3qvqU/OPf0xbW4FT4bp+H1KMlWR3ks6y3JVrgXigFG+TR2A75FwWJddrJdx8b00niULE5U+baQgirW48aWebtnZCc/yyo6bsb1wMfYGJTvAvrullJQ2sCiY5QsTsRJeCFOL29RRmn2rVG2JnoPJtHMPFtFjqNn4y022bH1xch3cItN1Rx70RmUN9Fe3us52i3LO3p9WEFpA4uOcXp6T/6L/BdTSfbHnw9/uXZnKzvWTLLHR32Ncv0/ldJf38XAokGvILKbddmYXhqP0uWDUZodi1thNm5lv6t7RbdH1RyLXpHyH3bFGqvb/WOvao696AxKaHfLAuyjfZ3yGoD5+fmjc3Nza51ldXVVRaWSZX7hz9eSk2fWHvzTx9ce+cZTaw/+6eNryckzaye/cm6kx7F89vxacvLM2h9+8bG1//Lfv732R4+0jys5eWbtwsWXdv3nNIhy4eJLa3/4xcfWvYryR4/8+a4fm8rOS/G7dO7pi+vbivN6+ez5be93hFm3IzYLyjLngRu6vagWpQ2sOuZzqp4od71GaXZsNyYdKP763lDyG+AHyW7VZeEXJ+FEs5U1oiQcWJ8FZ8CeVs/XMlVzXG89puEeaA+QaqbZ8Z3Ub9Uce9EZlNcCb80f7wVeBt7S7cMKShtYd4ySxYmvPv5Xa7t9z1ycnt4TJeHAVCvsH9Y10t2qy6JrrtyVvJOb+qNkcSI+EvZt9pr18xWq51hcyuicrzhOslMer1HeDlwEXgCeAm7r9WEFpQ3kaIe6B+VUK+zf+B9xyDqv43qoyyo6tgfI5dMB5r0zO/mDr4qOQ0FBaQM52mG3u16baXY8uj/7YNzKfnc98PrsmutotZwoj6wsD4TyUJdVdhzUpYsqOw4UBaUN5GiH3fJsj3i9tDJHOfD63UfRAm0m2eFe2zzUpRwNoaC0gRztsJue7Rv6s0NRmh2L0zC71dsGNuu+XZ+KsDQ/r4e6lKMhFJQ2kKMd6uxZ3NQety6t1XnpXr1L1znr7NgvcjSEgtIGcrRDnT3bc7LmU/slISuucUZpCOXrYnV27Bc5GkJBaQM52qHunnF6ek9x7+v6oJ6O+UTr7tgPcjSEgtIGcrSDFc/JmYWxbqMrrTj2Qo6GUFDaQI52sODZbGWNZhKmm0mYvnOTW0ssOF4JORpCQWkDOdqh7p6bTfXXuW5n3R37QY6GUFDaQI52qLNns5U1isE7zVbWaLayxmbzxdbZsV/kaAgFpQ3kaIc6e64vDFwKxSI8i0Wvod6O/SJHQygobSBHO9TZU0F5CTkaQkFpAznaoc6e66GYhOzOVta4s5U1Npsvts6O/SJHQygobSBHO9Tdc9PBPKkG81jEgyOgoLSCHO1gwbPZyhpxK9wbt8K9m608YsHxSsjREApKG8jRDh485WgDD46AgtIKcrSDB0852sCDI6CgtIIc7eDBU4428OAIKCitIEc7ePCUow08OAIKSivI0Q4ePOVoAw+OgILSCnK0gwdPOdrAgyOgoLSCHO3gwVOONvDgCCgorSBHO3jwlKMNPDgCCkoryNEOHjzlaAMPjoCC0gpytIMHTznawIMjoKC0ghzt4MFTjjbw4AgoKK0gRzt48JSjDTw4AgpKK8jRDh485WgDD46AgtIKcrSDB0852sCDI6CgtIIc7eDBU4428OAIKCitIEc7ePCUow08OAIKSivI0Q4ePOVoAw+OgILSCnK0Q+E5ObMwFqXhnijNjkVpdixuhdnG9NJ4t881ppfG41aYLd4fpeGeyZmFsdEdef94qEs5GkJBaQM52qHwjNLsWDMNK+USJyHbLCzj9PSeOAlZ5/ujNDs2eoMr46Eu5WgIBaUN5GiH1dXVtShZnGgHXQjNVtaIksWJOA2zzTSsxGmY7fzM+mutcG+ULE40W1ljPSyTxYnd8OiFh7qUY3UYAx4FPtuxvQWsAi8Ct/bagYLSBnK0Qzsow4Ei+Irtjeml8SL8Oj9TbC93tRbhGSXhwKiOvV881KUcq8FVwBPAF9gYlHuBC8DVwHuAp3rtREFpAznaYXV1de1SizA7XmwvgjJKQ+j8TJSG0G5tnt5zaVveddvKGqM69n7xUJdyrA7XAx9jY1AeBo6Wnn8X6DoAQEFpAznaYXV1dS1OT+9Zv9aYhOkoXT4YJ+Hh9vPscOdnmkl2OL+G+XCULh9sJmF6/bpmKTyrgoe6lGO16AzKzwCfKD3/GnBLtw8rKG0gRzsUnkX4dQ7O2Wwk6+TMwlichBOd798sVKuAh7qUY7XoDMojXB6U7weYn58/Ojc3t9ZZVldXVVRUKljOPX1xbfns+bXls+fXvvnEhSu+/5tPXFh//7mnL+768avYLyPMuh3RGZR3c3nX6/XdPqwWpQ3kaAcPnnK0QZ0cO47MjZEAAAjESURBVIPyOuAZ2oN59gIXe31YQWkDOdrBg6ccbVAnx86gBJgBXqV9e8jtvT6soLSBHO3gwVOONvDgCCgorSBHO3jwlKMNPDgCCkoryNEOHjzlaAMPjoCC0gpytIMHTznawIMjoKC0ghzt4MFTjjbw4AgoKK0gRzt48JSjDTw4AgpKK8jRDh485WgDD46AgtIKcrSDB0852sCDI6CgtIIc7eDBU4428OAIKCitIEc7ePCUow08OAIKSivI0Q4ePOVoAw+OgILSCnK0gwdPOdrAgyOgoLSCHO3gwVOONvDgCCgorSBHO3jwlKMNPDgCCkoryNEOHjzlaAMPjoCC0gpytIMHTznawIMjoKC0ghzt4MFTjjbw4AgoKK0gRzt48JSjDTw4AgpKK8jRDh485WgDD46AgtIKcrSDB0852sCDI6CgtIIc7eDBU4428OAIKCitIEc7ePCUow08OAIKSivI0Q4ePOVoAw+OgILSCnK0gwdPOdrAgyOgoLSCHO3gwVOONvDgCCgorSBHO3jwlKMNPDgCCkoryNEOHjzlaAMPjoCC0gpytIMHTznawIMjoKC0ghzt4MFTjjbw4AgoKK0gRzt48JSjDTw4AgpKK8jRDh485WgDD46AgtIKcrSDB0852sCDI6CgtIIc7eDBU4428OAIKCitIEc7ePCUow08OAIKSivI0Q4ePOVoAw+OgILSCnK0gwdPOdqg7o5vAj/Ly0O93qigtIEc7eDBU442qLPj24An+32zgtIGcrSDB0852qDOju8CVvp9s4LSBnK0gwdPOdqgzo43AW8Az9FuWd7R680KShvI0Q4ePOVog7o7XpX/u4/2dcprAObn54/Ozc2tdZbV1VUVFRUVFZUtl11LuQFzHrih24tqUdpAjnbw4ClHG9TZ8VrgrfnjvcDLwFu6vVlBaQM52sGDpxxtUGfH24GLwAvAU8Btvd6soLSBHO3gwVOONvDgCCgorSBHO3jwlKMNPDgCCkoryNEOHjzlaAMPjoCC0gpytIMHTznawIMjoKC0ghzt4MFTjjbw4AgoKK0gRzt48JSjDTw4AgpKK8jRDh485WgDD46AgtIKcrSDB0852sCDI6CgtIIc7eDBU4428OAIKCitIEc7ePCUow08OAIKSivI0Q4ePOVoAw+OgILSCnK0gwdPOdrAgyOgoLSCHO3gwVOONvDgCCgorSBHO3jwlKMNPDgCCkoryNEOHjzlaAMPjoCC0gpytIMHTznawIMjoKC0ghzt4MFTjjbw4AgoKK0gRzt48JSjDTw4AgpKK8jRDh485WgDD46AgtIKcrSDB0852sCDI6CgtIIc7eDBU4428OAIKCitIEc7ePCUow08OAIKSivI0Q4ePOVoAw+OgILSCnK0gwdPOdrAgyOgoLSCHO3gwVOONvDgCCgorSBHO3jwlKMNPDgCCkoryNEOHjzlaAMPjoCC0gpytIMHTznawIMjoKC0ghzt4MFTjjbw4AgoKK0gRzt48JSjDTw4AgpKK8jRDh485WgDD46AgtIKcrSDB0852sCDI6CgtIIc7eDBU4428OAIKCitIEc7ePCUow08OAIKSivI0Q4ePOVoAw+OgILSCnK0gwdPOdqg7o4tYBV4Ebi11xsVlDaQox08eMrRBnV23AtcAK4G3gM81evNCkobyNEOHjzlaIM6Ox4GjpaefxcY7/ZmBaUN5GgHD55ytEGdHT8DfKL0/GvALd3erKC0gRzt4MFTjjaos+MRLg/K9wPMz88fnZubWyuXz33uc7/p3KaioqKionKlcurUqV/tSsoNgLu5vOv1+m5vnpuz36KUow08OIIPTznaoM6O1wHP0B7Msxe42OvNdRbtFznawIMj+PCUow3q7jgDvEr79pDbe72x7qL9IEcbeHAEH55ytIEHR8CHqBxt4MERfHjK0QYeHIH2AJ/dPoZhI0cbeHAEH55ytIEHRyGEEEIIIYQQYjD0PT9sDXgT+FleHiptr7vjGPAo8NmO7d286ujbzdFKnV4LfBn4IfA8GwfbWanHXo5W6vG9wDdo32HwAvDx0mt1qcdeDlbqaaBsaX7YivM24MlNttfd8SrgCeALbAyRbl519O3maKlOrwMa+eObgafzx5bqsZujpXp8J3Bj/vg62ncZQL3qsZuDpXoaKFuaH7bivAtY2WS7BcfrgY+xMUS6edXVdzNHq3X6duB7+WNr9VhQdrRajxFwNn9c13osO1itpx2zpflhK85NwBvAc7T/Kroj327FsTNEunnV2bfT0WqdfhJ4MH9ssR5ho6O1erwL+HFe3pdvq1s9buZgrZ4GRtf5YWvKVfm/+2j3sV+DHcfOEOnmVWffTkewV6e3AOdpX5MFm/XY6Qj26hHgA8APaHdJ1rUeyw5gs552zN1sYX7YmnEeuAE7jp0hcjebe3XbXgc2C8oyda/TG2lft3t3advd2KrHzRw7qXs9lrlA2/Vu6luPhUMnluppR2xpftiKcy3w1vzxXuBl4C3YcewMkW5edfbtdLRUp+8Avs3lXVaW6rGbo6V6vIl2Kwvax/zT/Hmd6rGbg6V6Gjh9zw9bcW6nXYEv0B6VdVvpNQuOm7W2unnV1bfT0VKdPgD8Eni9VG7OX7NSjw+wuaOlerwLeIW2z7NcGuUL9anHbg6W6kkIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghrshvAWu0b5YXQgghRAdFUH5mtw9ECCGEqCJFUD5Ce/quN/PHV5Ve+w+0p/z6ezZODi2EEEKYpwjDN4DfA5bz583Sa68C/wY4kz//7V05UiGEEGIXKMLwT/Lnd+TPP1F6bT5/7cP5898f7SEKIYQQu0fnYJ7f4VIYFq99Ln/tI1wKUSGEEMIF/QTl3wD/Dngc+A2XlscSQgghzNNPUP434CXg50Br9IcohBBCVJMiKDXSVQghhNgETUYghBBC9EBBKYQQQgghhBBCCCGEEEIIIYQQQgghhBCifvx/7iBmdS8bksgAAAAASUVORK5CYII=",
      "text/plain": [
       "<VegaLite 2 object>\n",
       "\n",
       "If you see this message, it means the renderer has not been properly enabled\n",
       "for the frontend that you are using. For more information, see\n",
       "https://altair-viz.github.io/user_guide/troubleshooting.html\n"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "chart <- alt$Chart(mtcars)$mark_point()$encode(\n",
    "    x = 'hp:Q',\n",
    "    y = 'mpg:Q'\n",
    ")\n",
    "chart"
   ]
  }
 ],
 "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.5.1"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 2
}