esquisse

esquisse

esquisse๋Š” ๋“œ๋ž˜๊ทธ ์•ค ๋“œ๋กญ(drag & drop)์œผ๋กœ ggplot์„ ๊ฐ„๋‹จํ•˜๊ฒŒ ๊ทธ๋ฆด ์ˆ˜ ์žˆ๋Š” ํš๊ธฐ์ ์ธ ํŒจํ‚ค์ง€์ด๋‹ค.
๋ณต์žกํ•œ ์ปค์Šคํ„ฐ๋งˆ์ด์ง•์€ ๋””ํ…Œ์ผํ•œ ์ˆ˜์ •์ด ์ถ”๊ฐ€์ ์œผ๋กœ ํ•„์š”ํ•˜๊ฒ ์ง€๋งŒ, ๊ฐ„๋‹จํ•œ ํŠน์ง•๋“ค์„ ๋ฐ˜๋ณต์ ์ธ ์ฝ”๋“œ์ˆ˜์ •๊ณผ ํ™•์ธ๊ณผ์ •์„ ๊ฑฐ์น˜๊ธฐ ์•Š๊ณ ์„œ๋„ ์ฆ‰๊ฐ์ ์œผ๋กœ ๊ทธ๋ž˜ํ”„ ๋ชจ์–‘์„ ํ™•์ธํ•  ์ˆ˜ ์žˆ๋‹ค๋Š” ํฐ ์žฅ์ ์ด ์žˆ๋‹ค.
๊ฑฐ์˜ Tableu ๊ฐ™์€ ๋А๋‚Œ๋„ ๋“ ๋‹ค. ๊ฐ„๋‹จํ•œ ggplot ๊ทธ๋ฆด ๋•Œ ๋˜๋Š” ggplot ์ž…๋ฌธ์ž๊ฐ€ ๋จผ์ € ๊ฑฐ์ณ๊ฐ€๋„ ์ข‹์„ ๊ฒƒ ๊ฐ™๋‹ค.

1
2
3
library(ggplot2)
library(dplyr)
library(esquisse)

STEP1. Addins์„ ํด๋ฆญํ•˜๊ณ , ggplot2 builder๋ฅผ ์ด์–ด์„œ ํด๋ฆญํ•œ๋‹ค.

STEP2. validate imported data๋ฅผ ํด๋ฆญํ•œ๋‹ค.

STEP3. ๋“œ๋ž˜๊ทธ ์•ค ๋“œ๋กญ์œผ๋กœ X์ถ•, Y์ถ• ๋“ฑ์„ ์„ค์ •ํ•œ๋‹ค.

STEP4-1. Labels & Title์—์„œ๋Š” ์ œ๋ชฉ๊ณผ ์ถ• ์ด๋ฆ„ ๋“ฑ์„ ์„ค์ •ํ•œ๋‹ค.

STEP4-2. Plot Options์—์„œ๋Š” ์ƒ‰๊น”์„ ํฌํ•จํ•œ ์ „๋ฐ˜์ ์ธ ํ…Œ๋งˆ๋ฅผ ์„ค์ •ํ•œ๋‹ค.

STEP4-4. Data์—์„œ๋Š” ํ‘œํ˜„ํ•˜๊ณ ํ”ˆ ๋˜๋Š” ํ‘œํ˜„ํ•˜๊ณ  ์‹ถ์ง€ ์•Š์€ ๋ฐ์ดํ„ฐ๋ฅผ ํ•„ํ„ฐ๋งํ•œ๋‹ค.

STEP4-3. Export & Data์—์„œ๋Š” Insert code in script๋ฅผ ํด๋ฆญํ•˜๋ฉด ์•„๋ž˜์™€ ๊ฐ™์€ ์ฝ”๋“œ๋ฅผ ๋ฐ”๋กœ script๋กœ ์˜ฎ๊ฒจ์ค€๋‹ค.

STEP5. ์นœ์ ˆํ•˜๊ฒŒ ๋ผ์ด๋ธŒ๋Ÿฌ๋ฆฌ๊นŒ์ง€ ์ œ์‹œ๋œ ์ฝ”๋“œ๋ฅผ ์‹คํ–‰ํ•œ๋‹ค.

STEP6. ์ถ”๊ฐ€์ ์œผ๋กœ ๋” ์† ๋ณด๊ณ  ์‹ถ์€ ๋ถ€๋ถ„์„ ๊ฐœ์„ ํ•œ๋‹ค.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
library(dplyr)
library(ggplot2)

mpg %>%
 filter(displ >= 1.6 & displ <= 5.95) %>%
 filter(year >= 1999 & year <= 2005.2) %>%
 filter(hwy >= 12L & hwy <= 33L) %>%
 ggplot() +
 aes(x = manufacturer, y = cyl) +
 geom_boxplot(fill = "#18c975") +
 scale_y_continuous(trans = "log10") +
 theme_gray()

์ฐธ๊ณ 

[1] https://www.youtube.com/watch?v=FWLxE-ARuO8

๋ชฉ์ฐจ