{"id":2086,"date":"2019-12-21T22:06:22","date_gmt":"2019-12-21T13:06:22","guid":{"rendered":"http:\/\/141.164.34.82\/?p=2086"},"modified":"2019-12-21T22:09:27","modified_gmt":"2019-12-21T13:09:27","slug":"ggplot2-dual-axis","status":"publish","type":"post","link":"http:\/\/ds.sumeun.org\/?p=2086","title":{"rendered":"ggplot2 dual axis"},"content":{"rendered":"

ggplot2<\/code>\uc758 \uc774\uc911\ucd95<\/h1>\n

ggplot2<\/code>\uc758 scale_y_continuous(sec.axis = sec_axis(~.))<\/code>\uc744 \ud65c\uc6a9\ud558\uba74, \ub2e4\uc74c\uacfc \uac19\uc740 \uadf8\ub9bc\uc744 \uadf8\ub9b4 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/p>\n

\"plot<\/p>\n

\uc5b4\ub5a4 \uc8fc\uc2dd\uc758 \uc8fc\uac00\ub97c \ub098\ud0c0\ub0b4\uace0 \uc788\ub294 \ub4ef \ud55c\ub370, \uac70\ub798\ub7c9\uc740 \ubcc4\ub2e4\ub978 \ud328\ud134\uc774 \uc5c6\uc5b4 \ubcf4\uc774\uace0, \uac00\uaca9\uc740 \uc6b0\uc0c1\ud5a5\ud558\uc5ec \ub450 \ub2ec\ub9cc\uc5d0 2\ubc30 \uac00\uae4c\uc774 \uc624\ub974\ub294 \ubc14\ub78c\uc9c1\ud55c \uadf8\ub798\ud504\uc785\ub2c8\ub2e4.<\/p>\n

\uc774\uc81c \uc704\uc758 \uadf8\ub798\ud504\ub97c ggplot2<\/code>\uc758 sec.axis = sec_axis()<\/code>\ub97c \ud65c\uc6a9\ud558\uc5ec \uadf8\ub824\ubd05\uc2dc\ub2e4.<\/p>\n

\ub370\uc774\ud130<\/h2>\n

\ub370\uc774\ud130\ub294 \ub2e4\uc74c\uacfc \uac19\uc2b5\ub2c8\ub2e4. \uac00\uaca9\uc740 \ud3c9\uade0 1000, 800, 600\uc73c\ub85c \ud558\ud5a5\ud558\uace0 \uc788\uace0, \uac70\ub798\ub7c9\uc740 100\uc5d0\uc11c 200\uc73c\ub85c \ub6f0\uc5c8\uc2b5\ub2c8\ub2e4.<\/p>\n

n = 90\r\nprice <- c(rnorm(n\/3, 1000, 50),\r\n           rnorm(n\/3,  800, 50),\r\n           rnorm(n\/3,  600, 50))\r\nxdate <- seq(from = as.Date('2020-01-01'), \r\n             to = as.Date('2020-03-01'),\r\n             along.with = price)\r\nvolume <- c(rnorm(n\/2, 100, 10),\r\n            rnorm(n\/2, 200, 10))\r\n<\/code><\/pre>\n
head(price)\r\n<\/code><\/pre>\n
## [1]  957.3960 1056.5378  963.9979 1004.5250 1073.5585  977.7241\r\n<\/pre>\n
head(xdate)\r\n<\/code><\/pre>\n
## [1] \"2020-01-01\" \"2020-01-01\" \"2020-01-02\" \"2020-01-03\" \"2020-01-03\" \"2020-01-04\"\r\n<\/pre>\n
head(volume)\r\n<\/code><\/pre>\n
## [1] 108.50670  95.80234 107.41140  85.94745  88.82841 112.11918\r\n<\/pre>\n
dat <- data.frame(date=xdate, price=price, vol=volume)\r\nhead(dat)\r\n<\/code><\/pre>\n
##         date     price       vol\r\n## 1 2020-01-01  957.3960 108.50670\r\n## 2 2020-01-01 1056.5378  95.80234\r\n## 3 2020-01-02  963.9979 107.41140\r\n## 4 2020-01-03 1004.5250  85.94745\r\n## 5 2020-01-03 1073.5585  88.82841\r\n## 6 2020-01-04  977.7241 112.11918\r\n<\/pre>\n
\uadf8\ub798\ud504\ub85c \uadf8\ub824 \ubcf4\uba74 \ub2e4\uc74c\uacfc \uac19\uc2b5\ub2c8\ub2e4.<\/p>\n
library(ggplot2)\r\nggplot(dat, aes(x=date, y=price, size=vol)) + \r\n  geom_point() + \r\n  geom_line(size=1)\r\n<\/code><\/pre>\n
\"plot<\/p>\n
\uc774\uc911\ucd95\uc744 \uc704\ud55c \ubcc0\ud658<\/h2>\n
ggplot2<\/code>\uc758 sec.axis=<\/code>\ub294 \uae30\ubcf8\uc801\uc73c\ub85c \ub3d9\uc77c\ud55c \ubcc0\uc218\uc5d0 \ub300\ud574 \ubcc0\ud658\ud55c \uac12\uc744 \ud45c\uae30\ud558\uae30 \uc704\ud55c \ud568\uc218\uc785\ub2c8\ub2e4.<\/p>\n