{"id":975,"date":"2019-03-07T07:25:34","date_gmt":"2019-03-06T22:25:34","guid":{"rendered":"http:\/\/141.164.34.82\/?p=975"},"modified":"2019-03-07T20:09:12","modified_gmt":"2019-03-07T11:09:12","slug":"ggplot2-aesthetic-mapping-and-scales","status":"publish","type":"post","link":"http:\/\/ds.sumeun.org\/?p=975","title":{"rendered":"ggplot2: Aesthetic mapping and scales"},"content":{"rendered":"

\uc2dc\uac01\uc801 \ub9f5\ud551\uacfc \uc2a4\ucf00\uc77c<\/h1>\n

\uc2dc\uac01\ud654\uc758 3 \uc694\uc18c<\/h3>\n
    \n
  1. \ub370\uc774\ud130(Data)<\/li>\n
  2. \uc2dc\uac01\uc801 \ub9f5\ud551(Aesthetic mapping)<\/strong>\n
      \n
    • \ub9f5\ud551 : \uc5b4\ub5a4 \uc2dc\uac01\uc801 \ud2b9\uc131\uc744 \uc0ac\uc6a9\ud560 \uac83\uc778\uac00?\n
        \n
      • x<\/code>, y<\/code>, + facet_grid(y ~ x)<\/code> \uadf8\ub9ac\uace0 + fact_wrap(~g)<\/code><\/li>\n
      • color<\/code>, fill<\/code><\/li>\n
      • shape<\/code><\/li>\n
      • size<\/code><\/li>\n
      • alpha<\/code> : \uc5ec\ub7ec \uae30\ud558\uc801 \ub300\uc0c1(\uc608. \uc810)\uc774 \uacb9\uce60 \ub54c \uc720\uc6a9\ud558\ub2e4.<\/li>\n<\/ul>\n<\/li>\n
      • \uc2a4\ucf00\uc77c(scale<\/code>) : \uc5b4\ub5bb\uac8c \ub9f5\ud551\ud560 \uac83\uc778\uac00?\n
          \n
        • x<\/code>, y<\/code> : scale_x_log10()<\/code>, scale_x_reverse()<\/code>, scale_x_sqrt()<\/code><\/li>\n
        • \uc774\uc0b0\ud615 : color<\/code>, fill<\/code>\n
            \n
          • scale_fill_brewer(palette= )<\/code><\/li>\n
          • scale_fill_grey(start= , end= , na.value= )<\/code><\/li>\n<\/ul>\n<\/li>\n
          • \uc5f0\uc18d\ud615 : color<\/code>, fill<\/code>\n
              \n
            • scale_fill_distiller(palette= )<\/code><\/li>\n
            • scale_fill_gradient(low= , high= )<\/code><\/li>\n
            • scale_fill_gradient(low= , high= , mid= , midpoint= )<\/code><\/li>\n
            • scale_fill_gradientn(colours= )<\/code><\/li>\n<\/ul>\n<\/li>\n
            • \uadf8 \ubc16\uc5d0\n
                \n
              • scale_*_manual(values= )<\/code><\/li>\n
              • scale_*_date(date_labels=\"%m\/%d\")<\/code><\/li>\n
              • scale_*_datetime()<\/code><\/li>\n<\/ul>\n<\/li>\n<\/ul>\n<\/li>\n<\/ul>\n<\/li>\n
              • \uae30\ud558\ud559\uc801 \ub300\uc0c1(Geoms)<\/li>\n<\/ol>\n

                \uc2dc\uac01\uc801 \ub9f5\ud551(Aesthetic mapping)\uc758 \uad6c\uccb4\uc801 \ubc29\ubc95: \uc2a4\ucf00\uc77c(Scales)<\/h2>\n

                \uc2a4\ucf00\uc77c\uc740 \ud55c \ubcc0\uc218\uc758 \uac12\uc744 \ud2b9\uc815\ud55c \uc2dc\uac01\uc801 \ud2b9\uc131\uacfc \ub300\uc751\uc2dc\ud0a4\ub294 \uad6c\uccb4\uc801\uc778 \ub9f5\ud551(mapping) \ubc29\ubc95\uc744 \uacb0\uc815\ud55c\ub2e4.<\/p>\n

                \uc608\ub97c \ub4e4\uc5b4 mpg<\/code>\uc758 fl<\/code>\uc740 \uc5f0\ub8cc\uc758 \uc885\ub958\ub97c \uc758\ubbf8\ud558\uba70 c<\/code>, d<\/code>, e<\/code>, p<\/code>, r<\/code> \uc911\uc758 \ud558\ub098\uc774\ub2e4. \uc774\ub97c \uc5b4\ub5a4 \ucc44\uc6c0\uc0c9(fill=<\/code>)\uc5d0 \ub300\uc751\uc2dc\ud0a4\ub290\ub0d0\ub97c \uc2a4\ucf00\uc77c<\/strong>\uc774 \uacb0\uc815\ud55c\ub2e4.<\/p>\n

                scale_fill_manual<\/code>\ub294 \ubcc0\uc218\uac00 \ucc44\uc6c0\uc0c9\uae54(fill<\/code>)\uc5d0 \ub300\uc751\uc2dc\ud0a4\ub294 \ubc29\ubc95\uc744 \uc190\uc218(manual<\/code>) \uacb0\uc815\ud558\uaca0\ub2e4\ub294 \uc758\ubbf8\uc774\ub2e4. \uad6c\uccb4\uc801\uc73c\ub85c value<\/code>\ub294 \uc0c9\uae54, break<\/code>\ub294 \ubc94\ub840\uc5d0 \ub098\ud0c0\ub098\ub294 \ubcc0\uc218\uac12, name<\/code>\uc740 \ubc94\ub840\uc758 \uc81c\ubaa9, labels<\/code>\ub294 \ubc94\ub840\uc5d0\uc11c \uc124\uba85\uc744 \ub098\ud0c0\ub0b8\ub2e4. \ub9c8\uc9c0\ub9c9\uc73c\ub85c limits<\/code>\uc740 \uc2e4\uc81c \uc2dc\uac01\ud654\ub418\ub294 \ubc94\uc8fc\uc758 \uac12\uc744 \uc81c\ud55c\ud55c\ub2e4.<\/p>\n

                \\vfill<\/p>\n

                g <- ggplot(mpg, aes(x = fl, fill= fl)) + geom_bar()\r\n\r\n#01\r\ng\r\n\r\n#02\r\ng + scale_fill_manual(\r\n  values = c(\"orange\", \"skyblue\", \"royalblue\", \"blue\", \"navy\"))\r\n\r\n#03\r\ng + scale_fill_manual(\r\n  values = c(\"orange\", \"skyblue\", \"royalblue\", \"blue\", \"navy\"),\r\n  breaks = c(\"e\", \"p\"))\r\n\r\n#04\r\ng + scale_fill_manual(\r\n  values = c(\"orange\", \"skyblue\", \"royalblue\", \"blue\", \"navy\"),\r\n  breaks = c('e', 'p'),\r\n  labels = c(\"Ethanol\", \"Premium\"))\r\n\r\n#05\r\ng + scale_fill_manual(\r\n  values = c(\"orange\", \"skyblue\", \"royalblue\", \"blue\", \"navy\"),\r\n  breaks = c('e', 'p'),\r\n  labels = c(\"Ethanol\", \"Premium\"),\r\n  name = \"fuel type\")\r\n\r\n#06\r\ng + scale_fill_manual(\r\n  values = c(\"orange\", \"skyblue\", \"royalblue\", \"blue\", \"navy\"),\r\n  limits = c('e', 'p'),\r\n  breaks = c('e', 'p'),\r\n  labels = c(\"Ethanol\", \"Premium\"),\r\n  name = \"fuel type\")\r\n<\/code><\/pre>\n
                \"\"<\/p>\n
                \uc544\ub798\ub294 \ub0a0\uc9dc(date<\/code>)\ud615 \ub370\uc774\ud130\uac00 \\(x\\)-\ucd95\uc758 \uc704\uce58\ub85c \ub9f5\ud551\ub418\uba70, \\(x\\)-\uc88c\ud45c\uc758 \ub808\uc774\ube14\uc744 \ud45c\uae30\ud558\ub294 \uc5ec\ub7ec\uac00\uc9c0 \ubc29\ubc95\uc744 \ubcf4\uc5ec\uc900\ub2e4. date_labels<\/code>\ub294 \ub0a0\uc9dc\uac00 \ud45c\uae30\ub418\ub294 \ubc29\uc2dd\uc744 \"%Y\"<\/code>, \"%y\"<\/code>, \"%m\"<\/code> \ub4f1\uc744 \ud65c\uc6a9\ud558\uc5ec \uc815\ud55c\ub2e4. date_breaks<\/code>\ub294 \\(x\\) \ucd95\uc758 \ub208\uae08 \uac04\uaca9\uc744 \uc815\ud55c\ub2e4.<\/p>\n
                mpg$yr = as.Date(as.character(mpg$year), \"%Y\")\r\nmpg2 <- mpg %>% filter(manufacturer %in% c(\"audi\", \"dodge\", \"ford\", \"jeep\"))\r\n\r\n#01\r\nggplot(mpg2, aes(x=yr, y=displ, col=manufacturer)) + \r\n  geom_jitter() + \r\n  scale_x_date(date_labels=\"%Y\")\r\n\r\n#02\r\nggplot(mpg2, aes(x=yr, y=displ, col=manufacturer)) + \r\n  geom_jitter() + \r\n  scale_x_date(date_labels=\"%y-%m\")\r\n\r\n#03\r\nggplot(mpg2, aes(x=yr, y=displ, col=manufacturer)) + \r\n  geom_jitter() + \r\n  scale_x_date(date_labels=\"%y\",\r\n               date_breaks=\"1 year\")\r\nggplot(mpg2, aes(x=yr, y=displ, col=manufacturer)) + \r\n  geom_jitter() + \r\n  scale_x_date(date_labels=\"%y\",\r\n               date_breaks=\"2 years\")\r\n<\/code><\/pre>\n
                \"\"<\/p>\n
                \ub9cc\uc57d \ub370\uc774\ud130, \uc2dc\uac01\uc801 \ub9f5\ud551, \uae30\ud558\ud559\uc801 \ub300\uc0c1\uc774 \ub3d9\uc77c\ud55c \uc5ec\ub7ec \uadf8\ub798\ud504\ub97c \ub9cc\ub4e0\ub2e4\uba74 ggplot() + geom_****()<\/code>\ub97c \ubcc0\uc218\uc5d0 \uc800\uc7a5\ud55c \ud6c4\uc5d0 \uc7ac\ud65c\uc6a9\ud560 \uc218 \uc788\ub2e4.<\/p>\n
                \ub2e4\uc74c\uc758 \uc608\ub294 mpg<\/code> \ub370\uc774\ud130, \uc2dc\uac01\uc801 \ub9f5\ud551(x=yr, y=displ, col=manufacturer<\/code>), \uadf8\ub9ac\uace0 \uae30\ud558\ud559\uc801 \ub300\uc0c1(geom_jitter<\/code>)\uc774 \ub3d9\uc77c\ud55c \uc138 \uadf8\ub798\ud504\ub97c \uc2a4\ucf00\uc77c\uc744 \ub2e4\ub974\uac8c \ud558\uc5ec \uadf8\ub9ac\ub294 \ubc29\ubc95\uc744 \ubcf4\uc5ec\uc900\ub2e4.<\/p>\n
                  \n
                • scale_color_manual<\/code>\uc740 \uc0c9\uae54\uc744 \uc190\uc218 \uc815\ud55c\ub2e4.<\/li>\n
                • scale_color_grey<\/code>\ub294 \uc0c9\uae54\uc744 \ud751\ubc31\uc73c\ub85c \uc2dc\uac01\ud654\ud55c\ub2e4. \uc774\ub54c \ucd5c\uc18c\uac12(start<\/code>)\uacfc \ucd5c\ub300\uac12(end<\/code>)\uc5d0 \ub300\uc751\ud558\ub294 \uba85\uc554\uc744 \uc9c0\uc815\ud558\uba74, \uc911\uac04\uac12\ub4e4\uc740 \uc774\ub97c \uae30\uc900\uc73c\ub85c \uacb0\uc815\ub41c\ub2e4. \uacb0\uce21\uce58(na.value<\/code>)\uc5d0 \ub300\ud55c \uc0c9\uae54\uc740 \ub530\ub85c \uc815\ud574\uc904 \uc218\ub3c4 \uc788\ub2e4.<\/li>\n
                • scale_color_brewer<\/code>\ub294 \ub204\uad70\uac00 \uc774\ubbf8 \ub9cc\ub4e4\uc5b4\ub193\uc740 \ud314\ub808\ud2b8(pallete<\/code>; \uc790\ub8cc\uc758 \uac12\uacfc \uc0c9\uc744 \ub300\uc751\uc2dc\ud0a4\ub294 \ubc29\ubc95)\uc744 \uc0ac\uc6a9\ud558\uaca0\ub2e4\ub294 \uc758\ubbf8\uc774\ub2e4.<\/li>\n<\/ul>\n
                  g <- ggplot(mpg, aes(x=displ, y=hwy, col=drv)) + \r\n  geom_jitter() \r\n\r\n#01\r\ng\r\n\r\n#02\r\ng + scale_color_manual(values=c('red','orange', 'blue','navy'))\r\n\r\n#03\r\ng + scale_color_grey(start=0.2, end=0.8, na.value='red')\r\n\r\n#04\r\ng + scale_color_brewer(palette = \"Dark2\")\r\n<\/code><\/pre>\n
                  \"plot\"plot\"plot\"plot<\/p>\n
                  \ud314\ub808\ud2b8(Palettes)<\/h3>\n
                  R\uc5d0\uc11c \uc9c0\uc6d0\ud558\ub294 \ud314\ub808\ud2b8\ub294 \ub2e4\uc74c\uc758 \ud568\uc218\ub85c \uc0b4\ud3b4\ubcfc \uc218 \uc788\ub2e4.[gg1]<\/sup><\/p>\n
                  RColorBrewer::display.brewer.all() \r\n<\/code><\/pre>\n
                  \ud314\ub808\ud2b8\ub294 \uc774\uc0b0\ud615 \ubc94\uc8fc\ub97c \uc704\ud574 \ub9c8\ub828\ub418\uc5c8\uc73c\uba70 \ud06c\uac8c \uc21c\uc704\ud615(Sequential), \ubc1c\uc0b0\ud615(Diverging), \ubc94\uc8fc\ud615(Qualitative)\uc73c\ub85c \ub098\ub220 \ubcfc \uc218 \uc788\ub2e4.<\/p>\n