1.R_기본_예제.ipynb

{
 "cells": [
  {
   "cell_type": "markdown",
   "id": "dc4bc241",
   "metadata": {},
   "source": [
    "## 변수 만들기\n",
    "\n",
    "- <- 또는 = 을 이용하여 변수 생성\n",
    "- =는 R 에서 추천하는 방식이 아님"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 1,
   "id": "78f2f4cd",
   "metadata": {},
   "outputs": [],
   "source": [
    "# 변수 생성 방법\n",
    "a <- 1\n",
    "b = 3\n",
    "c <- 1.5"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 2,
   "id": "d5a6e2bb",
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "[1] 1\n",
      "[1] 3\n"
     ]
    }
   ],
   "source": [
    "# 변수 출력\n",
    "print(a)\n",
    "print(b)"
   ]
  },
  {
   "cell_type": "markdown",
   "id": "9a621b91",
   "metadata": {},
   "source": [
    "## <- 와 =의 차이"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 3,
   "id": "e52ec746",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "3"
      ],
      "text/latex": [
       "3"
      ],
      "text/markdown": [
       "3"
      ],
      "text/plain": [
       "[1] 3"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>1</li>\n",
       "\t<li>2</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 1\n",
       "\\item 2\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 1\n",
       "2. 2\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] 1 2"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "sum(x <- c(1, 2))\n",
    "x"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 4,
   "id": "599d4d13",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "1"
      ],
      "text/latex": [
       "1"
      ],
      "text/markdown": [
       "1"
      ],
      "text/plain": [
       "[1] 1"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "sum(y = 1)\n",
    "# y\n",
    "# 파라미터로 인식"
   ]
  },
  {
   "cell_type": "markdown",
   "id": "a1562c51",
   "metadata": {},
   "source": [
    "## 기본 연산"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 5,
   "id": "0edebfae",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "4"
      ],
      "text/latex": [
       "4"
      ],
      "text/markdown": [
       "4"
      ],
      "text/plain": [
       "[1] 4"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "a + b"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 6,
   "id": "e5a794c9",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "2"
      ],
      "text/latex": [
       "2"
      ],
      "text/markdown": [
       "2"
      ],
      "text/plain": [
       "[1] 2"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "6 / b"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 7,
   "id": "2f862b68",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "3"
      ],
      "text/latex": [
       "3"
      ],
      "text/markdown": [
       "3"
      ],
      "text/plain": [
       "[1] 3"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "2 * c"
   ]
  },
  {
   "cell_type": "markdown",
   "id": "36ce8f53",
   "metadata": {},
   "source": [
    "## 여러 값으로 구성된 변수\n",
    "\n",
    "- c()함수 : 변수에 여러 값을 넣는 함수(combine)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 8,
   "id": "45b4d4a6",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>1</li>\n",
       "\t<li>3</li>\n",
       "\t<li>5</li>\n",
       "\t<li>7</li>\n",
       "\t<li>9</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 1\n",
       "\\item 3\n",
       "\\item 5\n",
       "\\item 7\n",
       "\\item 9\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 1\n",
       "2. 3\n",
       "3. 5\n",
       "4. 7\n",
       "5. 9\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] 1 3 5 7 9"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# 숫자 5개로 이루어진 변수\n",
    "var1 <- c(1, 3, 5, 7, 9)\n",
    "var1"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 9,
   "id": "305b87d5",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>1</li>\n",
       "\t<li>2</li>\n",
       "\t<li>3</li>\n",
       "\t<li>4</li>\n",
       "\t<li>5</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 1\n",
       "\\item 2\n",
       "\\item 3\n",
       "\\item 4\n",
       "\\item 5\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 1\n",
       "2. 2\n",
       "3. 3\n",
       "4. 4\n",
       "5. 5\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] 1 2 3 4 5"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# 콜론 : 1씩 증가하는 연속된 수(마지막 수 포함)\n",
    "var2 <- c(1:5)\n",
    "var2"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 10,
   "id": "fd32ea34",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>1</li>\n",
       "\t<li>2</li>\n",
       "\t<li>3</li>\n",
       "\t<li>4</li>\n",
       "\t<li>5</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 1\n",
       "\\item 2\n",
       "\\item 3\n",
       "\\item 4\n",
       "\\item 5\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 1\n",
       "2. 2\n",
       "3. 3\n",
       "4. 4\n",
       "5. 5\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] 1 2 3 4 5"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# seq() : 연속된 값을 지닌 변수 생성(sequence)\n",
    "var3 <- seq(from = 1, to = 5)\n",
    "var3"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 11,
   "id": "d7027fb7",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>1</li>\n",
       "\t<li>3</li>\n",
       "\t<li>5</li>\n",
       "\t<li>7</li>\n",
       "\t<li>9</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 1\n",
       "\\item 3\n",
       "\\item 5\n",
       "\\item 7\n",
       "\\item 9\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 1\n",
       "2. 3\n",
       "3. 5\n",
       "4. 7\n",
       "5. 9\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] 1 3 5 7 9"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# seq함수의 간격 조절\n",
    "var4 <- seq(1, 10, by = 2)\n",
    "var4"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 12,
   "id": "546e9355",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>1</li>\n",
       "\t<li>3.25</li>\n",
       "\t<li>5.5</li>\n",
       "\t<li>7.75</li>\n",
       "\t<li>10</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 1\n",
       "\\item 3.25\n",
       "\\item 5.5\n",
       "\\item 7.75\n",
       "\\item 10\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 1\n",
       "2. 3.25\n",
       "3. 5.5\n",
       "4. 7.75\n",
       "5. 10\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1]  1.00  3.25  5.50  7.75 10.00"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# 등차수열\n",
    "var5 <- seq(1, 10, length = 5)\n",
    "var5"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 13,
   "id": "0b952c25",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>1</li>\n",
       "\t<li>4</li>\n",
       "\t<li>7</li>\n",
       "\t<li>10</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 1\n",
       "\\item 4\n",
       "\\item 7\n",
       "\\item 10\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 1\n",
       "2. 4\n",
       "3. 7\n",
       "4. 10\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1]  1  4  7 10"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# 수열 개수 지정\n",
    "var6 <- seq(1, by = 3, length.out = 4)\n",
    "var6"
   ]
  },
  {
   "cell_type": "markdown",
   "id": "04b954a4",
   "metadata": {},
   "source": [
    "## 수열 연산\n",
    "\n",
    "- 변수 + 변수\n",
    "- 변수 + 숫자"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 14,
   "id": "5b101a35",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>3</li>\n",
       "\t<li>5</li>\n",
       "\t<li>7</li>\n",
       "\t<li>9</li>\n",
       "\t<li>11</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 3\n",
       "\\item 5\n",
       "\\item 7\n",
       "\\item 9\n",
       "\\item 11\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 3\n",
       "2. 5\n",
       "3. 7\n",
       "4. 9\n",
       "5. 11\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1]  3  5  7  9 11"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# 변수 + 숫자 : 각 변수의 각 값에 2가 더해진 값이 출력\n",
    "var1 + 2"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 15,
   "id": "2b25e35b",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>2</li>\n",
       "\t<li>5</li>\n",
       "\t<li>8</li>\n",
       "\t<li>11</li>\n",
       "\t<li>14</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 2\n",
       "\\item 5\n",
       "\\item 8\n",
       "\\item 11\n",
       "\\item 14\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 2\n",
       "2. 5\n",
       "3. 8\n",
       "4. 11\n",
       "5. 14\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1]  2  5  8 11 14"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# 변수 + 변수 : 같은 순서에 위치한 값끼리 연산\n",
    "var1 + var2"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 16,
   "id": "7fdbf4ec",
   "metadata": {},
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "Warning message in var1 + var6:\n",
      "\"두 객체의 길이가 서로 배수관계에 있지 않습니다\""
     ]
    },
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>2</li>\n",
       "\t<li>7</li>\n",
       "\t<li>12</li>\n",
       "\t<li>17</li>\n",
       "\t<li>10</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 2\n",
       "\\item 7\n",
       "\\item 12\n",
       "\\item 17\n",
       "\\item 10\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 2\n",
       "2. 7\n",
       "3. 12\n",
       "4. 17\n",
       "5. 10\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1]  2  7 12 17 10"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# 변수 + 변수 연산에서 데이터의 길이가 다를 경우\n",
    "# 경고 메시지가 출력되지만 결과값도 함께 출력됨\n",
    "var1 + var6"
   ]
  },
  {
   "cell_type": "markdown",
   "id": "ce032fb1",
   "metadata": {},
   "source": [
    "## 문자로 된 변수"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 19,
   "id": "18bd7a0f",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "'Hello, World!'"
      ],
      "text/latex": [
       "'Hello, World!'"
      ],
      "text/markdown": [
       "'Hello, World!'"
      ],
      "text/plain": [
       "[1] \"Hello, World!\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "str1 <- \"Hello, World!\"\n",
    "str1"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 20,
   "id": "18e902f5",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'Hello'</li>\n",
       "\t<li>'World'</li>\n",
       "\t<li>'is'</li>\n",
       "\t<li>'good!'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'Hello'\n",
       "\\item 'World'\n",
       "\\item 'is'\n",
       "\\item 'good!'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'Hello'\n",
       "2. 'World'\n",
       "3. 'is'\n",
       "4. 'good!'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] \"Hello\" \"World\" \"is\"    \"good!\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# 연속 문자 변수\n",
    "str2 <- c(\"Hello\", \"World\", \"is\", \"good!\")\n",
    "str2"
   ]
  },
  {
   "cell_type": "markdown",
   "id": "144f23b4",
   "metadata": {},
   "source": [
    "- 문자형 변수는 연산 불가능"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 22,
   "id": "96290415",
   "metadata": {},
   "outputs": [],
   "source": [
    "# str1 * 2"
   ]
  },
  {
   "cell_type": "markdown",
   "id": "07bedbd1",
   "metadata": {},
   "source": [
    "## 숫자를 다루는 함수"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 23,
   "id": "93ea2452",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "2"
      ],
      "text/latex": [
       "2"
      ],
      "text/markdown": [
       "2"
      ],
      "text/plain": [
       "[1] 2"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "3"
      ],
      "text/latex": [
       "3"
      ],
      "text/markdown": [
       "3"
      ],
      "text/plain": [
       "[1] 3"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    },
    {
     "data": {
      "text/html": [
       "1"
      ],
      "text/latex": [
       "1"
      ],
      "text/markdown": [
       "1"
      ],
      "text/plain": [
       "[1] 1"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "x <- c(1, 2, 3)\n",
    "\n",
    "# 평균\n",
    "mean(x)\n",
    "\n",
    "# 최댓값\n",
    "max(x)\n",
    "\n",
    "# 최솟값\n",
    "min(x)"
   ]
  },
  {
   "cell_type": "markdown",
   "id": "5c51cb05",
   "metadata": {},
   "source": [
    "## 문자를 다루는 함수"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 24,
   "id": "95fcdf6a",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "'Hello World!'"
      ],
      "text/latex": [
       "'Hello World!'"
      ],
      "text/markdown": [
       "'Hello World!'"
      ],
      "text/plain": [
       "[1] \"Hello World!\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# paste() : 여러 문자를 합치는 함수\n",
    "paste(\"Hello\", \"World!\")"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 26,
   "id": "7933be25",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "'Hello World is good!'"
      ],
      "text/latex": [
       "'Hello World is good!'"
      ],
      "text/markdown": [
       "'Hello World is good!'"
      ],
      "text/plain": [
       "[1] \"Hello World is good!\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "paste(str2, collapse = \" \")"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 27,
   "id": "dcb24698",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'Hello'</li>\n",
       "\t<li>'World!'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item 'Hello'\n",
       "\\item 'World!'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. 'Hello'\n",
       "2. 'World!'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       "[1] \"Hello\"  \"World!\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# 묶인 원소는 개별로 인식\n",
    "paste(c(\"Hello\", \"World!\"))"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 28,
   "id": "1a8ecc31",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/html": [
       "<ol class=list-inline>\n",
       "\t<li>'1 st'</li>\n",
       "\t<li>'2 nd'</li>\n",
       "\t<li>'3 rd'</li>\n",
       "\t<li>'4 th'</li>\n",
       "\t<li>'5 th'</li>\n",
       "\t<li>'6 th'</li>\n",
       "\t<li>'7 th'</li>\n",
       "\t<li>'8 th'</li>\n",
       "\t<li>'9 th'</li>\n",
       "\t<li>'10 th'</li>\n",
       "</ol>\n"
      ],
      "text/latex": [
       "\\begin{enumerate*}\n",
       "\\item '1 st'\n",
       "\\item '2 nd'\n",
       "\\item '3 rd'\n",
       "\\item '4 th'\n",
       "\\item '5 th'\n",
       "\\item '6 th'\n",
       "\\item '7 th'\n",
       "\\item '8 th'\n",
       "\\item '9 th'\n",
       "\\item '10 th'\n",
       "\\end{enumerate*}\n"
      ],
      "text/markdown": [
       "1. '1 st'\n",
       "2. '2 nd'\n",
       "3. '3 rd'\n",
       "4. '4 th'\n",
       "5. '5 th'\n",
       "6. '6 th'\n",
       "7. '7 th'\n",
       "8. '8 th'\n",
       "9. '9 th'\n",
       "10. '10 th'\n",
       "\n",
       "\n"
      ],
      "text/plain": [
       " [1] \"1 st\"  \"2 nd\"  \"3 rd\"  \"4 th\"  \"5 th\"  \"6 th\"  \"7 th\"  \"8 th\"  \"9 th\" \n",
       "[10] \"10 th\""
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "paste(1:10, c(\"st\", \"nd\", \"rd\", rep(\"th\", 7)))"
   ]
  },
  {
   "cell_type": "markdown",
   "id": "9c5b4518",
   "metadata": {},
   "source": [
    "## 패키지"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 29,
   "id": "3f61cffc",
   "metadata": {},
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "also installing the dependencies 'isoband', 'rlang'\n",
      "\n"
     ]
    },
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "\n",
      "  There are binary versions available but the source versions are later:\n",
      "        binary source needs_compilation\n",
      "isoband  0.2.4  0.2.5              TRUE\n",
      "ggplot2  3.3.3  3.3.5             FALSE\n",
      "\n",
      "  Binaries will be installed\n",
      "package 'isoband' successfully unpacked and MD5 sums checked\n",
      "package 'rlang' successfully unpacked and MD5 sums checked\n",
      "\n",
      "The downloaded binary packages are in\n",
      "\tC:\\Users\\ITPS\\AppData\\Local\\Temp\\RtmpS4ILrU\\downloaded_packages\n"
     ]
    },
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "installing the source package 'ggplot2'\n",
      "\n"
     ]
    }
   ],
   "source": [
    "# ggplot2 패키지 설치\n",
    "install.packages(\"ggplot2\")"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 31,
   "id": "aa377f2e",
   "metadata": {},
   "outputs": [],
   "source": [
    "# ggplot2 패키지 로드\n",
    "library(ggplot2)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 32,
   "id": "39f5d786",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAOVBMVEUAAAAzMzNNTU1ZWVlo\naGh8fHyMjIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enr6+vw8PD///8Yrk7HAAAACXBI\nWXMAABJ0AAASdAHeZh94AAAdf0lEQVR4nO2d7XJdh3EtKVzLcRw7ivn+D3tFWuaHS6oMOLOC\nxl7dP6ADu1hAn1mNA0Ko0oePIrLmw1t/AiJPwJBEDjAkkQMMSeQAQxI5wJBEDjAkkQMMSeSA\nTUj/AwP3CcWpM6YJG9IzqDOmCRvSM6gzpgkb0jOoM6YJG9IzqDOmCRvSM6gzpgkb0jOoM6YJ\nG9IzqDOmCRvSM6gzpgkb0jOoM6YJG9IzqDOmCRvSM6gzpgkb0jOoM6YJG9IzqDOmCRvSM6gz\npgkb0jOoM6YJG9IzqDOmCRvSM6gzpgkb0jOoM6YJG9IzqDOmCRvSM6gzpgkb0jOoM6YJG9Iz\nqDOmCRvSM6gzpgkb0jOoM6YJG9IzqDOmCRvSM6gzpgkb0jOoM6YJG9IzqDOmCRvSM6gzpgkb\n0jOoM6YJvyakl1/5vceG9PbUGdOEXxHSy5c33z82JAB1xjRhQ3oGdcY04VeE9LUgQ8JRZ0wT\nXof00ycmf/L/PZXR8yY1jEJ6+fafr3tFeuu9x0h/rRtB+wIdhyZsSGvSJxpB21UcmvDrQnr5\n7oEhfSZ9ohG0XcWhCb8qpJfvHxnSZ9InGkHbVRya8GtCevm3h4b0mfSJRtB2FYcm/IqQXl5+\n+3WGl48/8psNb733GOkTjaDtKg5N+DWvSH/M5CO99d5jpE80grarODRhQ1qTPtEI2q7i0IQN\naU36RCNou4pDEzakNekTjaDtKg5N2JDWpE80grarODRhQ1qTPtEI2q7i0IQNaU36RCNou4pD\nEzakNekTjaDtKg5N2JDWpE80grarODRhQ1qTPtEI2q7i0IQNaU36RCNou4pDEzakNekTjaDt\nKg5N2JDWpE80grarODRhQ1qTPtEI2q7i0IQNaU36RCNou4pDEzakNekTjaDtKg5N2JDWpE80\ngrarODRhQ1qTPtEI2q7i0IQNaU36RCNou4pDEzakNekTjaDtKg5N2JDWpE80grarODRhQ1qT\nPtEI2q7i0IQNaU36RCNou4pDEzakNekTjaDtKg5N2JDWpE80grarODRhQ1qTPtEI2q7i0IQN\naU36RCNou4pDEzakNekTjaDtKg5N2JDWpE80grarODRhQ1qTPtEI2q7i0IQNaU36RCNou4pD\nEzakNekTjaDtKg5N2JDWpE80grarODRhQ1qTPtEI2q7i0IQNaU36RCNou4pDEzakNekTjaDt\nKg5N2JDWpE80grarODRhQ1qTPtEI2q7i0IQNaU36RCNou4pDEzakNekTjaDtKg5N2JDWpE80\ngrarODRhQ1qTPtEI2q7i0IQNaU36RCNou4pDEzakNekTjaDtKg5N2JDWpE80grarODRhQ1qT\nPtEI2q7i0IQNaU36RCNou4pDEzakNekTjaDtKg5N2JDWpE80grarODRhQ1qTPtEI2q7i0IQN\naU36RCNou4pDEzakNekTjaDtKg5N2JDWpE80grarODRhQ1qTPtEI2q7i0IQNaU36RCNou4pD\nEzakNekTjaDtKg5N2JDWpE80grarODRhQ1qTPtEI2q7i0IQNaU36RCNou4pDEzakNekTjaDt\nKg5N2JDWpE80grarODRhQ1qTPtEI2q7i0IQNaU36RCNou4pDEzakNekTjaDtKg5N2JDWpE80\ngrarODRhQ1qTPtEI2q7i0IQNaU36RCNou4pDEzakNekTjaDtKg5N2JDWpE80grarODRhQ1qT\nPtEI2q7i0IQNaU36RCNou4pDEzakNekTjaDtKg5N2JDWpE80grarODRhQ1qTPtEI2q7i0IQN\naU36RCNou4pDEzakNekTjaDtKg5N2JDWpE80grarODRhQ1qTPtEI2q7i0IQNaU36RCNou4pD\nEzakNekTjaDtKg5N2JDWpE80grarODThm5AmvPXeY4SfN3ln+Ir0g6S/1o2gfYGOQxM2pDXp\nE42g7SoOTdiQ1qRPNIK2qzg0YUNakz7RCNqu4tCEDWlN+kQjaLuKQxM2pDXpE42g7SoOTdiQ\n1qRPNIK2qzg0YUNakz7RCNqu4tCEDWlN+kQjaLuKQxM2pDXpE42g7SoOTdiQ1qRPNIK2qzg0\nYUNakz7RCNqu4tCEDWlN+kQjaLuKQxM2pDXpE42g7SoOTdiQ1qRPNIK2qzg0YUNakz7RCNqu\n4tCEDWlN+kQjaLuKQxM2pDXpE42g7SoOTdiQ1qRPNIK2qzg0YUNakz7RCNqu4tCEDWlN+kQj\naLuKQxM2pDXpE42g7SoOTdiQ1qRPNIK2qzg0YUNakz7RCNqu4tCEDWlN+kQjaLuKQxM2pDXp\nE42g7SoOTdiQ1qRPNIK2qzg0YUNakz7RCNqu4tCEDWlN+kQjaLuKQxM2pDXpE42g7SoOTdiQ\n1qRPNIK2qzg0YUNakz7RCNqu4tCEDWlN+kQjaLuKQxM2pDXpE42g7SoOTdiQ1qRPNIK2qzg0\nYUNakz7RCNqu4tCEDWlN+kQjaLuKQxM2pDXpE42g7SoOTdiQ1qRPNIK2qzg0YUNakz7RCNqu\n4tCEDWlN+kQjaLuKQxM2pDXpE42g7SoOTdiQ1qRPNIK2qzg0YUNakz7RCNqu4tCEDWlN+kQj\naLuKQxM2pDXpE42g7SoOTdiQ1qRPNIK2qzg0YUNakz7RCNqu4tCEDWlN+kQjaLuKQxM2pDXp\nE42g7SoOTdiQ1qRPNIK2qzg0YUNakz7RCNqu4tCEDWlN+kQjaLuKQxM2pDXpE42g7SoOTdiQ\n1qRPNIK2qzg0YUNakz7RCNqu4tCEDWlN+kQjaLuKQxM2pDXpE42g7SoOTdiQ1qRPNIK2qzg0\nYUNakz7RCNqu4tCEDWlN+kQjaLuKQxM2pDXpE42g7SoOTdiQ1qRPNIK2qzg0YUNakz7RCNqu\n4tCEDWlN+kQjaLuKQxM2pDXpE42g7SoOTdiQ1qRPNIK2qzg0YUNakz7RCNqu4tCEDWlN+kQj\naLuKQxM2pDXpE42g7SoOTdiQ1qRPNIK2qzg0YUNakz7RCNqu4tCEDWlN+kQjaLuKQxM2pDXp\nE42g7SoOTdiQ1qRPNIK2qzg0YUNakz7RCNqu4tCEDWlN+kQjaLuKQxM2pDXpE42g7SoOTdiQ\n1qRPNIK2qzg0YUNakz7RCNqu4tCEDWlN+kQjaLuKQxM2pDXpE42g7SoOTdiQ1qRPNIK2qzg0\n4deF9PL10ScM6RPpE42g7SoOTfhVIX2Tzst3/8fkI7313mOkTzSCtqs4NOHXhPTy0ZB+h/SJ\nRtB2FYcm/KpXpK/5fN+RIb05tF3FoQn/aEhf/or00ycGf/TjW+89xkReenj9K5I/bPhM+mvd\nCNoX6Dg04R8M6d/em3ykt957jPSJRtB2FYcmbEhr0icaQdtVHJrwD4bkt3ZfSZ9oBG1XcWjC\ni5C+eXmafKS33nuM9IlG0HYVhyb8IyF9rujbX2wwpDeHtqs4NOHXhfRHTD7SW+89RvpEI2i7\nikMTNqQ16RONoO0qDk3YkNakTzSCtqs4NGFDWpM+0QjaruLQhA1pTfpEI2i7ikMTNqQ16RON\noO0qDk3YkNakTzSCtqs4NGFDWpM+0QjaruLQhA1pTfpEI2i7ikMTNqQ16RONoO0qDk3YkNak\nTzSCtqs4NGFDWpM+0QjaruLQhA1pTfpEI2i7ikMTNqQ16RONoO0qDk3YkNakTzSCtqs4NGFD\nWpM+0QjaruLQhA1pTfpEI2i7ikMTNqQ16RONoO0qDk3YkNakTzSCtqs4NGFDWpM+0QjaruLQ\nhA1pTfpEI2i7ikMTNqQ16RONoO0qDk3YkNakTzSCtqs4NGFDWpM+0QjaruLQhA1pTfpEI2i7\nikMTNqQ16RONoO0qDk3YkNakTzSCtqs4NGFDWpM+0QjaruLQhA1pTfpEI2i7ikMTNqQ16RON\noO0qDk3YkNakTzSCtqs4NGFDWpM+0QjaruLQhA1pTfpEI2i7ikMTNqQ16RONoO0qDk3YkNak\nTzSCtqs4NGFDWpM+0QjaruLQhA1pTfpEI2i7ikMTNqQ16RONoO0qDk3YkNakTzSCtqs4NGFD\nWpM+0QjaruLQhA1pTfpEI2i7ikMTNqQ16RONoO0qDk3YkNakTzSCtqs4NGFDWpM+0QjaruLQ\nhA1pTfpEI2i7ikMTNqQ16RONoO0qDk3YkNakTzSCtqs4NGFDWpM+0QjaruLQhA1pTfpEI2i7\nikMTNqQ16RONoO0qDk3YkNakTzSCtqs4NGFDWpM+0QjaruLQhA1pTfpEI2i7ikMTNqQ16RON\noO0qDk3YkNakTzSCtqs4NGFDWpM+0QjaruLQhA1pTfpEI2i7ikMTNqQ16RONoO0qDk3YkNak\nTzSCtqs4NGFDWpM+0QjaruLQhA1pTfpEI2i7ikMTNqQ16RONoO0qDk3YkNakTzSCtqs4NGFD\nWpM+0QjaruLQhA1pTfpEI2i7ikMTNqQ16RONoO0qDk3YkNakTzSCtqs4NGFDWpM+0QjaruLQ\nhA1pTfpEI2i7ikMTNqQ16RONoO0qDk3YkNakTzSCtqs4NGFDWpM+0QjaruLQhA1pTfpEI2i7\nikMTNqQ16RONoO0qDk3YkNakTzSCtqs4NGFDWpM+0QjaruLQhA1pTfpEI2i7ikMTNqQ16RON\noO0qDk3YkNakTzSCtqs4NGFDWpM+0QjaruLQhA1pTfpEI2i7ikMTNqQ16RONoO0qDk34JqQJ\nb733GOHnTd4ZviL9IOmvdSNoX6Dj0IQNaU36RCNou4pDEzakNekTjaDtKg5N2JDWpE80grar\nODRhQ1qTPtEI2q7i0IQNaU36RCNou4pDEzakNekTjaDtKg5N2JDWpE80grarODRhQ1qTPtEI\n2q7i0IQNaU36RCNou4pDEzakNekTjaDtKg5N2JDWpE80grarODRhQ1qTPtEI2q7i0IQNaU36\nRCNou4pDEzakNekTjaDtKg5N2JDWpE80grarODRhQ1qTPtEI2q7i0IQNaU36RCNou4pDEzak\nNekTjaDtKg5N2JDWpE80grarODRhQ1qTPtEI2q7i0IQNaU36RCNou4pDEzakNekTjaDtKg5N\n2JDWpE80grarODRhQ1qTPtEI2q7i0IQNaU36RCNou4pDEzakNekTjaDtKg5N2JDWpE80grar\nODRhQ1qTPtEI2q7i0IQNaU36RCNou4pDEzakNekTjaDtKg5N2JDWpE80grarODRhQ1qTPtEI\n2q7i0IQNaU36RCNou4pDEzakNekTjaDtKg5N2JDWpE80grarODRhQ1qTPtEI2q7i0IQNaU36\nRCNou4pDEzakNekTjaDtKg5N2JDWpE80grarODRhQ1qTPtEI2q7i0IQNaU36RCNou4pDEzak\nNekTjaDtKg5N2JDWpE80grarODRhQ1qTPtEI2q7i0IQNaU36RCNou4pDEzakNekTjaDtKg5N\n2JDWpE80grarODRhQ1qTPtEI2q7i0IQNaU36RCNou4pDEzakNekTjaDtKg5N2JDWpE80grar\nODRhQ1qTPtEI2q7i0IQNaU36RCNou4pDEzakNekTjaDtKg5N2JDWpE80grarODRhQ1qTPtEI\n2q7i0IQNaU36RCNou4pDEzakNekTjaDtKg5N2JDWpE80grarODRhQ1qTPtEI2q7i0IQNaU36\nRCNou4pDEzakNekTjaDtKg5N2JDWpE80grarODRhQ1qTPtEI2q7i0IQNaU36RCNou4pDEzak\nNekTjaDtKg5N2JDWpE80grarODRhQ1qTPtEI2q7i0IQNaU36RCNou4pDEzakNekTjaDtKg5N\n2JDWpE80grarODRhQ1qTPtEI2q7i0IQNaU36RCNou4pDEzakNekTjaDtKg5N2JDWpE80grar\nODRhQ1qTPtEI2q7i0IQNaU36RCNou4pDEzakNekTjaDtKg5N2JDWpE80grarODRhQ1qTPtEI\n2q7i0IQNaU36RCNou4pDEzakNekTjaDtKg5N+HUhvXx99CuG9Jn0iUbQdhWHJvyqkL628/J9\nVpOP9NZ7j5E+0QjaruLQhF8T0stHQ/od0icaQdtVHJrwq16RDOn3SJ9oBG1XcWjC65B++sTg\nj358673HULhV+PfxFekHUbhV+PQVyZAUbhU2pFMUbhU2pFMUbhU2pFMUbhXehvTprb/Z8AWF\nW4V/PKQ/wpAULhQ2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2\npFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2\npFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2\npFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2\npFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2\npFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2\npFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2\npFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2\npFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2pFMUbhU2\npFMUbhW+D2nCWz8bMRRuFf59fEX6QRRuFb5/RTIkhQuFDekUhVuFDekUhVuFDekUhVuFDekU\nhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekU\nhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekU\nhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekU\nhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekU\nhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekU\nhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekU\nhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekU\nhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekU\nhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFDekUhVuFfzSkl1/59vGXdwxJ4UbhHwzp5cub\nb/5pSO6qVtiQTlG4VfggpO87MiSFG4UvQvryV6SfPvG//dFPvPWzEUPhVuHf5/WvSP6w4TMK\ntwofvCJ9/P6xISlcKGxIpyjcKnwQkt/afUXhVuGjkL55cTIkhQuFfzCkL7/Z8PLNY0NyV7XC\nPxrSH2NIChcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9Ip\nCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9Ip\nCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9Ip\nCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9Ip\nCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9Ip\nCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9Ip\nCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9Ip\nCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9Ip\nCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9IpCrcKG9Ip\nCrcK34c04a2fjRgKtwr/Pr4i/SAKtwrfvyIZksKFwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKt\nwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKt\nwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKt\nwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKt\nwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKt\nwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKt\nwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKt\nwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKt\nwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKt\nwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwoZ0isKtwj8a0suv/N5jQ1K4UvgHQ3r5\n8ub7x4akcKewIZ2icKuwIZ2icKvwaUg/feJ/+6MiNaRfkf4vwX1CceqMacKG9AzqjGnChvQM\n6oxpwob0DOqMacKG9AzqjGnCrwjpy28zvHzz2JAY1BnThF8T0h/z1hb/Du4TilNnTBM2pGdQ\nZ0wTNqRnUGdMEzakZ1BnTBM2pGdQZ0wTNqRnUGdMEzakZ1BnTBM2pGdQZ0wTNqRnUGdMEzak\nZ1BnTBM2pGdQZ0wTNqRnUGdMEzakZ1BnTBM2pGdQZ0wTNqRnUGdMEzakZ1BnTBM2pGdQZ0wT\nNqRnUGdMEzakZ1BnTBM2pGdQZ0wTNqRnUGdMEzakZ1BnTBM2pGdQZ0wTNqRnUGdMEzakZ1Bn\nTBM2pGdQZ0wTNqRnUGdMEzakZ1BnTBO+CYlG33+Ls86YK2xI75k6Y66wIb1n6oy5wob0nqkz\n5go/KSSRN8OQRA4wJJEDDEnkAEMSOcCQRA4wpHfLy1t/AvINhvRuMSQShvRuMSQSzwnp5Vfe\n+nP4P+XlY50xWPgxIb18edPC51E1GaNP/JiQPkN9liOgd5UA7fqgkMgv/AkMicRzQmr7RseQ\nUDwmpLpZ9RmjXR8VUtm3dm2vweivHI8J6fPPgqnPcgR//E3iOSGJvCGGJHKAIYkcYEgiBxiS\nyAGGJHKAIYkcYEgiBxiSyAGG9O748N3N/or9d/1dGNK74/uQPnhBBJ7h3WFIRDzDe+KXnz/8\n+Z/p/P3PHz68/OVTR9+9K2+FIb0j/vHyazZ//lTO3z585i+/hfTlXXkrDOkd8ZcPP3/8x8+f\nyvnTh//6+PG/Pz36/IL09V15I3zu3xF/+vDLr9/e/bOXX/72nz9/Cenru/JG+Ny/I/5Zyue3\nP//zm7l//W9f3pU3wuf+HfE1pP/48Ke//u2XLyF9fVfeCJ/7d8TXb+0+N/OPL4++vitvhM/9\nO+I/P/z8j4+//c3o77/92OG3kP71rrwRPvfviK8//v7Lh69/R3r59l15I3zu3xO//Plf/0L2\nPz58+Pnvnx799VNIX9+VN8LnXuQAQxI5wJBEDjAkkQMMSeQAQxI5wJBEDjAkkQMMSeQAQxI5\nwJBEDjAkkQP+P2kqySTXDWKOAAAAAElFTkSuQmCC",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "data <- c(\"a\", \"a\", \"b\", \"c\")\n",
    "\n",
    "# qplot() : Quick plot\n",
    "# 빈도 막대 그래프 그리기\n",
    "qplot(data)"
   ]
  },
  {
   "cell_type": "markdown",
   "id": "00b038e8",
   "metadata": {},
   "source": [
    "### MPG 데이터\n",
    "\n",
    "- MPG(Mile Per Gallon) : 1999 ~ 2008년 미국에서 출시된 자동차 연비데이터\n",
    "    - ggplot2에서 제공하는 예제 데이터\n",
    "    \n",
    "| | |\n",
    "| :-- | :-- |\n",
    "| manufacturer | 제조사 |\n",
    "| model | 자동차 모델명 |\n",
    "| displ | 배기량 |\n",
    "| year | 생산 연도 |\n",
    "| cyl | 실린더 개수 |\n",
    "| trans | 변속기 종류 |\n",
    "| drv | 구동방식 |\n",
    "| cty | 도시 연비 |\n",
    "| hwy | 고속도로 연비 |\n",
    "| fl | 연료 종류 |\n",
    "| class | 자동차 종류 |"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 33,
   "id": "24d0739b",
   "metadata": {},
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.\n"
     ]
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAOVBMVEUAAAAzMzNNTU1ZWVlo\naGh8fHyMjIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enr6+vw8PD///8Yrk7HAAAACXBI\nWXMAABJ0AAASdAHeZh94AAAdNUlEQVR4nO3d63odRZJGYaGhOQx9GHT/FztyGYy7jKRKZ4Qr\nPvldPzZtKOeKJHN5y/Luh4cnANs83D0A8B4QElCAkIAChAQUICSgACEBBQgJKEBIQAFfG9L/\nPf3fN+PbqWwqRTVkU0K622RTKSYhjTbZVIpJSKNNNpViEtJok02lmIQ02mRTKSYhjTbZVIpJ\nSKNNNpViEtJok02lmIQ02mRTKSYhjTbZVIpJSKNNNpViEtJok02lmIQ02mRTKSYhjTbZVIpJ\nSKNNNpViEtJok02lmIQ02mRTKSYhjTbZVIpJSKNNNpViEtJok02lmIQ02mRTKSYhjTbZVIpJ\nSKNNNpViEtJok02lmIQ02mRTKSYhjTbZVIpJSKNNNpViEtJok02lmIQ02mRTKSYhjTbZVIpJ\nSKNNNpViEtJok02lmIQ02mRTKSYhjTbZVIpJSKNNf6v6n7+nwdTEd3NSn/6ZkG42CSnFJKTR\nJiGlmIQ02iSkFJOQRpuElGIS0miTkFJMQhptElKKSUijTUJKMQlptElIKSYhjTYJKcUkpNEm\nIaWYhDTaJKQUk5BGm4SUYhLSaJOQUkxCGm0SUoqpOSQ08EJId4+FC3hHusfkHSnF5Eu70SYh\npZiENNokpBSTkEabhJRiEtJok5BSTEIabRJSiklIo01CSjEJabRJSCkmIY02CSnFJKTRJiGl\nmIQ02iSkFJOQRpuElGIS0miTkFJMQhptElKKSUijTUJKMQlptElIKSYhjTYJKcUkpNEmIaWY\nhDTaJKQUk5BGm4SUYhLSaJOQUkxCGm0SUopJSKNNQkoxCWm0SUgpJiGNNgkpxSSk0SYhpZiE\nNNokpBSTkEabhJRiEtJok5BSTEIabRJSiklIo01CSjEJabRJSCkmIY02CSnFJKTRJiGlmIQ0\n2iSkFJOQRpuElGIS0miTkFJMQhptElKKSUijTUJKMQlptElIKSYhjTYJKcUkpNEmIaWYhDTa\nJKQUk5BGm4SUYhLSaJOQUkxCGm0SUopJSKNNQkoxCWm0SUgpJiGNNgkpxSSk0SYhpZiENNok\npBSTkEabhJRiEtJok5BSTEIabRJSiklIo01CSjEJabRJSCkmIY02CSnFJKTRJiGlmIQ02iSk\nFJOQRpuElGIS0miTkFJMQhptElKKSUijTUJKMQlptElIKSYhjTYJKcUkpNEmIaWYhDTaJKQU\nk5BGm4SUYhLSaJOQUkxCGm0SUopJSKNNQkoxCWm0SUgppsqQHo+XZ4TUqhLSQFNhSEdAj5+K\nElKXSkgDTXUhPT4J6duohDTQVBbS45OQvpFKSANNfSH98IE3fxrWeSGku8fCBd4M6fHJO9K3\nUnlHGmgqekf61I+Q+lVCGmiqCukjQvoWKiENNFX/OZKQ+lVCGmgS0miTkFJMPtkw2iSkFJPP\n2o02CSnFJKTRJiGlmIQ02iSkFJOQRpuElGIS0miTkFJMQhptElKKSUijTUJKMQlptElIKSYh\njTYJKcUkpNEmIaWYhDTaJKQUk5BGm4SUYhLSaJOQUkxCGm0SUopJSKNNQkoxCWm0SUgpJiGN\nNgkpxSSk0SYhpZiENNokpBSTkEabhJRiEtJok5BSTEIabRJSiklIo01CSjEJabRJSCkmIY02\nCSnFJKTRJiGlmIQ02iSkFJOQRpuElGIS0miTkFJMQhptElKKSUijTUJKMQlptElIKSYhjTYJ\nKcUkpNEmIaWYhDTaJKQUk5BGm4SUYhLSaJOQUkxCGm0SUopJSKNNQkoxCWm0SUgpJiGNNgkp\nxSSk0SYhpZiENNokpBSTkEabhJRiEtJok5BSTEIabRJSiklIo01CSjEJabRJSCkmIY02CSnF\nJKTRJiGlmIQ02iSkFJOQRpuElGIS0miTkFJMQhptElKKSUijTUJKMQlptElIKSYhjTYJKcUk\npNEmIaWYhDTaJKQUk5BGm4SUYhLSaJOQUkxCGm0SUopJSKNNQkoxCWm0SUgpJiGNNgkpxSSk\n0SYhpZiENNokpBSTkEabhJRiEtJok5BSTEIabRJSiqk5JDTwQkh3j4ULeEe6x+QdKcXkS7vR\nJiGlmIQ02iSkFJOQRpuElGIS0miTkFJMQhptElKKSUijTUJKMQlptElIKSYhjTYJKcUkpNEm\nIaWYhDTaJKQUk5BGm4SUYhLSaJOQUkxCGm0SUopJSKNNQkoxCWm0SUgpJiGNNgkpxSSk0SYh\npZiENNokpBSTkEabhJRiEtJok5BSTEIabRJSiklIo01CSjEJabRJSCkmIY02CSnFJKTRJiGl\nmIQ02iSkFJOQRpuElGIS0miTkFJMQhptElKKSUijTUJKMQlptElIKSYhjTYJKcUkpNEmIaWY\nhDTaJKQUk5BGm4SUYhLSaJOQUkxCGm0SUopJSKNNQkoxCWm0SUgpJiGNNgkpxSSk0SYhpZiE\nNNokpBSTkEabhJRiEtJok5BSTEIabRJSiklIo01CSjEJabRJSCkmIY02CSnFJKTRJiGlmIQ0\n2iSkFJOQRpuElGIS0miTkFJMQhptElKKSUijTUJKMQlptElIKSYhjTYJKcUkpNEmIaWYhDTa\nJKQUk5BGm4SUYnrvIb1w6fZunZBSVEM2JaQFUw9CCjEJqcrUg5BCTEKqMvUgpBCTkKpMPQgp\nxCSkKlMPQgoxCanK1IOQQkxCqjL1IKQQk5CqTD0IKcQkpCpTD0IKMQmpytSDkEJMZSE9PvP5\nX4VUgpBCTFUhPf7x8vjpB0KqQEghJiFVmXoQUoip9PdIQipHSCGmvpB++MCln9bJSyHdPdcO\n73BL3w0XQvr4TQbvSLV4Rwox+dKuytSDkEJMQqoy9SCkEJPv2lWZehBSiElIVaYehBRi8smG\nKlMPQgox+axdlakHIYWYhFRl6kFIISYhVZl6EFKISUhVph6EFGISUpWpByGFmIRUZepBSCEm\nIVWZehBSiElIVaYehBRiElKVqQchhZiEVGXqQUghJiFVmXoQUohJSFWmHoQUYhJSlakHIYWY\nhFRl6kFIISYhVZl6EFKISUhVph6EFGISUpWpByGFmIRUZepBSCEmIVWZehBSiElIVaYehBRi\nElKVqQchhZiEVGXqQUghJiFVmXoQUohJSFWmHoQUYhJSlakHIYWYhFRl6kFIISYhVZl6EFKI\nSUhVph6EFGISUpWpByGFmIRUZepBSCEmIVWZehBSiElIVaYehBRiElKVqQchhZiEVGXqQUgh\nJiFVmXoQUohJSFWmHoQUYhJSlakHIYWYhFRl6kFIISYhVZl6EFKISUhVph6EFGISUpWpByGF\nmIRUZepBSCEmIVWZehBSiElIVaYehBRiElKVqQchhZiEVGXqQUghJiFVmXoQUohJSFWmHoQU\nYhJSlakHIYWYhFRl6kFIISYhVZl6EFKISUhVph6EFGISUpWpByGFmIRUZepBSCEmIVWZehBS\niElIVaYehBRiElKVqQchhZiEVGXqQUghJiFVmXoQUohJSFWmHoQUYhJSlakHIYWYhFRl6kFI\nISYhVZl6EFKISUhVph6EFGISUpWpByGFmIRUZepBSCEmIVWZehBSiElIVaYehBRiElKVqQch\nhZiEVGXqQUghpuaQbuelkO6ea4d3uKXvBu9Ib5p68I4UYvKlXZWpByGFmIRUZepBSCEmIVWZ\nehBSiElIVaYehBRiElKVqQchhZiEVGXqQUghJiFVmXoQUohJSFWmHoQUYhJSlakHIYWYhFRl\n6kFIISYhVZl6EFKISUhVph6EFGISUpWpByGFmIRUZepBSCEmIVWZehBSiElIVaYehBRiElKV\nqQchhZiEVGXqQUghJiFVmXoQUohJSFWmHoQUYhJSlakHIYWYhFRl6kFIISYhVZl6EFKISUhV\nph6EFGISUpWpByGFmIRUZepBSCEmIVWZehBSiElIVaYehBRiElKVqQchhZiEVGXqQUghJiFV\nmXoQUohJSFWmHoQUYhJSlakHIYWYhFRl6kFIISYhVZl6EFKISUhVph6EFGISUpWpByGFmIRU\nZepBSCEmIVWZehBSiElIVaYehBRiElKVqQchhZiEVGXqQUghJiFVmXoQUohJSFWmHoQUYhJS\nlamHgpAuPn73SYWbhFRl6kFIISYhVZl6EFKISUhVph6EFGISUpWpByGFmIRUZepBSCEmIVWZ\nehBSiElIVaYehBRiElKVqQchhZiEVGXqQUghJiFVmXoQUohJSFWmHoQUYhJSlakHIYWYhFRl\n6kFIISYhVZl6EFKISUhVph6EFGISUpWpByGFmIRUZepBSCEmIVWZehBSiElIVaYehBRiElKV\nqQchhZiEVGXqQUghJiFVmXoQUohJSFWmHoQUYhJSlakHIYWYhFRl6kFIISYhVZl6EFKIqSyk\nx2c+/6uQShBSiKkqpMc/Xh4//UBIFQgpxCSkKlMPQgoxlf4eSUjlCCnE1BfSDx+49NM6eSmk\nu+faYXFL7/DfQC6XQnp88o5UjXekEFPlO5KQ6hFSiKkwpMf/fhFSBUIKMdWF9HiqSUgVCCnE\nVPcHsue3JSFVIKQQU9mfIz3+8ZEGn2woRUghJp+1qzL1IKQQk5CqTD0IKcQkpCpTD0IKMQmp\nytSDkEJMQqoy9SCkEJOQqkw9CCnEJKQqUw9CCjEJqcrUg5BCTEKqMvUgpBCTkKpMPQgpxCSk\nKlMPQgoxCanK1IOQQkxCqjL1IKQQk5CqTD0IKcQkpCpTD0IKMQmpytSDkEJMQqoy9SCkEJOQ\nqkw9CCnEJKQqUw9CCjEJqcrUg5BCTEKqMvUgpBCTkKpMPQgpxCSkKlMPQgoxCanK1IOQQkxC\nqjL1IKQQk5CqTD0IKcQkpCpTD0IKMQmpytSDkEJMQqoy9SCkEJOQqkw9CCnEJKQqUw9CCjEJ\nqcrUg5BCTEKqMvUgpBCTkKpMPQgpxCSkKlMPQgoxCanK1IOQQkxCqjL1IKQQk5CqTD0IKcQk\npCpTD0IKMb2bkF4qRkhCul0lpL9HSHsISUgHQtpDSEI6ENIeQhLSgZD2EJKQDoS0h5CEdCCk\nPYQkpAMh7SEkIR0IaQ8hCelASHsISUgHQtpDSEI6ENIeQhLSgZD2EJKQDoS0h5CEdCCkPYQk\npAMh7SEkIR0IaQ8hCelASHsISUgHQtpDSEI6ENIeQhLSgZD2EJKQDoS0h5CEdCCkPYQkpAMh\n7SEkIR0IaQ8hCelASHsISUgHQtpDSEI6ENIeQhLSgZD2EJKQDoS0h5CEdCCkPYQ0mMWQ7h73\nCkVbCv438P7wjvQ532hTRVu6+PiQX7xTTb60+wqEtIeQhHQgpD2EJKQDIe0hJCEdCGkPIQnp\nQEh7CElIB0LaQ0hCOhDSHkIS0oGQ9hCSkA6EtIeQhHQgpD2EJKQDIe0hJCEdCGkPIQnpQEh7\nCElIB0LaQ0hCOhDSHkIS0oGQ9hCSkA6EtIeQhHQgpD2EJKQDIe0hJCEdCGkPIQnpQEh7CElI\nB0LaQ0hCOhDSHkIS0oGQ9hCSkA6EtIeQhHQgpD2EJKQDIe0hJCEdCGkPIb37kK49Xr2pxdnX\ntiSk+1VC+vvHhbSHkIR0IKQ9hCSkAyHtISQhHQhpDyEJ6UBIewhJSAdC2kNIQjoQ0h5CEtKB\nkPYQkpAOhLSHkIR0IKQ9hCSkAyHtISQhHQhpDyEJ6UBIewhJSAdC2kNIQjoQ0h5CEtKBkPYQ\nkpAOhLSHkIR0IKQ9hCSkAyHtISQhHQhpDyEJ6UBIewhJSAdC2kNIQjoQ0h5CEtKBkPYQkpAO\nhLSHkIR0IKQ9hCSkAyHtISQhHQhpDyEJ6UBIewhJSAdC2kNI321Ii3e3d/bFYS4+PuTOpZqE\n1LBK8+yLw1x8fMidSzUJqWGV5tkXh7n4+JA7l2oSUsMqzbMvDnPx8SF3LtUkpIZVmmdfHObi\n40PuXKpJSA2rNM++OMzFx4fcuVSTkBpWaZ59cZiLjw+5c6kmITWs0jz74jAXHx9y51JNQmpY\npXn2xWEuPj7kzqWahNSwSvPsi8NcfHzInUs1CalhlebZF4e5+PiQO5dqKgzp8ePrM0JqnX1x\nmIuPD7lzqaa6kD7289eLkLpmXxzm4uND7lyqqSykxychfaPZF4e5+PiQO5dqqv7STkj9sy8O\nc/HxIXcu1dQX0g8fuPDTiqi5jIuMmn1x9aLZscS7e0eqYdTsi6ufHxvyi3eq6Xv90q6GUbMv\nrn5+bMidSzUJaYdRsy+ufn5syJ1LNQlph1GzL65+fmzInUs1CWmHUbMvrn5+bMidSzV9r59s\nqGHU7Iurnx8bcudSTd/rZ+1qGDX74urnx4bcuVSTkHYYNfvi6ufHhty5VJOQdhg1++Lq58eG\n3LlUk5B2GDX74urnx4bcuVSTkHYYNfvi6ufHhty5VJOQdhg1++Lq58eG3LlUk5B2GDX74urn\nx4bcuVSTkHYYNfvi6ufHhty5VJOQdhg1++Lq58eG3LlUk5B2GDX74urnx4bcuVSTkHYYNfvi\n6ufHhty5VJOQdhg1++Lq58eG3LlUk5B2GDX74urnx4bcuVSTkHYYNfvi6ufHhty5VJOQdhg1\n++Lq58eG3LlUk5B2GDX74urnx4bcuVSTkHYYNfvi6ufHhty5VJOQdhg1++Lq58eG3LlUk5B2\nGDX74urnx4bcuVSTkHYYNfvi6ufHhty5VJOQdhg1++Lq58eG3LlUk5B2GDX74urnx4bcuVST\nkHYYNfvi6ufHhty5VJOQdhg1++Lq58eG3LlUk5B2GDX74urnx4bcuVSTkHYYNfvi6ufHhty5\nVJOQdhg1++Lq58eG3LlUk5B2GDX74urnx4bcuVSTkHYYNfvi6ufHhty5VJOQdhg1++Lq58eG\n3LlUk5B2GDX74urnx4bcuVSTkHYYNfvi6ufHhty5VJOQdhg1++Lq58eG3LlUk5B2GDX74urn\nx4bcuVSTkHYYNfvi6ufHhty5VJOQdhg1++Lq58eG3LlUk5B2GDX74urnx4bcuVSTkHYYNfvi\n6ufHhty5VJOQdhg1++Lq58eG3LlUk5B2GDXMIueZn16fvfKshCSka7frlmEWOc8spD6VkN5g\n1DCLnGcWUp9KSG8waphFzjMLqU8lpDcYNcwi55mF1KcS0huMGmaR88xC6lMJ6Q1GDbPIeWYh\n9amE9AajhlnkPLOQ+lRCeoNRwyxynllIfSohvcGoYRY5zyykPpWQ3mDUMIucZxZSn0pIbzBq\nmEXOMwupTyWkNxg1zCLnmYXUpxLSG4waZpHzzELqUwnpDUYNs8h5ZiH1qYT0BqOGWeQ8s5D6\nVEJ6g1HDLHKeWUh9KiG9wahhFjnPLKQ+lZDeYNQwi5xnFlKfSkhvMGqYRc4zC6lPJaQ3GDXM\nIueZhdSnEtIbjBpmkfPMQupTCekNRg2zyHlmIfWphPQGo4ZZ5DyzkPpUQnqDUcMscp5ZSH0q\nIb3BqGEWOc8spD6VkN5g1DCLnGcWUp9KSG8waphFzjMLqU8lpDcYNcwi55mF1KcS0huMGmaR\n88xC6lMJ6Q1GDbPIeWYh9an2Q7rASwddtEwro4ZZZHH2xePA39P4jvTSQS/+gtB03V5n1DCL\nfPGr5uuzLx7Hq3hHEtK1GW8ZZpEvDvv12ReP41WEJKRrM94yzCJfHPbrsy8ex6sISUjXZrxl\nmEW+OOzXZ188jlcRkpCuzXjLMIt8cdivz754HK8iJCFdm/GWYRb54rBfn33xOF5FSEK6NuMt\nwyzyxWG/PvvicbyKkIR0bcZbhlnki8N+ffbF43gVIQnp2oy3DLPIF4f9+uyLx/EqQhLStRlv\nGWaRLw779dkXj+NVhCSkazPeMswiXxz267MvHserCElI12a8ZZhFvjjs12dfPI5XEZKQrs14\nyzCLfHHYr8++eByvIiQhXZvxlmEW+eKwX5998TheRUhCujbjLcPcw+IxHQhJSNdmvGWYe1g8\npgMhCenajLcMcw+Lx3QgJCFdm/GWYe5h8ZgOhCSkazPeMsw9LB7TgZCEdG3GW4a5h8VjOhCS\nkK7NeMsw97B4TAdCEtK1GW8Z5h4Wj+lASEK6NuMtw9zD4jEdCElI12a8ZZh7WDymAyEJ6dqM\ntwxzD4vHdCAkIV2b8ZZh7mHxmA6EJKRrM94yzD0sHtOBkIR0bcZbhrmHxWM6EJKQrs14yzD3\nsHhMB0IS0rUZbxnmHhaP6UBIQro24y3D3MPiMR0ISUjXZrxlmHtYPKYDIQnp2oy3DHMPi8d0\nICQhXZvxlmHuYfGYDoQkpGsz3jLMPSwe04GQhHRtxluGuYfFYzoQkpCuzXjLMPeweEwHQhLS\ntRlvGeYeFo/pQEhCujbjLcPcw+IxHQhJSNdmvGWYe1g8pgMhCenajLcMcw+Lx3QgJCFdm/GW\nYe5h8ZgOhCSkazPeMsw9LB7TgZCEdG3GW4a5h8VjOhCSkK7NeMsw97B4TAdCGhDSt7wk+GpW\nT3txmauUhvT6jEJCA6unvbjMVYQkpGxWT3txmasISUjZrJ724jJXEZKQslk97cVlriIkIWWz\netqLy1xFSELKZvW0F5e5ipCElM3qaS8ucxUhCSmb1dNeXOYqQhJSNqunvbjMVYQkpGxWT3tx\nmasISUjZrJ724jJXEZKQslk97cVlriIkIWWzetqLy1xFSELKZvW0F5e5ipCEhJe5fPefvuaK\nLd7U/1K9MIaQMJHLd19IQsLLXL77QhISXuby3ReSkPAyl+++kISEl7l894UkJLzM5bsvJCHh\nZS7ffSEJCS9z+e4LSUh4mct3X0hCwstcvvtCEhJe5vLdDw7p8RkhoZXLdz83pMdPL0JCF5fv\nvpCEhJe5fPeFJCS8zOW7/x5C+uEDV38a8F3Q+I5Uxnf3n69KNX1/mxLS3SabSjEJabTJplJM\nQhptsqkUk5BGm2wqxXT/JxvK+O6OJ9X0/W3qa0L6b6bsJNVkUykmIY022VSKSUijTTaVYhLS\naJNNpZiENNpkUykmIY022VSKSUijTTaVYhLSaJNNpZiENNpkUykmIY022VSKSUijTTaVYhLS\naJNNpZiENNpkUykmIY022VSKSUijTTaVYhLSaJNNpZiENNpkUykmIY022VSKSUijTTaVYhLS\naJNNpZiENNpkUykmIY022VSKSUijTTaVYhLSaJNNpZiENNpkUykmIY022VSKSUijTTaVYhLS\naJNNpZiaQ3p6l//xS5tKYdymhPQ5NpXCuE0J6XNsKoVxmxLS59hUCuM29dUhAfgLIQEFCAko\nQEhAAUICChASUMBXhfT48fWZ0lnu5M/N2FQAEzf1NSH9cTqfXt4Bf27GpgI47t+0TX1FSI9P\nQorgXW7qz/s3bVNf/6XdtJ3s8/7u3NM73NQfG5q2KSH9xbu7cx94d5sS0nQmHs8mjyN/O7HF\n49PMkxLSJyYezz7v7B3p016mbUpIf/IuN/X+QvrIvE0J6Q8e/3p9L5t6p9+18440mcfP/vJe\nNiWkb4hPNhz8+QXDu9qUTzZ8Q3zWDihASEABQgIKEBJQgJCAAoQEFCAkoAAhAQUICShASEE8\nOK2xOJoghDQXRxOEkObiaIJ4DumXh8dfnv758PPzj/718M/n158eHn788M9+//gX3ISQgnh4\neM7m4eGXp4cPn3v+5fl/fPh7vxxB/fbw683Tfd8IKYiHh3/8/vTrc0U/P/z76enxQ07/fvj5\n3w//ePrwzvSvu8f7rhFSEA8P/zlen7+2+/X5K7tfntv53+e3o58+ZPUw6f+c8x0ipCA+frPh\nw+vzm9AvD78/f23308OHd6Wf/vhtE25DSEH8FdLPD78//vT00+PTc0NPTz8+/Ofjb5RwG0IK\n4q+Qnr+2e/jt6bfnr+5+e/rwo18eHeS9+PcfxF8hPb88/37p9+fX3z/8rR8fjm844D6EFMRn\nIf18/LHRj3/088+H450J9yGkID4L6Z/HHyL9+mc/H7+fh/sQ0nvgXz7WcDdCeg/8w/fs7kZI\n+Tz4VsP9CCmfx+MPk3ArQgIKEBJQgJCAAoQEFCAkoAAhAQUICShASEAB/w8vuf1ON+/97gAA\nAABJRU5ErkJggg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# data에 mpg, x축에 hwy 변수 지정하여 그래프 그리기\n",
    "qplot(data = mpg, x = hwy)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 34,
   "id": "f1d2827e",
   "metadata": {},
   "outputs": [
    {
     "name": "stderr",
     "output_type": "stream",
     "text": [
      "`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.\n"
     ]
    },
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAOVBMVEUAAAAzMzNNTU1ZWVlo\naGh8fHyMjIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enr6+vw8PD///8Yrk7HAAAACXBI\nWXMAABJ0AAASdAHeZh94AAAgAElEQVR4nO2dDZMkx20FV2uKovVBmvf/f6xv79gnjXbQA9S8\nGuCxMyNM0YpidRKF1FLni/DbFwB4mrduAYA/A4QEIICQAAQQEoAAQgIQQEgAAggJQAAhAQhY\nDen/ZAivQgGF1yoQEgooCBQICQUUBAqEhAIKAgVCQgEFgQIhoYCCQIGQUEBBoEBIKKAgUCAk\nFFAQKBASCigIFAgJBRQECoSEAgoCBUJCAQWBAiGhgIJAgZBQQEGgQEgooCBQICQUUBAoEBIK\nKAgUCAkFFAQKhIQCCgIFQkIBBYECIaGAgkCBkFBAQaBASCigIFAgJBRQECgQEgooCBQICQUU\nBAqEhAIKAgVCQgEFgQIhoYCCQIGQUEBBoEBIKKAgUCAkFFAQKBASCigIFAgJBRQECoSkVfif\ngBcqPA8KdQVC0ioQ0kUVCEmrQEgXVSAkrQIhXVSBkLQKhHRRBULSKhDSRRUISatASBdVICSt\nAiFdVIGQtAqEdFEFQtIqENJFFQhJq0BIF1UgJK0CIV1UgZC0CoR0UQVC0ioQ0kUVCEmrQEgX\nVSAkrQIhXVSBkLQKhHRRBULSKhDSRRUISatASBdVICStAiFdVIGQtAqEdFEFQtIqENJFFQhJ\nq0BIF1UgJK0CIV1UgZC0CoR0UQVC0ioQ0kUVCEmrQEgXVXg+JPhPopC6veBl8BNJocBPpIsq\nEJJWgZAuqkBIWgVCuqgCIWkVCOmiCoSkVSCkiyoQklaBkC6qQEhaBUK6qAIhaRUI6aIKhKRV\nIKSLKhCSVoGQLqpASFoFQrqoAiFpFQjpogqEpFUgpIsqEJJWgZAuqkBIWgVCuqgCIWkVCOmi\nCoSkVSCkiyoQklaBkC6qQEhaBUK6qAIhaRUI6aIKhKRVIKSLKhCSVoGQLqpASFoFQrqoAiFp\nFQjpogqEpFUgpIsqEJJWgZAuqkBIB08XcHYLIf3ZFQjpgJBQeEKBkA4ICYUnFAjpgJBQeEKB\nkA4ICYUnFAjpgJBQeEKBkA4ICYUnFAjpgJBQeEKBkA4ICYUnFAjpgJBQeEKBkA4ICYUnFAjp\ngJBQeEKBkA4ICYUnFAjpgJBQeEKBkA4ICYUnFAjpgJBQeEKBkA4ICYUnFAjpgJBQeEKBkA4I\nCYUnFAjpgJBQeEKBkA4ICYUnFAjpgJBQeEKBkA4ICYUnFAjpgJBQeEKBkA4ICYUnFAjpgJBQ\neEKBkA4ICYUnFAjpYFRIGplV7LZ4gAIhHRDSrUIvdgqEdEBItwq92CkQ0gEh3Sr0YqdASAeE\ndKvQi50CIR0Q0q1CL3YKhHRASLcKvdgpENIBId0q9GKnQEgHhHSr0IudAiEdENKtQi92CoR0\nQEi3Cr3YKRDSASHdKvRip0BIB4R0q9CLnQIhHRDSrUIvdgqEdEBItwq92CkQ0gEh3Sr0YqdA\nSAeEdKvQi50CIR0Q0q1CL3YKhHRASLcKvdgpENIBId0q9GKnQEgHhHSr0IudAiEdENKtQi92\nCoR0QEi3Cr3YKRDSASHdKvRip0BIB4R0q9CLnQIhHRDSrUIvdgqEdEBItwq92CkQ0gEh3Sr0\nYqdASAeEdKvQi50CIR0Q0q1CL3YKhHRASLcKvdgpENIBId0q9GKnQEgHhHSr0IudAiEdENKt\nQi92CoR0QEi3Cr3YKRDSASHdKvRip0BIB4R0q9CLnQIhHRDSrUIvdgqEdEBItwq92CkQ0gEh\n3Sr0YqdASAeEdKvQi50CIR0Q0q1CL3YKhHRASLcKvdgpENIBId0q9GKnQEgHhHSr0IudAiEd\nENKtQi92CoR0QEi3Cr3YKRDSASHdKvRip0BIB4R0q9CLnQIhHRDSrUIvdgqEdEBItwq92CkQ\n0gEh3Sr0YqdASAeEdKvQi50CIR0Q0q1CL3YKhHRASLcKvdgp/AlCen53z655uQwhWSoQ0oNr\nXi5DSJYKhPTgmpfLEJKlAiE9uOblMoRkqUBID655uQwhWSoQ0oNrXi5DSJYKhPTgmpfLEJKl\nAiE9uOblMoRkqUBID655uQwhWSoQ0oNrXi5DSJYKhPTgmpfLEJKlAiE9uOblMoRkqUBID655\nuQwhWSoQ0oNrXi5DSJYKhPTgmpfLEJKlAiE9uOblMoRkqUBID655uQwhWSoQ0oNrXi5DSJYK\nhPTgmpfLEJKlAiE9uOblMoRkqUBID655uQwhWSoQ0oNrXi5DSJYKhPTgmpfLEJKlQiWk96/8\n578S0g4ZQrJUKIT0/scf3n/8L4S0QYaQLBUI6cE1L5chJEuFQkhHTYS0VYaQLBWeCukvH6T+\nshLRMmqOF78qci/erpGBDlIhvX95wU+kaOuCv6x4PGLrLQVHfiJZKhDSg2s0txQcCclSoRbS\n++0fCCktk7+dkCwVSiG9/1dNhJSWyd9OSJYKlZDe//vHEiGlZfK3E5KlQiGk9/c/fkvD7t/Z\nUCyjeDxi6y0FR0KyVKj8RLqP3rxYRvF4xNZbCo6EZKlASA+u0dxScCQkSwVCenCN5paCIyFZ\nKhDSg2s0txQcCclSgZAeXKO5peBISJYKhPTgGs0tBUdCslQgpAfXaG4pOBKSpQIhPbhGc0vB\nkZAsFQjpwTWaWwqOhGSpQEgPrtHcUnAkJEsFQnpwjeaWgiMhWSoQ0oNrNLcUHAnJUoGQHlyj\nuaXgSEiWCoT04BrNLQVHQrJUIKQH12huKTgSkqUCIT24RnNLwZGQLBUI6cE1mlsKjoRkqUBI\nD67R3FJwJCRLBUJ6cI3mloIjIVkqENKDazS3FBwJyVLheiEVV33v7dEUah9VY7fFAxQIaRHN\n7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fF\nAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEU\nah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQI\naRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9V\nY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN\n7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fF\nAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEU\nah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQI\naRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9V\nY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN\n7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fF\nAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEU\nah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQI\naRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9V\nY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN\n7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fF\nAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEU\nah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQI\naRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9V\nY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN\n7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fF\nAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEUah9VY7fFAxQIaRHN7dEU\nah9VY7fFAxQIqZVoCvnjO7Db4gEKhNRKNIX88R3YbfEABUJqJZpC/vgO7LZ4gAIhtRJNIX98\nB3ZbPECBkFqJppA/vgO7LR6gQEitRFPIH9+B3RYPUCCkVqIp5I/vwG6LBygQUivRFPLHd2C3\nxQMUCKmVaAr54zuw2+IBCoTUSjSF/PEd2G3xAAVCaiWaQv74Duy2eIACIbUSTSF/fAd2WzxA\ngZBaiaaQP74Duy0eoEBIrURTyB/fgd0WD1AgpFaiKeSP78BuiwcoEFIr0RTyx3dgt8UDFAip\nlWgK+eM7sNviAQqE1Eo0hfzxHdht8QAFQmolmkL++A7stniAAiG1Ek0hf3wHdls8QIGQWomm\nkD++A7stHqBASK1EU8gf34HdFg9QIKRWoinkj+/AbosHKBBSK9EU8sd3YLfFAxQIqZVoCvnj\nO7Db4gEKhNRKNIX88R3YbfEABUJqJZpC/vgO7LZ4gMLzIemJtm7v8RaKI3h+trAdfiI1EE0h\nf3wHdj8OBigQUivRFPLHd2C3xQMUCKmVaAr54zuw2+IBCoTUSjSF/PEd2G3xAAVCaiWaQv74\nDuy2eIACIbUSTSF/fAd2WzxAgZBaiaaQP74Duy0eoEBIrURTyB/fgd0WD1AgpFaiKeSP78Bu\niwcoEFIr0RTyx3dgt8UDFAiplWgK+eM7sNviAQqE1Eo0hfzxHdht8QAFQmolmkL++A7stniA\nAiG1Ek0hf3wHdls8QIGQWommkD++A7stHqBASK1EU8gf34HdFg9QIKRWoinkj+/AbosHKBBS\nK9EU8sd3YLfFAxQIqZVoCvnjO7Db4gEKhNRKNIX88R3YbfEABUJqJZpC/vgO7LZ4gAIhtRJN\nIX98B3ZbPECBkFqJppA/vgO7LR6gQEitRFPIH9+B3RYPUCCkVqIp5I/vwG6LBygQUivRFPLH\nd2C3xQMUCKmVaAr54zuw2+IBCoTUSjSF/PEd2G3xAAVCaiWaQv74Duy2eIACIbUSTSF/fAd2\nWzxAgZBaiaaQP74Duy0eoEBIrURTyB/fgd0WD1AgpFaiKeSP78BuiwcoEFIr0RTyx3dgt8UD\nFAiplWgK+eM7sNviAQqE1Eo0hfzxHdht8QAFQmolmkL++A7stniAAiG1Ek0hf3wHdls8QIGQ\nWommkD++A7stHqBASK1EU8gf34HdFg9QIKRWoinkj+/AbosHKBBSK9EU8sd3YLfFAxQIqZVo\nCvnjO7Db4gEKhNRKNIX88R3YbfEABUJqJZpC/vgO7LZ4gAIhtRJNIX98B3ZbPECBkFqJppA/\nvgO7LR6gQEitRFPIH9+B3RYPUCCkVqIp5I/vwG6LBygQUivRFPLHd2C3xQMUCKmVaAr54zuw\n2+IBCoTUSjSF/PEd2G3xAAVCaiWaQv74Duy2eIACIbUSTSF/fAd2WzxAgZBaiaaQP74Duy0e\noEBIrURTyB/fgd0WD1AgpFaiKeSP78BuiwcoEFIr0RTyx3dgt8UDFAiplWgK+eM7sNviAQqE\n1Eo0hfzxHdht8QAFQmolmkL++A7stniAAiG1Ek0hf3wHdls8QIGQWommkD++A7stHqBASK1E\nU8gf34HdFg9QIKRWoinkj+/AbosHKBBSK9EU8sd3YLfFAxQIqZVoCvnjO7Db4gEKhNRKNIX8\n8R3YbfEABUJqJZpC/vgO7LZ4gAIhtRJNIX98B3ZbPECBkFqJppA/vgO7LR6gQEitRFPIH9+B\n3RYPUCCkVqIp5I/vwG6LBygQUivRFPLHd2C3xQMUCKmVaAr54zuw2+IBCoTUSjSF/PEd2G3x\nAAVCaiWaQv74Duy2eIACIbUSTSF/fAd2WzxAgZBaiaaQP74Duy0eoEBIrURTyB/fgd0WD1Ag\npFaiKeSP78BuiwcoEFIr0RTyx3dgt8UDFAiplWgK+eM7sNviAQqE1Eo0hfzxHdht8QAFQmol\nmkL++A7stniAAiG1Ek0hf3wHdls8QIGQWommkD++A7stHqBASK1EU8gf34HdFg9QIKRWoink\nj+/AbosHKBBSK9EU8sd3YLfFAxQIqZVoCvnjO7Db4gEKhNRKNIX88R3YbfEABUJqJZpC/vgO\n7LZ4gAIhtRJNIX98B3ZbPECBkFqJppA/vgO7LR6gQEitRFPIH9+B3RYPUCCkVqIp5I/vwG6L\nBygQUivRFPLHd2C3xQMUCKmVaAr54zuw2+IBCoTUSjSF/PEd2G3xAAVCaiWaQv74Duy2eIAC\nIbUSTSF/fAd2WzxAgZBaiaaQP74Duy0eoEBIrURTyB/fgd0WD1AgpFaiKeSP78BuiwcoEFIr\n0RTyx3dgt8UDFAiplWgK+eM7sNviAQqE1Eo0hfzxHdht8QAFQnJCN+tT7LZ4gAIhOaGb9Sl2\nWzxAgZCc0M36FLstHqBASE7oZn2K3RYPUCAkJ3SzPsVuiwcoEJITulmfYrfFAxQIyQndrE+x\n2+IBCoTkhG7Wp9ht8QAFQnJCN+tT7LZ4gAIhOaGb9Sl2WzxAgZCc0M36FLstHqBASE7oZn2K\n3RYPUCAkJ3SzPsVuiwcoEJITulmfYrfFAxQIyQndrE+x2+IBCoTkhG7Wp9ht8QAFQnJCN+tT\n7LZ4gAIhOaGb9Sl2WzxAgZCc0M36FLstHqBASE7oZn2K3RYPUCAkJ3SzPsVuiwcoEJITulmf\nYrfFAxQIyQndrE+x2+IBCrWQ3r//8SuE1IFu1qfYbfEAhVJI3/v59x8I6cXoZn2K3RYPUKiE\n9P6FkHrRzfoUuy0eoFD6iURIzehmfYrdFg9QeCqkv3yQ+MuKRGu097gD+lmDHH4izUc361Ps\nfhwMUCAkJ3SzPsVuiwcoEJITulmfYrfFAxQIyQndrE+x2+IBCoTkhG7Wp9ht8QCFhZD4nQ1t\n6GZ9it0WD1CohXQPvXlxjUTHHdDN+hS7LR6gQEhO6GZ9it0WD1AgJCd0sz7FbosHKBCSE7pZ\nn2K3xQMUCMkJ3axPsdviAQqE5IRu1qfYbfEABUJyQjfrU+y2eIACITmhm/Updls8QIGQnNDN\n+hS7LR6gQEhO6GZ9it0WD1AgJCd0sz7FbosHKBCSE7pZn2K3xQMUCMkJ3axPsdviAQqE5IRu\n1qfYbfEABUJyQjfrU+y2eIACITmhm/Updls8QIGQnNDN+hS7LR6gQEhO6GZ9it0WD1AgJCd0\nsz7FbosHKBCSE7pZn2K3xQMUCMkJ3axPsdviAQqE5IRu1qfYbfEABUJyQjfrU+y2eIACITmh\nm/Updls8QIGQnNDN+hS7LR6gQEhO6GZ9it0WD1AgJCd0sz7FbosHKBCSE7pZn2K3xQMUCMkJ\n3axPsdviAQqE5IRu1qfYbfEABUJyQjfrU+y2eIACITmhm/Updls8QIGQnNDN+hS7LR6gQEhO\n6GZ9it0WD1AgJCd0sz7FbosHKBCSE7pZn2K3xQMUCMkJ3axPsdviAQqE5IRu1qfYbfEABUJy\nQjfrU+y2eIACITmhm/Updls8QIGQnNDN+hS7LR6gQEhO6GZ9it0WD1AgJCd0sz7FbosHKBCS\nE7pZn2K3xQMUCMkJ3axPsdviAQqE5IRu1qfYbfEABUJyQjfrU+y2eICCU0iarRPd3oJu1qmH\naMROgZCc0M069RCN2CkQkhO6WaceohE7BUJyQjfr1EM0YqdASE7oZp16iEbsFAjJCd2sUw/R\niJ0CITmhm3XqIRqxUyAkJ3SzTj1EI3YKhOSEbtaph2jEToGQnNDNOvUQjdgpEJITulmnHqIR\nOwVCckI369RDNGKnQEhO6GadeohG7BQIyQndrFMP0YidAiE5oZt16iEasVMgJCd0s049RCN2\nCoTkhG7WqYdoxE6BkJzQzTr1EI3YKRCSE7pZpx6iETsFQnJCN+vUQzRip0BITuhmnXqIRuwU\nCMkJ3axTD9GInQIhOaGbdeohGrFTICQndLNOPUQjdgqE5IRu1qmHaMROgZCc0M069RCN2CkQ\nkhO6WaceohE7BUJyQjfr1EM0YqdASE7oZp16iEbsFAjJCd2sUw/RiJ0CITmhm3XqIRqxUyAk\nJ3SzTj1EI3YKhOSEbtaph2jEToGQnNDNOvUQjdgpEJITulmnHqIROwVCckI369RDNGKnQEhO\n6GadeohG7BQIyQndrFMP0YidAiE5oZt16iEasVMgJCd0s049RCN2CoTkhG7WqYdoxE6BkJzQ\nzTr1EI3YKRCSE7pZpx6iETsFQnJCN+vUQzRip0BITuhmnXqIRuwUCMkJ3axTD9GInQIhOaGb\ndeohGrFTICQndLNOPUQjdgqE5IRu1qmHaMROgZCc0M069RCN2CkQkhO6WaceohE7BUJyQjfr\n1EM0YqdASE7oZp16iEbsFAjJCd2sUw/RiJ0CITmhm3XqIRqxUyAkJ3SzTj1EI3YKhOSEbtap\nh2jEToGQnNDNOvUQjdgpEJITulmnHqIROwVCckI369RDNGKnQEhO6GadeohG7BQIyQndrFMP\n0YidAiE5oZt16iEasVMgJCd0s049RCN2CoTkhG7WqYdoxE6BkJzQzTr1EI3YKRCSE7pZpx6i\nETsFQnJCN+vUQzRip0BITuhmnXqIRuwUCMkJ3axTD9GInQIhOaGbdeohGrFTICQndLNOPUQj\ndgqE5IRu1qmHaMROgZCc0M069RCN2CkQkhO6WaceohE7BUJyQjfr1EM0YqdASE7oZp16iEbs\nFAjJCd2sUw/RiJ0CITmhm3XqIRqxUyAkJ3SzTj1EI3YKhOSEbtaph2jEToGQnNDNOvUQjdgp\nPB9SgmgviseL7L29hb3vIbr96mz8iRTtRfAfAaKtK8o4UPrPyPJ7fHqIRuwUCMmJ0tOW3+PT\nQzRip0BITpSetvwenx6iETsFQnKi9LTl9/j0EI3YKRCSE6WnLb/Hp4doxE6BkJwoPW35PT49\nRCN2CoTkROlpy+/x6SEasVMgJCdKT1t+j08P0YidAiE5UXra8nt8eohG7BQIyYnS05bf49ND\nNGKnQEhOlJ62/B6fHqIROwVCcqL0tOX3+PQQjdgpEJITpactv8enh2jEToGQnCg9bfk9Pj1E\nI3YKhORE6WnL7/HpIRqxUyAkJ0pPW36PTw/RiJ0CITlRetrye3x6iEbsFAjJidLTlt/j00M0\nYqdASE6Unrb8Hp8eohE7BUJyovS05ff49BCN2CkQkhOlpy2/x6eHaMROgZCcKD1t+T0+PUQj\ndgqE5ETpacvv8ekhGrFTICQnSk9bfo9PD9GInQIhOVF62vJ7fHqIRuwUCMmJ0tOW3+PTQzRi\np0BIThQHvHrcbosHKBCSE8UBrx632+IBCoTkRHHAq8fttniAAiE5URzw6nG7LR6gQEhOFAe8\netxuiwcoEJITxQGvHrfb4gEKhOREccCrx+22eIACITlRHPDqcbstHqBASE4UB7x63G6LBygQ\nkhPFAa8et9viAQqE5ERxwKvH7bZ4gAIhOVEc8Opxuy0eoEBIThQHvHrcbosHKBCSE8UBrx63\n2+IBCoTkRHHAq8fttniAAiE5URzw6nG7LR6gQEhOFAe8etxuiwcoEJITxQGvHrfb4gEKhORE\nccCrx+22eIACITlRHPDqcbstHqBASE4UB7x63G6LBygQkhPFAa8et9viAQqE5ERxwKvH7bZ4\ngAIhOVEc8Opxuy0eoEBIThQHvHrcbosHKBCSE8UBrx632+IBCoTkRHHAq8fttniAAiE5UR3w\n4u1fUrcnHn4dQrpHci8I6RHVAS/eTkh1BUJyojrgxdsJqa5ASE5UB7x4OyHVFQjJieqAF28n\npLoCITlRHfDi7YRUVyAkJ6oDXrydkOoKhOREdcCLtxNSXYGQnKgOePF2QqorEJIT1QEv3k5I\ndQVCcqI64MXbCamuQEhOVAe8eDsh1RUIyYnqgBdvJ6S6AiE5UR3w4u2EVFcgJCeqA168nZDq\nCoTkRHXAi7cTUl2BkJyoDnjxdkKqKxCSE9UBL95OSHUFQnKiOuDF2wmprkBITlQHvHg7IdUV\nCMmJ6oAXbyekugIhOVEd8OLthFRXICQnqgNevJ2Q6gqE5ER1wIu3E1JdgZCcqA548XZCqisQ\nkhPVAS/eTkh1BUJyojrgxdsJqa5ASE5UBzxJJrEnd3ahEUI6fznR7S1UBzxJJrEnd3ahEUI6\nfznR7S1UBzxJJrEnd3ahEUI6fznR7S1UBzxJJrEnd3ahEUI6fznR7S1UBzxJJrEnd3ahEUI6\nfznR7S1UBzxJJrEnd3ahEUI6fznR7S1UBzxJJrEnd3ahEUI6fznR7S1UBzxJJrEnd3ahEUI6\nfznR7S1UBzxJJrEnd3ahEUI6fznR7S1UBzxJJrEnd3ahEUI6fznR7S1UBzxJJrEnd3ahEUI6\nfznR7S1UBzxJJrEnd3ahEUI6fznR7S1UBzxJJrEnd3ahEUI6fznR7S1UBzxJJrEnd3ahEUI6\nfznR7S1UBzxJJrEnd3ahEUI6fznR7S1UBzxJJrEnd3ahEUI6fznR7S1UBzxJJrEnd3ahEUI6\nfznR7S1UBzxJJrEnd3ahEUI6fznR7S1UBzxJJrEnd3ahEUI6fznR7S1UBzxJJrEnd3ahEUI6\nfznR7S1UB5u1G78AAATnSURBVDxJJrEnd3ahEUI6fznR7S1UBzxJJrEnd3ahEUI6fznR7S1U\nBzxJJrEnd3ahEUI6fznR7S1UBzxJJrEnd3ahEUI6fznR7S1UBzxJJrEnd3ahEUI6fznR7S1U\nBzxJJrEnd3ahEUI6fznR7S1UBzxJJrEnd3ahEUI6fznR7S1UB+wgc/8SVUga98SHCMmJ6oAd\nZO5fQkgFPUKqUh2wg8z9SwipoEdIVaoDdpC5fwkhFfQIqUp1wA4y9y8hpIIeIVWpDthB5v4l\nhFTQI6Qq1QE7yNy/hJAKeoRUpTpgB5n7lxBSQY+QqlQH7CBz/xJCKugRUpXqgB1k7l9CSAU9\nQqpSHbCDzP1LCKmgR0hVqgN2kLl/CSEV9AipSnXADjL3LyGkgh4hVakO2EHm/iWEVNAjpCrV\nATvI3L+EkAp6hFSlOmAHmfuXEFJBj5CqVAfsIHP/EkIq6BFSleqAHWTuX0JIBT1CqlIdsIPM\n/UsIqaBHSFWqA3aQuX8JIRX0CKlKdcAOMvcvIaSCHiFVqQ7YQeb+JYRU0COkKtUBO8jcv4SQ\nCnqEVKU6YAeZ+5dcIqT3rxBSB9UBO8jcv+QKIb3/+AMhvZjqgB1k7l9CSAU9QqpSHbCDzP1L\nCKmgR0hVqgN2kLl/ybVC+ssH2b8M4BJs/ImUxO7/AwEKKPw4TUgooPC8AiGhgIJAgZBQQEGg\nQEgooCBQWAip/jsbtphvAQUU1hRWQrqly3wLKKCwpkBIKKAgUCAkFFAQKBASCigIFAgJBRQE\nCoSEAgoCBUJCAQWBAiGhgIJAgZBQQEGgQEgooCBQICQUUBAoEBIKKAgUCAkFFAQKhIQCCgIF\nQkIBBYECIaGAgkCBkFBAQaBASCigIFAgJBRQECgQEgooCBQICQUUBAqEhAIKAgVCQgEFgQIh\noYCCQIGQUEBBoEBIKKAgUCAkFFAQKBASCigIFJ4PSQf/XzQ/YAofGE+BkGbAFD4wngIhzYAp\nfGA8BUKaAVP4wHgK/SEB/AkgJAABhAQggJAABBASgABCAhDQG9L79z9+pVWjlePvnin857/a\n0RrSH7P78YcrcvzdMwXvKXSG9P6FkP4EK6TAfwoD/tHOd3gyrFdIhvUUCGkC1iskw3oKhDSA\n9y9M4fsvMvhOgZAG4L1CMviJtAwhfcAUvkNIy7BCX378H9P+/acXhF+1ew5C+vF3fu0pENJz\n8Dsbvv3Nf//v2VeeAr+zAQC+EBKABEICEEBIAAIICUAAIQEIICQAAYQEIICQAAQQkit/9/wd\nAH9WCMmVN55uEryGK4Q0Cl7Djd9+fnv/5aOjt7ff3376+Hf++BfohJDM+P39I6Gfv4X05Ze3\nf379t/7x9r/dVkBIZvzy9rcv//r4x7qP//n17a9f/62f3/7VbQWEZMZPb79//5Nv/x3p57df\nv/4Zv37XDyGZ8ePXGL79ya9f/yHvn19/RkE3hGTGbUhff0D99v2/KEEvhGTG7T/aff1x9Ms7\nbzgAHsGMX95++foPdG8/fjT99PbtFxygGUIy47dvv/z900dI336N4Z9vb//odgJC8uPXv769\n/e23L1/+/scv1r29/dZsBF8IyZ5/8dsaRkBI5vyVX7MbASFZ88YvNQyBkKx5f/u5WwG+QUgA\nAggJQAAhAQggJAABhAQggJAABBASgABCAhDw/5uh5OTC2zeRAAAAAElFTkSuQmCC",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# x축에 cty\n",
    "qplot(data = mpg, x = cty)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 37,
   "id": "88f6ff61",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAAZlBMVEUAAAAAsPYAujgAvNgA\nv30AwK8zMzNNTU1hnP9oaGhrsQB8fHyMjIyampqjpQCnp6eysrK5g/+9vb3Hx8fJmADQ0NDZ\n2dnh4eHlhwDna/Pp6enr6+vw8PDy8vL4dm39YdH/Z6T///+2GX8wAAAACXBIWXMAABJ0AAAS\ndAHeZh94AAAgAElEQVR4nO3di3rayJqFYfWOu4kPcZKOc/KkA9z/TY4PgJHMErgQq2qR73tm\n7NjBFr+63g2Sg9wtiejoutp3gOgcAhLRBAGJaIKARDRBQCKaICARTRCQiCYISEQTVArp/ypU\nZaNTFj9AlQkmXe8nC0jG4gcAkgxIxuIHAJIMSMbiBwCSDEjG4gcAkgxIxuIHAJIMSMbiBwCS\nDEjG4gcAkgxIxuIHAJIMSMbiBwCSDEjG4gcAkgxIxuIHAJIMSMbiBwCSjH/9TTRBPCIZix+A\nRyQZkIzFDwAkGZCMxQ8AJBmQjMUPACQZkIzFDwAkGZCMxQ8AJBmQjMUPACQZkIzFDwAkGZCM\nxQ8AJBmQjMUPACQZkIzFDwAkGZCMxQ8AJBmQjMUPACQZkIzFDwAkGZCMxQ8AJBmQjMUPACQZ\nkIzFDwAkGZCMxQ8AJBmQfC0Wi9p34diApAKSrcUiXxKQVEBytVicgSQgqYDkCkil24wISK6A\nVLrNiIBk6wwcAUkGJF/5joAkA5Kx+AGAJAOSsfgBgCQDkrH4AYAkA5Kx+AGAJAOSsfgBgCQD\nkrH4AYAkA5Kx+AGAJAOSsfgBgCQDkrH4AYAkA5Kx+AGAJAOSsfgBgCQDkrH4AYAkA5Kx+AGA\nJAOSsfgBgCQDkrH4AYAkA5Kx+AGAJAOSsfgBgCQDkrH4AYAkA5Kx+AGAJAOSsfgBgCQDkrH4\nAYAkA5Kx+AGAJAOSsfgBgCQDkrH4AYAkA5Kx+AGAJAOSsfgBgCQDkrH4AYAkA5Kx+AGAJAOS\nsfgBgCQDkrH4AYAkA5Kx+AGAJAOSsfgBgCQDkrH4AYAkA5Kx+AGAJAOSsfgBgCQDkrH4AYAk\nA5Kx+AGAJAOSsfgBgCQDkrH4AYAkA5Kx+AGAJAOSsfgBgCQDkrH4AYAkA5Kx+AGAJAOSsfgB\ngCQDkrH4AYAkA5Kx+AGAJAOSsfgBgCQDkrH4AYAkA5Kx+AGAJAOSsfgBgCQDkrH4AYAkA5Kx\n+AGAJAOSsfgBgCQDkrH4AYAkA5Kx+AGAJAOSsfgBgCQDkrH4AYAkA5Kx+AGAJAOSsfgBgCQD\nkq/FYlH7LhwbkFRAsrVY5EsCkgpIrhaLM5AEJBWQXAGpdJsRAckVkEq3GRGQbJ2BIyDJgOQr\n3xGQZEAyFj8AkGRAMhY/AJBkQDIWPwCQZEAyFj8AkGRAMhY/AJBkQDIWPwCQZEAyFj8AkGRA\nMhY/AJBkQDIWPwCQZEAyFj8AkGRAMhY/AJBkQDIWPwCQZEAyFj8AkGRAMhY/AJBkB0GaPb15\n6OVTFXZo/jqMHwBIskMgPQF6xrT5XIUdmr8O4wcAkuwASLMlkKYpfgAgyfZDmi2BNFHxAwBJ\nVgDpn8dOe6+IwtoLabbkEWmq4gfgEUm2D9LGD5COL34AIMn2QnoOSFMUPwCQZAf/HAlIxxc/\nAJBkQDIWPwCQZPzLBmPxAwBJxr+1MxY/AJBkQDIWPwCQZEAyFj8AkGRAMhY/AJBkQDIWPwCQ\nZEAyFj8AkGRAMhY/AJBkQDIWPwCQZEAyFj8AkGRAMhY/AJBkQDIWPwCQZEAyFj8AkGRAMhY/\nAJBkQDIWPwCQZEAyFj8AkGRAMhY/AJBkQDIWPwCQZEAyFj8AkGRAMhY/AJBkQDIWPwCQZEAy\nFj8AkGRAMhY/AJBkQDIWPwCQZEAyFj8AkGRAMhY/AJBkQDIWPwCQZEAyFj8AkGRAMhY/AJBk\nQDIWPwCQZEAyFj8AkGRAMhY/AJBkQDIWPwCQZEAyFj9ANqT766673PH5f2c7PvnWgGQsfoBs\nSLPuoR2f3/nJtwYkY/EDZENSYICUVvwA7UF6QHDT3SzvL7ubXw8ffrvputnHp8/f36z/tLpd\n9/yAtLnJcnWL509vbvbw/99n18vlrw9d9+HXcvMxkNopfoAWIT246L5cPrz5sFx+fcLSPemY\nbf7Ug/Ryk19Pt7jZAen68Xs9/e3lcvMxkNopfoAWIX1Yfnl08eXRwGX3Zbn8vtLwa/lvN+sL\nWW7f5OPDl37bfH77Zo+PV58e337s/l1/DKSGih+gRUj3j29+rSXcf/10/azhfpvP1p82N7l8\n/Kr13/Vu9vill88f36w/3heQjMUP0CKk3pvrrnv9TK3/p8FNljsgPf/p1e3G78jbDT1VYYfm\nr8P4AVqH9KG7/Pfr/Sik4U2WQMorfoDWIT394dcOPi9yXm6y46ndFrDLrreJvQHJWPwA7UP6\ntvx13Yc0675sf+7lJh+7j+sTE8tXN3v62+WX7hpIDRY/QOuQPnavj5GePvdp87mXm9yvT3B3\njyf3BjdbnRzvvgOpweIHaB3SwxFQd/2tD2n5cdZ92jr42dxk+f3hAejD/fL5LPnwZsv7pxsu\ngdRg8QO0B6mZgGQsfgAgyYBkLH4AIMmAZCx+ACDJgGQsfgAgyYBkLH4AIMmAZCx+ACDJgGQs\nfgAgyYBkLH4AIMmAZCx+ACDJgGQsfgAgyYDkaz6f174Lx9YapP9GKlzZhQHJ1nyeLwlIKiC5\nms/PQBKQVEByBaTSbY4EpKI9WmOjkwWk0m2OBKSiPVpjo9N1Bo6AJAOSr3xHQJIByVj8AECS\nAclY/ABAkgHJWPwAQJIByVj8AGcFqStf/bu/W1EVdmj+OowfoG1Iv3//fiOkCQOSsfgBmob0\n+3df0qmW/rTfrcIOzV+H8QO0DOn374Gk3jJ//u2x3XrJP37IU7vY4gdIhbQGtP2+A1Js8QOk\nQlov9V2gJgpIxuIHaBnS+DHS6tL6qyUPpOziB2ga0thZu9UBEpCe92iNjU5Z/ABtQxo0XOVA\n2uzRGhudsvgBkiGtn9oN308UkIzFD5AKaX26e/geSJnFDxAL6fQBydfV1VXtu3BsQFIBydbV\nVb4kIKmA5Orq6gwkAUkFJFdAKt3mSEAq2qM1NjpZQCrd5khAKtqjNTY6XWfgCEgyIPnKdwQk\nGZCMxQ8AJBmQjMUPACQZkIzFDwAkGZCMxQ8AJBmQjMUPACQZkIzFDwAkGZCMxQ8AJBmQjMUP\nACQZkIzFDwAkGZCMxQ8AJBmQjMUPkA7pkNVeKAJIxuIHaBvSjx8/poX0FhxAMhY/QNOQfvzo\nSypc7UBqv/gBWob048dAUm+Zry+i//x++8Krj598vjbXy4X2V3+9uvFBAclY/ACpkDYXhOxf\ncXUDafs3VRRePxJIvvit5mXbHOktkJYDIesLRW79thcgJTSf50tqGNLYMdIrSN3Lc7tdkLrt\np36HBSRX8/kZSGoZ0shZu52PSM9/3n5W13tEeiOOCS/aSqOtINW+G+fVfyNt3axhSBX+l4lH\npPo1/Yi0B9KO30ax6w3HSK13Bo5SIe36HbLrU3YbBK9Ofy85/d1m+Y5iIZ0+IBmLHwBIMiAZ\nix8ASDIgGYsfAEgyIBmLHwBIMiAZix8ASDIgGYsfAEgyIBmLHwBIMiAZix8ASDIgGYsfAEgy\nIBmLHwBIMiAZix8ASDIgGYsfAEgyIBmLHwBIMiAZix8ASDIgGYsfAEgyIPnit5qXbXMkIBXt\n0Robna6rq3xJQFIBydXV1RlISoY0XOrTXvcHSK6AVLrNkXpy7u7ugHTQHq2x0ckCUuk2Rxo4\n6knat9SBFNoZOGoZ0t3dQFJvmXdd7+pBWx/3rypUHJB85TtKhfRsZXDN7+71548ISMbiB0iG\ntOsCka8vGFkckIzFD9AypLFjpL2QuqOf2wHJWPwATUMaOWt30CPScQHJWPwAbUMaNFzlQNrs\n0RobnbL4AZIhcbLhZY/W2OiUxQ+QConT3/09WmOjUxY/QCykUxCY5rtU2KH56zB+gHODNMFT\nut63KqjCDs1fh/EDnBukCZ7Sbb5T4ddV2KH56zB+gLODNF1AMhY/AJBkQDIWPwCQZEAyFj8A\nkGRAMhY/AJBkQDIWPwCQZEAyFj8AkGRA8jWfz2vfhWMDkgpItubzfElAUgHJ1Xx+BpKApAKS\nKyCVbnMkIBXt0RobnSwglW5zJCAV7dEaG52uM3AEJBmQfOU7ApIMSMbiB4iFtPPFEpNeahVI\nxuIHaBvS7e2tgLR7lQMptfgBmoZ0e9uXtHeVAym1+AFahnR7O5C0tcifXge7ejVst1x9AKTY\n4gcIhfR8oaDVH7r1B1O9yPxlEyVV2KH56zB+gLOAtFxuv5kqIBmLH6BlSPuOkYD0skdrbHTK\n4gdoGtKes3ZAetmjNTY6ZfEDtA1p0GCVA+llj9bY6JTFD3BWkDjZEFv8AMmQXk5/rz7gESm2\n+AFSIRkCkrH4AYAkA5Kx+AGAJAOSsfgBgCQDkq/379/XvgvHBiQVkGy9f58vCUgqILl6//4M\nJAFJBSRXQCrd5khAKtqjNTY6WUAq3eZIQCraozU2Ol1n4AhIMiD5yncEJBmQjMUPACQZkIzF\nDwAkGZCMxQ8AJBmQjMUPACQZkIzFDwAkGZCMxQ8AJBmQjMUPACQZkIzFD5AKaXSVT/OKcyAZ\nix+gbUhXV1dAOmiP1tjolMUP0DSkq6u+pENXOZDiih+gZUhXVwNJvVX+fAWh7Qvprz9eXZrr\n2ItzAclY/ACxkFbX4RpeSH99ebsJrhcJJGPxA8RCWr1R74+icNxXV9ih+eswfoCWIe09RhqF\ndPRzOyAZix+gaUj7ztqNQXq5BGtpQPLFbzUv2+ZI/400XOUjkDhGSmo+z5d0hpC6rfdHBCRX\n8/kZSAqH1LuQ/urj3vvygOQKSKXbHOlASIaA5ApIpdscCUhFe7TGRqfrDBwBSQYkX/mOgCQD\nkrH4AYAkA5Kx+AGAJAOSsfgBgCQDkrH4AYAkA5Kx+AGAJAOSsfgBgCQDkrH4AYAkA5Kx+AGA\nJAOSsfgBgCQDkrH4AYAkA5Kx+AGAJAOSsfgBgCQDkrH4AYAkA5Kx+AGAJNsPafbQ9vvnKuzQ\n/HUYP0AqpEMeLrqdfzy4vV8zW72ZbT54qsIOjV+HvB6pbJsj9eT873//mwZSSUCyxStkC7c5\n0sBRT9JbVvmBtzn6y4F0fFyzoXSbIw0dbUvqrfJuc4nvZbd1Na7d19I/yVO7p3qQ/nmsYFN/\neCtIte/GeXUopNWvoHj+YO+19E8E6fkkA49IR8YjUuk2Rzr4EelFyAHX0jc9Ij1VYYeGQ+IY\nqXSbI73lGOkQSN3WU8C3BSRf+Y6ahrTvrN3L07t919Ln9HfjxQ/QNqRBw1W+H9JJj5GANF3x\nA5wRpOHJhW7w/q3xLxuMxQ8QD2l94u75dLe6lv7pjpFeV2GH5q/D+AFSIR2/3vcGJGPxAwBJ\nBiRj8QOkQzryl4mNBSRj8QOkQzphQDIWPwCQZEAyFj8AkGRAMhY/AJBkQDIWPwCQZEAyFj8A\nkGRAMhY/AJBkQDIWPwCQZEAyFj8AkGRA8rVYLGrfhWMDkgpIthaLfElAUgHJ1WJxBpKApAKS\nKyCVbnMkIBXt0RobnSwglW5zJCAV7dEaG52uM3AEJBmQfOU7SoV0upchHb2JCjs0HlL+AG1D\nuri44BHpoD1aY6NTFj9A05AuLvqSCld2YQNIl5++HfZ1FXZo/jqMH6BlSBcXA0mDVd69XDB/\ndWGuSV94PvheD9989uHrAV9XYYfmr8P4AYIhvboIZOmvnRANvtWvLzePYq+/3O/5ugo7NH8d\nxg9wTpB2rP5j2vGtvn6cPVi6HH9cqrBD89dh/AAtQxo7Ruqen9F12+/F6i9t17e6//i0seux\nr6uwQ/PXYfwATUMaOWu3dfXU3vuTQvp+8/Rw9O26uxn5ugo7NH8dxg/QNqRB/VXuhvT1evOs\nbvSkRoUdmr8O4wdIh+Q72XDZdTff1381e3Xrlyrs0Px1GD9AMCT36e+P33ffbliFHZq/DuMH\nSIY0vvCP7tXPkQ76KRKQioofAEiywfd7+inSzZdfe7+uwg7NX4fxA2RC2vkU7sSQlsvv/948\n/UR2z9dV2KH56zB+gExIlnbC/Lj/OKzCDs1fh/EDAEn2Gsy3x3/YcPlpz9dV2KG/f/+usNUJ\n4/VIZdscqVlIT/88qM1jpN+/wyXxCtnCbY7ULKSH53Qf9ytaVoD0+3e4JK7ZULrNkZqF9O35\nEWnfv/0G0tsDUuk2R2oW0nJ9jPRxz9fZdyeQWghIql1n5359avGsXbgjjpGKtzlSw5C+f7ru\nDvj3DRV2aLgjztqVbnOkZiF9mB2iaMnPkYqKHwBIMv6tnbH4AYAkG/4c6dCvq7BD89dh/ABA\nkg2PkZ6u19C1eLLhDNZh/ABAkg3AfOw6IJ2s+AGAJBuAmXX7/pHdqgo7NH8dxg8AJNmrkw0H\nfl2FHZq/DuMHSIWkVvXprtnwsTvoX9oBqaj4AdqG9PfffzcDaXlzvf/f2T1WYYfmr8P4AZqG\n9PfffUkjq3zf5wva/lbddnu+rsIOzV+H8QO0DOnvvweSBqt8ePWgx3fd+q/X12Bdg+h6twdS\nY8UPEAxpeD27Z1vrhb/c3GANqXf7N0J6SxV2aP46jB8gGNL6/a6L6Hfbb7odtzsgIBmLH6Bl\nSHuPkfoXz98Lafti+wcEJGPxAzQNac9Zu12PNLsgrZ7WDa8Vvi8gGYsfoG1Ig/qr/NW1v7dW\n/x8G6efPnxW2OmHz+bz2XTi2bEjDp3bdTkivn+kdUg6knz/DJc3n+ZJyIa1Pd3eDj18QbM5V\n9z48O0g/f4ZLms/PQFIoJENAcgWk0m2OBKQ3B6QWApIqBhLHSC0EJFUOJM7aNRCQVEGQ8n8M\nEz8AkGRAMhY/AJBkQDIWPwCQZEAyFj8AkGRAMhY/AJBkQDIWPwCQZEAyFj8AkGRAMhY/AJBk\nQDIWPwCQZEAyFj8AkGRAMhY/AJBkQDIWPwCQZEAyFj9AKqTxl4yXGpjkm1TYofnrMH6AtiG9\ne/dOQzqBgUm+SYUdmr8O4wdoGtK7d31JB6/yPw1S/OuR8n+r+e3trX+jY8tw6GhbUn+VP/3f\ny2W/t99v/1VxOZDiXyG7WKRLur2tIWlsGb4NkrhG5NZflRcDKf6aDYtFuqTb2yqSxpbhGx+R\nlsvt8w7d678qD0iugFTY2DI8/BgJSKuAVL3GIY2ftQPSunBHHCOVNrYM/xupv8qBtCncEWft\nChtbhuWQuj8XUv6PYeIHaPrnSAdD2nn6+wgL600UVWGH5q/D+AFSIRkCkrH4AYAkA5Kx+AGA\nJAOSsfgBgCQDkrH4AYAkA5Kx+AGAJAOSsfgBgCQDkrH4AYAkA5Kx+AGAJAOSsfgBgCQDkrH4\nAYAkA5Kx+AGAJAOSsfgBgCQDkrH4AYAkC4IU/3qkz58/174LR5b6eiRDOZDiXyH7+XO6pNhX\nyBqKgRR/zYbPn9MltX7NhkhI9laQat+N8laQat+NI1pBqn03tsuH5P6fJR6R6scj0kgxkDhG\nql/jx0h//fUXkA4o3BFn7QobW4YDRz1JhSu7sCBI+T+GiR+g5Z8j/fXXQFJvlT9dL2h48aDV\n5zbX/e5dTf+NMoBkLH6AWEjd5s2WmT6gl08CqfXiB4iFtP1m+H656y/fDANIxuIHaBnS2DFS\nH1L3/HQOSLHFD9A0pJGzdq8fkZZjkB6PlN4KAkjG4gdoG9Kg4SoH0maP1tjolMUPcD6Quh2f\n7IAUUvwAZwGpd8Z7+4L6Ww9Xb2cBJGPxA6RCenNAarr4AYA04Vc8V2GH5q/D+AH+EEhdgQog\nGYsf4A+BVBKQjMUPACQZkIzFDwAkGZCMxQ8AJFkQpPjXI/FbzYsaW4ZAenvxr5BdLNIlNf4K\nWSAdUvw1GxaLdElcs2EkILkCUmFjyxBIbw5I1QPSSDGQOEaqH8dIuhxInLWrH2ftZEGQ8n8M\nEz8AP0eSAclY/ABAkgHJWPwAQJIByVj8AECSAclY/ADpkE74u1eAZCx+gLYhvX//nkekg/Zo\njY1OWfwATUN6/74vqXBlFwYkY/EDtAzp/fuBpN4qf7lwUNe/lP72JfWPeeYHJGPxA8RCerl+\nvrq63dYVuooCkrH4AWIhrd4Mr7O69ffdq0++LSAZix+gZUhjx0jD66kut94vd1xSvyAgGYsf\noGlII2ftBlf27lHqljwipRU/QNuQBg1X+Y7ndTuvBF4WkIzFD3AGkHadbOCpXVjxA5wBpF2n\nv/+wRyRej1Q9Xo8ky4HEK2SrxytkdTGQuGZD9bhmw0hAcgWkwsaWIZDeHJCqB6SRYiBxjFQ/\njpF0OZA4a1c/ztrJgiDl/xgmfoDUnyMZApKx+AGAJAOSsfgBgCQDkrH4AYAkA5Kx+AGAJAOS\nsfgBgCQDkrH4AYAkA5Kx+AGAJAOSsfgBgCQDkrH4AYAkA5Kx+AGAJAOSsfgBzhHSRBfWB5Kx\n+AHahvT58+c3Qprwt1MAyVj8AE1D+vy5L+mEq3/Cb1Vhh+avw/gBWob0+fNAUm+V77xifre6\ngtCrKwsVFARpPp9X2OqE3d3d1b4LR9by65FGIQ0up7r98UQXicyBNJ+HS7q7S5fU9Ctkxx+R\nlvrqkC+3+SN+rct8Hi7p7i5dUuPXbBg5RtoLaetC+oUByRWQChtbhgeetdsHafspXmFAcgWk\nwsaW4X8jDVe5hjS8xn5JMZA4Rqpf08dIo5DEWYXtcw5/zMkGztrVr+WzduOPSMPT38vV2bvN\n6e/eafCCgiDl/xgmfoCWf46096ndaQOSsfgBgCQDkrH4AYAkA5Kx+AFSIRkCkrH4AYAkA5Kx\n+AGAJAOSsfgBgCQDkrH4AYAkA5Kx+AGAJAOSsfgBgCQDkrH4AYAkA5Kx+AGAJAOSsfgBgCQD\nkrH4AYAkA5Kx+AGAJAOSL16PVNTYMgRS0R6tsdHp4hWyZY0tQyAV7dEaG50srtlQ2NgyBFLR\nHq2x0ckCUmFjy7AQ0glenwQkV0AqbGwZ9uT8/PkTSAft0Robna50R60fI/382Zd0glV/gm9p\n353/Fw+Js3ZljS3DoaNtSb1lPrh60I6L6h91MS4gWYsfoOWfI41BenU9O3FRfSBlFD9ANKTl\na1DLVx8DKaH4AVqGNHqMtLru42tIW1fPB1JM8QM0DWn8rN3gGGn5+ur5QIopfoC2IQ3asdTH\nLqYPpJziB0iF1Lto/uBkQ++pXfGlv4HkLH6AVEjbvyR2ePr75fe5rC+lXxSQjMUPEAvp9AHJ\nWPwAQJIByVj8AECSAclY/ABAkgHJWPwAQJIByVj8AECSAclY/ABAku2HNHto+/1zFXZo/jqM\nHwBIsr2QZqs3s80HT1XYofG/1TwfUsuvRwLSgc3n8ZLSIbX9CtnGIT3VAKT5PF9SOKTWr9mQ\nBumfx054l3a3gmTfLm1aQap9N7YLgzRb8og0RTwilTS2MoH09vIdpUPiGGmkQyDN+m+esu9O\nzto1EGftZAdAmr28rQopfx3GD8DPkWQH/EB26x2Qjip+ACDJ9v8cabb6Jw38y4ajix8ASDL+\nrZ2x+AHahvRwEC0gjazyqa5eDCRj8QM0DenptC6QDtmjNTY6ZfEDtAxp9YPGXZBWV4F8uRbk\nsht8siu/fNB6G4VfV2GH5q/D+AFCIW2uBbnsNpB6V+g6RsLWJkqqsEPz12H8AGcAaXhx1W77\nNkcEJGPxA7QMad8x0iik45/bAclY/ABNQ9pz1m7ret/yMuBHBCRj8QO0DWnQYJWPQOIYKaz4\nAc4YEk/tgoofIBZS7xx377Bo/Vc8IgUVP0AqpGnW/GhAMhY/AJAm/6YVdiivR6rfGUA6+t8w\niG9b+HX+/ckrZBvoDCCdqBhIXLOhhYCkApIxIBVtcyQgvTkgtRCQVDGQOEZqISCpciBx1q6B\ngKQKgpS/DuMHAJIMSMbiBwCSDEjG4gcAkgxIxuIHAJIMSMbiBwCSDEjG4gcAkgxIxuIHAJIM\nSMbiBwCSDEjG4gcAkgxIxuIHOBNI3Qle3AckY/EDtA1psVgA6aA9WmOjUxY/QNOQFou+pNFF\nD6Tk4gdoGdJiMZA0XOQvFxLavtDqy5X1+596ubTQ5otGr8YKJGPxA4RD2rqWXd9TN3i7uUWP\n3CgXIBmLHyAU0o7rfW9fY3X9yW7w8e73oiBIvB6peu/evfNvdGwZHniMtAvS+jKRL3A2t+j6\nj0TDp3/hkHiFbPXevash6VBIY2ftXl2m+OXSqusDoN6tho9Ey/OBxDUbqvfuXRVJY8vwv5H6\ny3wIadkjsgVp51O6JZBaCkgljS3DQyENzsu9eth5ObHXO8nQ7YAlApIxIJU0tgzfBkme/t6G\ntH3au3/6e5RLDCSOkerX+DHSGKTCDueRA4mzdvVr+qzdxJD2PALtvHlB/v15BuswfoCWf440\n+SPS236vLJCMxQ/wR0F6W0AyFj8AkGRAMhY/AJBkQDIWPwCQZEAyFj8AkGRAMhY/QHOQ2glI\nxuIHAJIMSMbiBwCSDEjG4gcAkgxIxuIHAJIMSMbiBwCSDEjG4gcAkgxIxuIHAJIMSMbiBwCS\nLAhS/OuR7u7uat+FI2vu9UjtlAMp/hWyd3fpktp7hWw7xUCKv2bD3V26pAav2dBOQHIFpMIm\nXe8nC0iugFTYpOv9ZMVA4hipfhwj6XIgcdaufpy1kwVByv8xTPwA/BxJBiRj8QMASQYkY/ED\nAEkGJGPxAwBJBiRj8QMASQYkY/EDAEkGJGPxAwBJBiRj8QMASQYkY/EDAEkGJGPxAwBJBiRj\n8QMASQYkY/EDAEkGJGPxAwBJBiRj8QMASQYkY/EDAEkWBOn29rbCVqcsHhKvR5LlQLq9jZeU\nDolXyOpiIN3e5ksKh8Q1G0YCkjEglTTpej9ZQDIGpJImXe8nKwYSx0j14xhJlwOJs3b146yd\nLAhS/jqMH4CfI8mAZCx+ACDJgGQsfgAgyYBkLH4AIMmAZCx+ACDJgGQsfgAgyYBkLH4AIMmA\nZCx+ACDJgGQsfgAgyYBkLH4AIMmAZCx+ACDJgGQsfgAgyYBkLH4AIMmAZCx+ACDJgGQsfgAg\nyYIgxf9W83xIP3788G900vV+snIgzefxktIh/fhRQ9Kk6/1kxUCaz/MlhUP68aOKpEnX+yrL\nTW4AAAUESURBVMkqhWRvBan23fiTW0GqfTfajEckYzwilTTpej9ZMZA4Rqofx0i6HEictasf\nZ+1kQZDy12H8APwcSQYkY/EDAEkGJGPxAwBJBiRj8QMASQYkY/EDAEkGJGPxAwBJBiRj8QMA\nSQYkY/EDAEkGJGPxAwBJBiRj8QMASQYkY/EDAEkGJGPxAwBJBiRj8QMASQYkY/EDAEkGJGPx\nAwBJBiRj8QMASRYE6eLiosJWpwxIRduMKAfSxUW8JCAVbTOiGEgXF/mSgFS0zYiAZAxIRduM\nCEjGgFS0zYhiIHGM1EJAUuVA4qxdAwFJFQQpfx3GDwAkGZCMxQ8AJBmQjMUPACQZkIzFDwAk\nGZCMxQ8AJBmQjMUPACQZkIzFDwAkGZCMxQ8AJBmQjMUPACQZkIzFDwAkGZCMxQ8AJBmQjMUP\nACQZkIzFDwAkGZCMxQ8AJBmQjMUPACQZkIzFDwAkGZCMxQ8AJBmQjMUPACQZkIzFDwAkGZCM\nxQ8AJBmQjMUPACQZkIzFDwAkGZCMxQ8AJBmQjMUPACQZkIzFDwAkGZCMxQ8AJBmQjMUPACQZ\nkIzFDwAkGZCMxQ8AJBmQjMUPACQZkIzFDwAkGZCMxQ8AJBmQjMUPACQZkIzFDwAkGZCMxQ8A\nJBmQjMUPACQZkIzFDwAkWRAkfqt5/YCkyoF0cREvCUhF24woBtLFRb4kIBVtMyIgGQNS0TYj\nApIxIBVtM6IYSBwjtRCQVDmQOGvXQEBSBUHKX4fxAwBJBiRj8QMASQYkY/EDAEkGJGPxAwBJ\nBiRj8QMASQYkY/EDAEkGJGPxAwBJBiRj8QMASQYkY/EDAEkGJGPxAwBJBiRj8QMASQYkY/ED\nAEkGJGPxAwBJBiRj8QMASQYkY/EDAEkGJGPxAwBJBiRj8QMASQYkY/EDAEkGJGPxAwBJBiRj\n8QMASQYkY/EDAEkGJGPxAwBJBiRj8QMASQYkY/EDAEkGJGPxAwBJBiRj8QMASQYkY/EDAEkG\nJGPxAwBJBiRj8QMASQYkY/EDAEkGJGPxAwBJVgqpRv/UvgPHFj/AGUxwqoBkLH6AM5jgVAHJ\nWPwAZzDBqQKSsfgBzmCCU5UEiajZgEQ0QUAimiAgEU0QkIgmCEhEExQFaVb7DhzZLH0AkiVB\nSl+H4XefxgqCNEtfieF3n8bKgTRLX4mzWf5DavoEpwtIvsLvfv5z61MWA2m2jF+J4Xf/DAY4\nYSmQZps3uYXf/TMY4ITFQHqu9t04qux7vzyDAU5YCqSnwv9Dht/9MxjghAHJV/jdP4MBThiQ\nfIXf/TMY4IRFQSJqNSARTRCQiCYISEQTBCSiCQIS0QQBiWiCgEQ0QUAimiAgWerYz2ce/4Et\nAenc4z+wJSCde/wHPnX3193NE6Su+z677C6fPnnZfa98t2jagHTifs26rrt5hnTdfbjp7h8+\neb/yRGcTkE7cx+56+ev6GdLH5fLr45uHT36tfb9o2oB04i4fH4LunyE9PhhdPl3FhVf2nFtA\nOnHPpxmeIT3+6d/u2/Jb96nunaLJA9KJG0L61X14eGb3q+6doskD0onbfmr39IkP3X13U/lO\n0eQB6cR96q5/La+3IH3ruodnd3RmAenEbZ/+fv7MJee+zzAgnbr7m80PZJ8/8W/3pe49ohME\nJKIJAhLRBAGJaIKARDRBQCKaICARTRCQiCYISEQTBCSiCQIS0QQBiWiCgEQ0Qf8PzZCYXfh+\ncu0AAAAASUVORK5CYII=",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# x축에 drv, y축에 hwy 산점도\n",
    "# qplot(data = mpg, x = drv, y = hwy)\n",
    "qplot(data = mpg, x = drv, y = hwy, color = manufacturer)"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 38,
   "id": "7ce01de5",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAANlBMVEUAAAAzMzNNTU1oaGh8\nfHyMjIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enr6+vw8PD////agy6EAAAACXBIWXMA\nABJ0AAASdAHeZh94AAAXMElEQVR4nO3c7XKTZ7pEYUVAyCTA4PM/2c1HQrGHGOygJ91ava4f\nzoQpqtS531XyGE0uD5J+2iX9AiQCQ5JuwJCkGzAk6QYMSboBQ5JuwJCkGzAk6Qb+aUj/bdP3\nio7bm1y32JAI9ibXLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibXLTYkgr3JdYsNiWBvct1i\nQyLYm1y32JAI9ibXLTYkgr3JdYsNiWBvct1iQyLYm1y3+OdDkvQV35Hu197kusWGRLA3uW6x\nIRHsTa5bbEgEe5PrFhsSwd7kusWGRLA3uW6xIRHsTa5bbEgEe5PrFhsSwd7kusWGRLA3uW6x\nIRHsTa5bbEgEe5PrFhsSwd7kusWGRLA3uW6xIRHsTa5bbEgEe5PrFhsSwd7kusWGRLA3uW6x\nIRHsTa5bbEgEe5PrFhsSwd7kusWGRHBJv4B/Xd2RDYnAkOIMicCQ4gyJwJDiDInAkOIMicCQ\n4gyJwJDiDInAkOIMicCQ4gyJwJDiDInAkOIMicCQ4gyJwJDiDInAkOIMicCQ4gyJwJDiDInA\nkOIMicCQ4gyJwJDiDInAkOIMicCQ4gyJwJDiDInAkOIMicCQ4gyJwJDiDInAkOIMicCQ4gyJ\nwJDiDInAkOIMicCQ4gyJwJDiDInAkOIMicCQ4gyJwJDiDInAkOIMicCQ4gyJwJDiDInAkOIM\nicCQ4gyJwJDiDInAkOIMicCQ4gyJwJDiDInAkOIMicCQ4gyJwJDiDInAkOIMicCQ4gyJwJDi\nDInAkOIMicCQ4gyJwJDiDInAkOIMicCQ4gyJwJDiDInAkOIMicCQ4gyJwJDiDInAkOIMicCQ\n4gyJwJDiDInAkOIMicCQ4gyJwJDiDInAkOIMicCQ4gyJwJDiDInAkOIMicCQ4gyJwJDiDInA\nkOIMicCQ4gyJwJDiDInAkOIMicCQ4gyJwJDiDInAkOIMicCQ4gyJwJDiDInAkOIMicCQ4gyJ\nwJDiDInAkOIMicCQ4p4Z0vXTlw8MqYkhxT0vpE8BXb8UZUglDCnuWSFdHwypkiHFPSek64Mh\ndTKkuJ8K6ZePfvjbdNw//UGRDvjhMa4PviOV8h0p7ukhfenHkOoYUtwzQvrMkAoZUtzTQ/ry\ntmRIdQwpzpAIDCnuH4TkJxvqGFLcM0P6G+kF3+h7RccZUpwhERhSnCERGFKcIREYUpwhERhS\nnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREY\nUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCER\nGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwh\nERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKc\nIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhS\nnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREY\nUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCER\nGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwh\nERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKc\nIREYUtzPh6Q8b1fEd6T75TtSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKc\nIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhS\nnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREY\nUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCER\nGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwh\nERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKc\nIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhS\nnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREY\nUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCER\nGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwhERhSnCERGFKcIREYUpwh\nERhS3HNCun7w9V8NqYUhxT0jpOufX65f/saQShhSnCERGFLcM0L6qyZDqmNIcT8V0i8fPem3\n6ah/+oMiHfCEY3z+IYPvSHV8R4p7VkgPfmvXyZDiDInAkOKeEZI/tatlSHGGRGBIcc8IyU82\n1DKkuOeE9PfSC77R94qOM6Q4QyIwpDhDIjCkOEMiMKQ4QyIwpDhDIjCkOEMiMKQ4QyIwpDhD\nIjCkOEMiMKQ4QyIwpDhDIjCkOEMiMKQ4QyIwpDhDIjCkOEMiMKQ4QyIwpDhDIjCkOEMiMKQ4\nQyIwpDhDIjCkuEdDevHbG0O6F4YU92hIl8vl+usfhnQXDCnu0ZDe//7qQ0uXl7+/M6R6hhT3\naEgf/fH6+qGlF99/X0ov+EbfKzrOkOK+G9LDu9eXT29LhtTNkOK+F9LbV5/ejt68vLwypGqG\nFPd4SH+8/PJd3eV7PxpPL/hG3ys6zpDiHg3pxeXy6u1f/9X14XHpBd/oe0XHGVLcoyFdXr99\neJL0gm/0vaLjDCnu8ZAuT/pTJENqYEhxj4b06U+RXv3+3pDugCHFPRrSw8Pb/7z69CeyhlTP\nkOK+E9JHH/8cyZDqGVLc90J68/GDDS9+M6R6hhT3aEifPh7k/0a6D4YU92hIH76ne/3jigyp\ngiHFPRrSm8/vSD/67HdhSHtP1eDkusfu0ZD+aunFa0Oqtze57rH7XkgPD+9/u8Of2u09VYOT\n6x6774T09reXlyd8viG94Bt7T9Xg5LrH7tGQfr0+pSJDqrA3ue6xezSk+/2s3d5TNTi57rF7\nNKSnVWRIFfYm1z12j4b08Onf13Dxhw33YG9y3WP3aEivLxdDuhd7k+seu0dDul5+9CE7Q6qx\nN7nusXs0pB++ExlSj73JdY/doyG9vjzpk3aG1GBvct1j92hID69e/vhzdobUYW9y3WP39yFd\nvmZI9fYm1z12hkSwN7nusfv7kJ4jveAbe0/V4OS6x86QCPYm1z12hkSwN7nusTMkgr3JdY+d\nIRHsTa577AyJYG9y3WNnSAR7k+seO0Mi2Jtc99gZEsHe5LrHzpAI9ibXPXaGRLA3ue6xMySC\nvcl1j50hEexNrnvsDIlgb3LdY2dIBHuT6x47QyLYm1z32BkSwd7kusfOkAj2Jtc9doZEsDe5\n7rEzJIK9yXWPnSER7E2ue+wMiWBvct1jZ0gEe5PrHjtDItibXPfYGRLB3uS6x86QCPYm1z12\nhkSwN7nusTMkgr3JdY+dIRHsTa577AyJYG9y3WJDItibXLfYkAj2JtctNiSCvcl1iw2JYG9y\n3WJDItibXLfYkAj2JtctNiSCvcl1iw2JYG9y3WJDItibXLfYkAj2JtctNiSCvcl1iw2JYG9y\n3WJDItibXLfYkAj2JtctNiSCvcl1iw2JYG9y3WJDItibXLfYkAj2JtctNiSCvcl1iw2JYG9y\n3WJDItibXLf450OqgxnydHuTixf7jnS/9ibXLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibX\nLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibXLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibX\nLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibXLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibX\nLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibXLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibX\nLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibXLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibX\nLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibXLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibX\nLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibXLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibX\nLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibXLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibX\nLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibXLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibX\nLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibXLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibX\nLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibXLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibX\nLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibXLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibX\nLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibXLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibX\nLTYkgr3JdYsNiWBvct1iQyLYm1y32JAI9ibXLX5OSNcPvv6rIbXYm1y3+BkhXf/8cv3yN4ZU\nYm9y3WJDItibXLf4GSH9VZMh1dmbXLf4p0L65aMn/bZ/0z/9qckd25tcvPhJL+364DtSob3J\ndYsNiWBvct3i54V0/f9fDKnE3uS6xc8K6fo/NRlSib3JdYufE9L1f9+WDKnE3uS6xc8I6Xr9\n8yMNfrKhzd7kusXPeUf6e+kF36j7Z3ze3uS6xYZEsDe5brEhEexNrltsSAR7k+sWGxLB3uS6\nxYZEsDe5brEhEexNrltsSAR7k+sWGxLB3uS6xYZEsDe5brEhEexNrltsSAR7k+sWGxLB3uS6\nxYZEsDe5brEhEexNrltsSAR7k+sWGxLB3uS6xYZEsDe5brEhEexNrltsSAR7k+sWGxLB3uS6\nxYZEsDe5brEhEexNrltsSAR7k+sWGxLB3uS6xYZEsDe5brEhEexNrltsSAR7k+sWGxLB3uS6\nxYZEsDe5brEhEexNrltsSAR7k+sWGxLB3uS6xYZEsDe5brEhEexNrltsSAR7k+sWGxLB3uS6\nxYZEsDe5brEhEexNrltsSAR7k+sWGxLB3uS6xYZEsDe5brEhEexNrltsSAR7k+sWGxLB3uS6\nxYZEsDe5brEhEexNrltsSAR7k+sWGxLB3uS6xYZEsDe5brEhEexNrltsSAR7k+sWGxLB3uS6\nxYZEsDe5brEhEexNrltsSAR7k+sWGxLB3uS6xYZEsDe5brEhEexNrltsSAR7k+sWGxJB3xFO\nqzuyIRH0HeG0uiMbEkHfEU6rO7IhEfQd4bS6IxsSQd8RTqs7siER9B3htLojGxJB3xFOqzuy\nIRH0HeG0uiMbEkHfEU6rO7IhEfQd4bS6IxsSQd8RTqs7siER9B3htLojGxJB3xFOqzuyIRH0\nHeG0uiMbEkHfEU6rO7IhEfQd4bS6IxsSQd8RTqs7siER9B3htLojGxJB3xFOqzuyIRH0HeG0\nuiMbEkHfEU6rO7IhEfQd4bS6IxsSQd8RTqs7siER9B3htLojGxJB3xFOqzuyIRH0HeG0uiMb\nEkHfEU6rO7IhEfQd4bS6IxsSQd8RTqs7siER9B3htLojGxJB3xFOqzuyIRH0HeG0uiMbEkHf\nEU6rO7IhEfQd4bS6IxsSQd8RTqs7siER9B3htLojGxJB3xFOqzuyIRH0HeG0uiMbEkHfEU6r\nO7IhEfQd4bS6IxsSQd8RTqs7siER9B3htLojGxJB3xFOqzvyz4dUBzNEjys+su9I96vvCKfV\nLTYkgr4jnFa32JAI+o5wWt1iQyLoO8JpdYsNiaDvCKfVLTYkgr4jnFa32JAI+o5wWt1iQyLo\nO8JpdYsNiaDvCKfVLTYkgr4jnFa32JAI+o5wWt1iQyLoO8JpdYsNiaDvCKfVLTYkgr4jnFa3\n2JAI+o5wWt1iQyLoO8JpdYsNiaDvCKfVLTYkgr4jnFa32JAI+o5wWt1iQyLoO8JpdYsNiaDv\nCKfVLTYkgr4jnFa32JAI+o5wWt1iQyLoO8JpdYsNiaDvCKfVLTYkgr4jnFa32JAI+o5wWt1i\nQyLoO8JpdYsNiaDvCKfVLTYkgr4jnFa32JAI+o5wWt1iQyLoO8JpdYsNiaDvCKfVLTYkgr4j\nnFa32JAI+o5wWt1iQyLoO8JpdYsNiaDvCKfVLTYkgr4jnFa32JAI+o5wWt1iQyLoO8JpdYsN\niaDvCKfVLTYkgr4jnFa32JAI+o5wWt1iQyLoO8JpdYsNiaDvCKfVLTYkgr4jnFa32JAI+o5w\nWt1iQyLoO8JpdYsNiaDvCKfVLTYkgr4jnFa32JAI+o5wWt1iQyLoO8JpdYsNiaDvCKfVLTYk\ngr4jnFa32JAI+o5wWt1iQyLoO8JpdYsNiaDvCKfVLTYkgr4jnFa32JAI+o5wWt1iQyLoO8Jp\ndYsNiaDvCKfVLTYkgr4jnFa32JAI+o5wWt1iQyLoO8JpdYsNiaDvCKfVLTYkgr4jnFa32JAI\n+o5wWt1iYEh9r+i4vcl1iw2JYG9y3WJDItibXLfYkAj2JtctNiSCvcl1iw2JYG9y3WJDItib\nXLfYkAj2JtctNiSCvcl1iw2JYG9y3WJDItibXLfYkAj2JtctNiSCvcl1iw2JYG9y3WJDItib\nXLfYkAj2JtctNiSCvcl1iw2JYG9y3WJDItibXLfYkAj2JtctNiSCvcl1iw2JYG9y3WJDItib\nXLfYkAj2JtctNiSCvcl1iw2JYG9y3WJDItibXLfYkAj2JtctNiSCvcl1iw2JYG9y3WJDItib\nXLfYkAj2JtctNiSCvcl1iw2JYG9y3eKfD6nOL+kX8O/bm1y82JDu197k4sWGdL/2JhcvNqT7\ntTe5eDEmJCnJkKQbMCTpBgxJugFDkm7AkKQb4IR0Tb+Af911b3IvTEh7T9Xc4GqUkK57z9Xc\n4GqQkK57z9X1uvYmfG3+tsOQ7tbe4ObFjJCuD4vPVfoF/NuqByNCun75ssTBTRghfZZ+Gf+y\ntb3dgxEhfVL9j/kEBzcxpLvl4CaGdLcc3IQTkhRkSNINGJJ0A4Yk3YAhSTdgSNINGJJ0A4Yk\n3YAhSTdgSPfo4tnaeJF7ZEh1vMg9MqQ6XuTOvHt5efUppMvl7fXF5cWnX3xxeRt+WfMM6b68\nv14ul1efQ3p5+fXV5d2HX3z3Z0/KMaT78vry8uH9y88hvX54+OPjlw+/+Ef6dc0zpPvy4uNb\n0LvPIX18M3rx6d/7Uv3/1NlgSPfl848ZPof08T/95/Lm4c3lt+yLkiHdm/8N6f3l1w/f2b3P\nvigZ0r35+lu7T7/w6+Xd5VX4RcmQ7s1vl5fvH15+FdKby+XDd3dKM6T78vWPvz//ygt/9t3A\nkO7Mu1df/kD28y/85/J79hXpI0OSbsCQpBswJOkGDEm6AUOSbsCQpBswJOkGDEm6AUOSbsCQ\npBswJOkGDEm6gf8DBPqFfbS57YIAAAAASUVORK5CYII=",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# x축 drv, y축 hwy, 선그래프\n",
    "qplot(data = mpg, x = drv, y = hwy, geom = \"line\")"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 39,
   "id": "a9f97341",
   "metadata": {},
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAANlBMVEUAAAAzMzNNTU1oaGh8\nfHyMjIyampqnp6eysrK9vb3Hx8fQ0NDZ2dnh4eHp6enr6+vw8PD////agy6EAAAACXBIWXMA\nABJ0AAASdAHeZh94AAAcjUlEQVR4nO2dbXdUt5oFuxsIeSFc/P//7IBNEOMOkeUjWXX2U/Uh\nd25maa0ubdU4MeC5PIjIYS67P4BIAoYkMgFDEpmAIYlMwJBEJmBIIhMwJJEJGJLIBF4b0v9o\n8D7Rcuop44wNKYF6yjhjQ0qgnjLO2JASqKeMMzakBOop44wNKYF6yjhjQ0qgnjLO2JASqKeM\nMzakBOop44wNKYF6yjhjQ0qgnjLO2JASqKeMMzakBOop44yPhyQiP+FXpPNSTxlnbEgJ1FPG\nGRtSAvWUccaGlEA9ZZyxISVQTxlnbEgJ1FPGGRtSAvWUccaGlEA9ZZyxISVQTxlnbEgJ1FPG\nGRtSAvWUccaGlEA9ZZyxISVQTxlnbEgJ1FPGGRtSAvWUccaGlEA9ZZyxISVQTxlnbEgJ1FPG\nGRtSANfrdfdHeGtwIxvS+ble65WEG9mQTs/1WrAk3MiGdHoMiYAhnR5DImBI56dgR7yRDSmA\neh3xRjakBOop44wNKYF6yjhjQ0qgnjLO2JASqKeMMzakBOop44wNKYF6yjhjQ0qgnjLO2JAS\nqKeMMzakBOop44wNKYF6yjhjQ0qgnjLO2JASqKeMMzakBOop44wNKYF6yjhjQ0qgnjLO2JAS\nqKeMMzakBOop44wNKYF6yjhjQ0qgnjLO2JASqKeMMzakBOop44wNKYF6yjhjQ0qgnjLO2JAS\nqKeMMzakBOop44wNKYF6yjhjQ0qgnjLO2JASqKeMMzakBOop44wNKYF6yjhjQ0qgnjLO2JAS\nqKeMMzakBOop44wNKYF6yjhjQ0qgnjLO2JASqKeMMzakBOop44wNKYF6yjhjQ0qgnjLO2JAS\nqKeMMzakBOop44wNKYF6yjhjQ0qgnjLO2JASqKeMMzakBOop44wNKYF6yjhjQ0qgnjLO2JAS\nqKeMMzakBOop44wNKYF6yjhjQ0qgnjLO2JASqKeMMzakBOop44wNKYF6yjhjQ0qgnjLO2JAS\nqKeMMzakBOop44wNKYF6yjhjQ0qgnjLO2JACuF6vuz/CW4Mb2ZDOz/VaryTcyIZ0eq7XgiXh\nRjak02NIBAzp9BgSAUM6PwU74o1sSAHU64g3siElUE8ZZ2xICdRTxhkbUgL1lHHGhpRAPWWc\nsSElUE8ZZ2xICdRTxhkbUgL1lHHGhpRAPWWcsSElUE8ZZ2xICdRTxhkbUgL1lHHGhpRAPWWc\nsSElUE8ZZ2xICdRTxhkPhnR7/MtXDIlEPWWc8VhIjwHdfhRlSBDqKeOMh0K6PRgSknrKOOOR\nkG4PhsSknjLO+FBIjz8soHtMpBLdkG4PfkWCUk8ZZ/zykH70Y0g46injjAdCesKQgNRTxhm/\nPKQfX5YMCUc9ZZyxISVQTxln/IqQ/J0NOOop44wHQ/oXdhvcwftEy6mnjDM2pATqKeOMDSmB\neso4Y0NKoJ4yztiQEqinjDM2pATqKeOMDSmBeso4Y0NKoJ4yztiQEqinjDM2pATqKeOMDSmB\neso4Y0NKoJ4yztiQEqinjDM2pATqKeOMDSmBeso4Y0NKoJ4yztiQEqinjDM2pATqKeOMDSmB\neso4Y0NKoJ4yztiQEqinjDM2pATqKeOMDSmBeso4Y0NKoJ4yztiQEqinjDM2pATqKeOMDSmB\neso4Y0NKoJ4yztiQEqinjDM2pATqKeOMDSmBeso4Y0NKoJ4yztiQEqinjDM2pATqKeOMDSmB\neso4Y0NKoJ4yztiQEqinjDM2pATqKeOMDSmBeso4Y0NKoJ4yztiQEqinjDM2pATqKeOMDSmB\neso4Y0NKoJ4yztiQEqinjDM2pATqKeOMDSmBeso4Y0NKoJ4yztiQEqinjDM2pATqKeOMDSmB\neso4Y0NKoJ4yztiQEqinjDM2pATqKeOMDSmBeso4Y0NKoJ4yztiQArher7s/wluDG9mQzs/1\nWq8k3MiGdHqu14Il4UY2pNNjSAQM6fQYEgFDOj8FO+KNbEgB1OuIN7IhJVBPGWdsSAnUU8YZ\nG1IC9ZRxxoaUQD1lnLEhJVBPGWdsSAnUU8YZG1IC9ZRxxoaUQD1lnLEhJVBPGWdsSAnUU8YZ\nG1IC9ZRxxoaUQD1lnLEhJVBPGWdsSAnUU8YZG1IC9ZRxxoYUgH8eaT+GdH78E7IADOn0+DMb\nCBjS6TEkAoZ0egyJgCGdn4Id8UY2pADqdcQb2ZASqKeMMzakBOop44wNKYF6yjhjQ0qgnjLO\n2JASqKeMMzakBOop44wNKYF6yjhjQ0qgnjLO2JASqKeMMzakBOop44wNKYF6yjhjQ0qgnjLO\n2JASqKeMMzakBOop44wNKYF6yjhjQwrAP4+0H0M6P/4JWQCGdHr8mQ0Ejockm/ke0u6PId/x\nK9JJ8SsSAUM6PwU74o1sSAHU64g3siElUE8ZZ2xICdRTxhkbUgL1lHHGhpRAPWWcsSElUE8Z\nZ2xICdRTxhkbUgL1lHHGhpRAPWWcsSElUE8ZZ2xICdRTxhkbUgL1lHHGhpRAPWWcsSElUE8Z\nZ2xICdRTxhkbUgL1lHHGhhSAfx5pP4Z0fvwTsgAM6fT4MxsIGNLpMSQChnR6DImAIZ2fgh3x\nRjakAOp1xBvZkBKop4wzNqQE6injjA0pgXrKOGNDSqCeMs7YkBKop4wzNqQE6injjA0pgXrK\nOGNDSqCeMs7YkBKop4wzNqQE6injjA0pgXrKOGNDSqCeMs7YkBKop4wzNqQE6injjA0pgXrK\nOGNDSqCeMs7YkBKop4wzNqQE6injjA0pgXrKOGNDSqDcj2zgjWxICRjSdgwpAUPajiElYEjb\nMaQEDGk7hpSAIW3HkBIwpO0YUgKGtB1DSsCQtmNICRjSdgwpAUPajiElYEjbMaQEDGk7hpSA\nIW3HkBIwpO0YUgKGtB1DSsCQtmNICRjSdgwpAUPajiElYEjbMaQEDGk7hpSAIW3HkBIwpO0Y\nUgKGtB1DSsCQtmNICRjSdgwpAUPajiElYEjbMaQEDGk7hpSAIW3HkBIwpO0YUgKGtB1DSsCQ\ntmNICRjSdgwpAUPajiElYEjbMaQEDGk7hpSAIW3HkBIwpO0YUgKGtB1DSsCQtmNICRjSdgwp\nAUPajiElYEjbMaQEDGk7hpSAIW3HkBIwpO0YUgKGtB1DSsCQtmNICRjSdgwpAUPajiElYEjb\nMaQEDGk7hpSAIW3HkBIwpO0YUgKGtB1DSsCQtmNICRjSdgwpAUPajiElYEjbMaQEDGk7hpSA\nIW1nJKTbV37+T0OiYEjbGQjp9v0vtx//xZAgGNJ2DCkBQ9rOQEj/1GRIOAxpO4dCun7jRcdk\nKY4A4gUhPX2Twa9IOPyKtJ2hkB78RzsmhrQdQ0rAkLYzEJLftcNiSNsxpAQMaTsDIfk7G7AY\n0nZGQvp3dhvcwftEyzGk7RhSAoa0HUNKwJC2Y0gJGNJ2DCkBQ9qOISVgSNsxpAQMaTuGlIAh\nbceQEjCk7RhSAoa0HUNKwJC2Y0gJGNJ2DCkBQ9qOISVgSNsxpAQMaTuG9GZcT8nuW/sFuJEN\n6c045c/MMqQX0q7MkBZjSBPBjdyuzJAWY0gTwY3crsyQFmNIE8GN3K7MkBZjSBPBjdyu7FlI\n737/9LKr3m1wB+8TPWFIE8GN3K7sWUiXy+X2218vuOrdBnfwPtEThjQR3Mjtyp6F9OXPD19b\nurz/83Pnqncb3MH7RE8Y0kRwI7cr+5d/R/rr4+1rS+/+++vSboM7eJ/oCUOaCG7kdmX/9s2G\nzx8vj1+W/uuqdxvcwftETxjSRHAjtyu7D+nvD49fjj69v3z4j6vebXAH7xM9YUgTwY3crux5\nSH+9//FPdZf/+tb4boM7eJ/oCUOaCG7kdmXPv/19uXz4+5//1e3h1+w2uIP3iZ4wpIngRm5X\n9vzb3x//fngRuw3u4H2iJwxpIriR25Xd/TrSi34VyZBejCFNBDdyu7JnIT3+KtKHP790r3q3\nwR28T/SEIU0EN3K7srtvKPz9x4fHX5HtXPVugzt4n+gJQ5oIbuR2Zf/6nblvv47UuerdBnfw\nPtEThjQR3Mjtyu6D+fTtNza8+71z1bsN7uB9oicMaSK4kduVPQvp8bcH+e9IEzGkieBGbld2\n/7u/P/YrejCkF7P7x5i8jt239gtwI/8ypE9PX5F6v/cbGBJ1+91JvI7dt/YLcM/ulyH909K7\nj4Y0h91JvI7dt/YLcM/uv0J6ePjy+wm/a0fd3n9Hmgju2bUru/91pN/fX17w+xt2G9xB3d6Q\nJoJ7du3KnoX02+0lFT0Y0osxpIngnl27spjfa0fd3pAmgnt27cqe/zrSS696t8Ed1O0NaSK4\nZ9eu7Pm/Iz3+vIaL32yYhiFNBPfs2pU9C+bj5WJIUzGkieCeXbuyZ8HcLr3fZPed3QZ3ULc3\npIngnl27srtvNrzwqncb3EHd3pAmgnt27cru/tHuRb/TzpBejCFNBPfs2pU9/wr04X3/99l9\nY7fBHdTtDWkiuGfXruznkC4/07nq3QZ3ULc3pIngnl27MkNajCFNBPfs2pXF/P9Hom5vSBPB\nPbt2ZYa0GEOaCO7ZtSszpMUY0kRwz65dmSEtxpAmgnt27coMaTGGNBHcs2tXZkiLMaSJ4J5d\nuzJDWowhTQT37NqVGdJiDGkiuGfXrsyQFmNIE8E9u3ZlhrQYQ5oI7tm1KzOkxRjSRHDPrl2Z\nIS3GkCaCe3btygxpMYY0Edyza1dmSIsxpIngnl27MkNajCFNBPfs2pUZ0mIMaSK4Z9euzJAW\nY0gTwT27dmWGtBhDmgju2bUrM6TFGNJEcM+uXZkhLcaQJoJ7du3KDGkxhjQR3LNrV2ZIizGk\nieCeXbsyQ1qMIU0E9+zalRnSYgxpIrhn167MkBZjSBPBPbt2ZYa0GEOaCO7ZtSszpMUY0kRw\nz65dmSEtxpAmgnt27coMaTGGNBHcs2tXZkiLuZ6S3bf2C3Cfy5ASqKeMMzakBOop44wNKYF6\nyjhjQ0qgnjLO2JASqKeMMzakBOop44wNKYF6yjhjQ0qgnjLO2JASqKeMMzakBOop44wNKYF6\nyjhjQ0qgnjLO2JASqKeMMzakBOop44wNKYF6yjhjQ0qgnjLO2JASqKeMMzakBOop44wNKYF6\nyjhjQ0qgnjLO2JASqKeMMz4eEo5T/tirY9RTBhv7Fem81FPGGRtSAvWUccaGlEA9ZZyxISVQ\nTxlnbEgJ1FPGGRtSAvWUccaGlEA9ZZyxISVQTxlnbEgJ1FPGGRtSAvWUccaGlEA9ZZyxISVQ\nTxlnbEgJ1FPGGRtSAvWUccaGlEA9ZZyxISVQTxlnbEgJ1FPGGRtSAvWUccaGlEA9ZZyxISVQ\nTxlnbEgJ1FPGGRtSAlDl6zl5lashJQBVBv/MrP/AkL4DfVUrgSob0giTL/840Fe1EqiyIY0w\n+fKPA31VK4EqG9IIky//ONBXtRKosiGNMPnyjwN9VSuBKhvSCJMv/zjQV7USqLIhjTD58o8D\nfVUrgSob0giTL/840Fe1EqiyIY0w+fKPA31VK4EqG9IIky//ONBXtRKosiGNMPnyjwN9VSuB\nKhvSCJMv/zjQV7USqLIhjTD58o8DfVUrgSob0giTL/840Fe1EqiyIY0w+fKPA31VK4EqG9II\nky//ONBXtRKosiGNMPnyjwN9VSuBKhvSCJMv/zjQV7USqLIhjTD58o8DfVUrgSob0giTL/84\n0Fe1EqiyIY0w+fKPA31VK4EqG9IIky//ONBXtRKosiGNMPnyjwN9VSuBKhvSCJMv/zjQV7US\nqLIhjTD58o8DfVUrgSob0giTL/840Fe1EqiyIY0w+fKPA31VK4EqG9IIky//ONBXtRKosiGN\nMPnyjwN9VSuBKhvSCJMv/zjQV7USqLIhjTD58o8DfVUrgSob0giTL/840Fe1EqiyIY0w+fKP\nA31VK4EqG9IIky//ONBXtRKosiGNMPnyjwN9VSuBKhvSCJMv/zjQV7USqLIhjTD58o8DfVUr\ngSob0giTL/840Fe1EqiyIY0w+fKPA31VK4EqG9IIky//ONBXtRKosiGNMPnyjwN9VSuBKhvS\nCJMv/zjQV7USqLIhjfDKOz4nr5NdDu//mj1iSCN4x/sxpIkY0noMaYhKI7fzhtTHkIaoNHI7\nb0h9DGmISiO384bUx5CGqDRyO29IfQxpiEojt/OG1MeQhqg0cjtvSH0MaYhKI7fzhtTHkIao\nNHI7b0h9DGmISiO384bUx5CGqDRyO29IfQxpiEojt/OG1MeQhqg0cjtvSH0MaYhKI7fzhtTH\nkIaoNHI7b0h9DGmISiO384bUx5CGqDRyO29IfQxpiEojt/OG1AcaEvXPwFcauZ03pD7Q90r9\naRKVRm7nDakP87lify7Ltp9Rc4xXubZHYkh9iK/VkGbzKtf2SAypD/G1GtJsXuXaHokh9SG+\nVv8daTKGtB7kc/W7dnMxpPUw36u/jjQVQ1qPIQ1RaeR23pD6GNIQlUZu5w2pjyENUWnkdt6Q\n+hjSEJVGbucNqY8hDVFp5HbekPoY0hCVRm7nDamPIQ1RaeR23pD6GNIQlUZu5w2pjyENUWnk\ndt6Q+hjSEJVGbucNqY8hDVFp5HbekPoY0hCVRm7nDamPIQ1RaeR2vh/S7Ss//+cT3vF+DGki\ny0O6ff/L7cd/ecQ73o8hTcSQ1mNIQ1QauZ1/2b8jGRIRQ5rIhpAef1jAKz/t645t5pyfehvn\nvK6jn/pFId0e/IoExK9IE3mTr0iGhMSQJvIWId3+/18e8Y73Y0gTeYOQbu2vhkTCkCbyBr8g\n+9N/GBIJQ5rI+l9Hun3/LQ3+zgYahjQRf6/degxpiEojt/OG1MeQhqg0cjtvSH0MaYhKI7fz\nhtTHkIaoNHI7b0h9DGmISiO384bUx5CGqDRyO29IfQxpiEojt/OG1MeQhqg0cjtvSH0MaYhK\nI7fzhtTHkIaoNHI7b0h9DGmISiO384bUx5CGqDRyO29IfQxpiEojt/OG1MeQhqg0cjtvSH0M\naYhKI7fzhtTHkIaoNHI7b0h9DGmISiO384bUx5CGqDRyO29IfQxpiEojt/OG1MeQhqg0cjtv\nSH0MaYhKI7fzhtTHkIaoNHI7b0h9DGmISiO384bUx5CGqDRyO29IfQxpiEojt/OG1MeQhqg0\ncjtvSH0MaYhKI7fzhtTHkIaoNHI7b0h9DGmISiO384bUx5CGqDRyO29IfQxpiEojt/OG1MeQ\nhqg0cjtvSH0MaYhKI7fzhtTHkIaoNHI7b0h9DGmISiO384bUx5CGqDRyO//GIZ2T18kux5Am\nYkhvwOtkl2NIEzGkN+B1sssxpImcLKQpzm+NIQ1RaeR23pD6GNIQlUZu5w2pjyENUWnkdt6Q\n+hjSEJVGbucNqY8hDVFp5HbekPoY0hCVRm7nDamPIQ1RaeR23pD6GNIQlUZu5w2pjyENUWnk\ndt6Q+hjSEJVGbucNqY8hDVFp5HbekPoY0hCVRm7nDamPIQ1RaeR23pD6GNIQlUZu5w2pjyEN\nUWnkdt6Q+hjSEJVGbucNqY8hDVFp5HbekPpAQ6L+0d1KI7fzhtQH+l6pfwi+0sjtvCH1YT5X\n7I+TqDRyO+8PP3kBr5NdC/ejbZ3q9bzKdVdICyE+qZUcmf+04HQN6fwU7Ig3siEFUK8j3siG\nlABvhNXgRjakBHgjrAY3siElwBthNbiRDSkB3girwY1sSAnwRlgNbmRDSoA3wmpwIxtSArwR\nVoMb2ZAS4I2wGtzIhpQAb4TV4EY2pAR4I6wGN7IhJcAbYTW4kQ0pAd4Iq8GNbEgJ8EZYDW5k\nQ0qAN8JqcCMbUgK8EVaDG9mQEuCNsBrcyIaUAG+E1eBGNqQEeCOsBjeyISXAG2E1uJENKQHe\nCKvBjWxICfBGWA1uZENKgDfCanAjG1ICvBFWgxvZkBLgjbAa3MiGlABvhNXgRjakBHgjrAY3\nsiElwBthNbiRDSkB3girwY1sSAnwRlgNbmRDSoA3wmpwIxtSArwRVoMb2ZAS4I2wGtzIhpQA\nb4TV4EY2pAR4I6wGN7IhJcAbYTW4kQ0pAd4Iq8GNbEgJ8EZYDW5kQ0qAN8JqcCMbUgK8EVaD\nG9mQEuCNsBrcyMdDwnHd/QGkNH5FOi+8EVaDMzakBHgjrAZnbEgJ8EZYDc7YkBLgjbAanLEh\nJcAbYTU4Y0NKgDfCanDGhpQAb4TV4IwNKQHeCKvBGRtSArwRVoMzNqQEeCOsBmdsSAnwRlgN\nztiQEuCNsBqcsSElwBthNThjQ0qAN8JqcMaGlABvhNXgjA0pAd4Iq8EZG1ICvBFWgzM2pAR4\nI6wGZ2xICfBGWA3O2JAS4I2wGpyxISXAG2E1OGNDSoA3wmpwxoaUAG+E1eCMDSkB3girwRkb\nUgK8EVaDMzakBHgjrAZnbEgJ8EZYDc7YkBLgjbAanLEhJcAbYTU4Y0NKgDfCanDGhpQAb4TV\n4IwNKQHeCKvBGRtSArwRVoMzNqQEeCOsBmdsSAnwRlgNztiQEuCNsBqcsSElwBthNThjQ0qA\nN8JqcMaGlABvhNXgjA0pAd4Iq8EZG1ICvBFWgzM2pAR4I6wGZ2xICfBGWA3O2JAS4I2wGpyx\nISXAG2E1OGNDSoA3wmpwxoaUAG+E1eCMDSkB3girwRkbUgK8EVaDMzakBHgjrAZnbEgJ8EZY\nDc7YkBLgjbAanLEhJcAbYTU4Y0NKgDfCanDGhpQAb4TV4IwNKQHeCKvBGRtSArwRVoMzNqQE\neCOsBmdsSAnwRlgNztiQEuCNsBqcsSElwBthNThjQ0qAN8JqcMaGlABvhNXgjA0pAd4Iq8EZ\nG1ICvBFWgzM2pAR4I6wGZxwYEu8TLaeeMs7YkBKop4wzNqQE6injjA0pgXrKOGNDSqCeMs7Y\nkBKop4wzNqQE6injjA0pgXrKOGNDSqCeMs7YkBKop4wzNqQE6injjA0pgXrKOGNDSqCeMs7Y\nkBKop4wzNqQE6injjA0pgXrKOGNDSqCeMs7YkBKop4wzNqQE6injjA0pgXrKOGNDSqCeMs7Y\nkBKop4wzNqQE6injjA0pgXrKOGNDSqCeMs7YkBKop4wzNqQE6injjA0pgXrKOGNDSqCeMs7Y\nkBKop4wzNqQE6injjA0pgXrKOGNDSqCeMs7YkBKop4wzNqQE6injjI+HhOO6+wO8PfWUwcaG\ndF7qKYONDem81FMGGxvSeamnDDaOCUlkJ4YkMgFDEpmAIYlMwJBEJmBIIhPICem2+wO8Obd6\nylxiQqr3qsoJo0kJ6VbvXZUTRhMS0q3eu7rdqn0RvpH/scOQTks9YbJxRki3h4rvavcHeGvQ\nwhEh3X78pRIKk8gI6YndH+ONqebLFo4I6RH0Na9AYRKGdFoUJmFIp0VhEjkhiWzEkEQmYEgi\nEzAkkQkYksgEDElkAoYkMgFDEpmAIYlMwJDOyMXZaLjIGTEkHC5yRgwJh4ucjM/vLx8eQ7pc\n/r69u7x7/JvvLn9v/ljlMaRz8eV2uVw+PIX0/vLbh8vnr3/z8/eeZB+GdC4+Xt4/fHn/FNLH\nh4e/vv3l69/8a/fnKo8hnYt3374EfX4K6dsXo3ePP/cF/Sd1amBI5+Lp2wxPIX37n/64fHr4\ndPl974cSQzobz0P6cvnt6z/Zfdn7ocSQzsbP/2j3+Dd+u3y+fNj8ocSQzsbvl/dfHt7/FNKn\ny+XrP93JbgzpXPz87e+nv/PO730TMKST8fnDj1+Qffobf1z+3PuJ5BuGJDIBQxKZgCGJTMCQ\nRCZgSCITMCSRCRiSyAQMSWQChiQyAUMSmYAhiUzAkEQm8H9Heqe3AeAwvAAAAABJRU5ErkJg\ngg==",
      "text/plain": [
       "plot without title"
      ]
     },
     "metadata": {},
     "output_type": "display_data"
    }
   ],
   "source": [
    "# x축 drv, y축 hwy 상자 수염 그림\n",
    "qplot(data = mpg, x = drv, y = hwy, geom = \"boxplot\")"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "id": "4d689aca",
   "metadata": {},
   "outputs": [],
   "source": []
  }
 ],
 "metadata": {
  "kernelspec": {
   "display_name": "R",
   "language": "R",
   "name": "ir"
  },
  "language_info": {
   "codemirror_mode": "r",
   "file_extension": ".r",
   "mimetype": "text/x-r-source",
   "name": "R",
   "pygments_lexer": "r",
   "version": "3.6.1"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 5
}