[STARTERS 4๊ธฐ TIL] #13์ผ์ฐจ(23.02.22)


๐Ÿ“š ์˜ค๋Š˜ ๋‚ด๊ฐ€ ๋ฐฐ์šด ๊ฒƒ

๐Ÿ“ ggplot2 ํŒจํ‚ค์ง€ ์†Œ๊ฐœ 

· ๋ฐ์ดํ„ฐ ์‹œ๊ฐํ™” ํŒจํ‚ค์ง€

· 'gg' : Grammar of graphics

· ์šฐ์ˆ˜ํ•œ ์‚ฌ์šฉ์„ฑ

· ํ†ต๊ณ„ ์‹œ๊ฐํ™” ๊ธฐ๋Šฅ ์ œ๊ณต

 

 

๐Ÿ“ ggplot2 ๊ธฐ๋ณธ ๋ฌธ๋ฒ• 

Data(๋ฐ์ดํ„ฐ) layer · ์‹œ๊ฐํ™”๋ฅผ ํ•˜๋ ค๋Š” ๋ฐ์ดํ„ฐ๋ฅผ ์ž…๋ ฅํ•˜๋Š” ์ธต
· data frame ํ˜•์‹ ์‚ฌ์šฉ

Aesthetics(๋ฏธํ•™์ ) layer · ๋ฐ์ดํ„ฐ ๋งคํ•‘ํ•˜๊ณ ์ž ํ•˜๋Š” ์Šค์ผ€์ผ ์„ค์ •
  · x์ถ• ์ปฌ๋Ÿผ, y์ถ• ์ปฌ๋Ÿผ ์ง€์ •
  · ์ƒ‰๊น”
  · ์ /์„  ๋ชจ์–‘
  · ์ถ•์— ๋Œ€ํ•œ ๋ฒ”์œ„
  · Etc.
Geometries(๊ธฐํ•˜ํ•™) layer · ๋ฐ์ดํ„ฐ ์‚ฌ์šฉํ•˜๋Š” ์‹œ๊ฐํ™” ์š”์†Œ ์ •์˜
  · ์ /์„ 
  · ํžˆ์Šคํ† ๊ทธ๋žจ
  · ์› ์ฐจํŠธ
  · ๋ฐ•์Šค๊ทธ๋ฆผ
  ·  Etc.
Facets(์–‘์ƒ) layer · ํŠน์ • ๊ธฐ์ค€์— ๋”ฐ๋ผ ๊ทธ๋ž˜ํ”„ ๋‚˜๋ˆ”
· ํ™”๋ฉด ๋ถ„ํ• 
Statistics(ํ†ต๊ณ„) layer · ๊ทธ๋ ค์ง„ ๊ทธ๋ž˜ํ”„์— ๋Œ€ํ•œ ํ†ต๊ณ„์ ์ธ ์‹œ๊ฐํ™” ์ฒ˜๋ฆฌ
Coordinates(์ขŒํ‘œ) layer · ์ขŒํ‘œ๊ณ„๋ฅผ ์กฐ์ž‘
Themes(ํ…Œ๋งˆ) layer · ๋ฐ์ดํ„ฐ๊ฐ€ ์•„๋‹Œ ์ถ”๊ฐ€ ๊พธ๋ฏธ๊ธฐ ์š”์†Œ
  · ์ œ๋ชฉ
  · Etc.


 

๐Ÿ“ ggplot2 ๊ธฐ๋ณธ ํ•จ์ˆ˜ 

ํ•จ์ˆ˜ ๊ธฐ๋Šฅ ์‚ฌ์šฉ ์˜ˆ์‹œ
qplot()

· ๋น ๋ฅด๊ฒŒ ๋ฐ์ดํ„ฐ ์‹œ๊ฐํ™” ํ•  ๋•Œ ์‚ฌ์šฉ
· ๊ทธ๋ž˜ํ”ฝ ๋ฌธ๋ฒ• ์š”์†Œ ์ธต์˜ 2๊ฐœ ์ธต ํ‘œํ˜„
  · 1์ธต : data layer
  · 2์ธต : aesthetics layer
ggplot()

· ๊ทธ๋ž˜ํ”„ ๋ฌธ๋ฒ• ์š”์†Œ ์ธต ์ „๋ถ€, ๋˜๋Š” ์ผ๋ถ€๋ฅผ ์ง์ ‘ ์Œ“์•„ ๋ฐ์ดํ„ฐ ์‹œ๊ฐํ™”
  · '+' ์—ฐ์‚ฐ์ž๋ฅผ ์‚ฌ์šฉํ•˜์—ฌ ๋ฌธ๋ฒ• ์š”์†Œ ์ถ”๊ฐ€
· ์›ํ•˜๋Š” ๋ชจ๋“  ํ˜•ํƒœ์˜ ๋ณต์žกํ•œ ๊ทธ๋ž˜ํ”„์˜ ํ‘œํ˜„ ๊ฐ€๋Šฅ

 

 

๐Ÿ“ ggplot2 ํ•„์ˆ˜ ์ž…๋ ฅ layer 

๋ฐ์ดํ„ฐ๊ฐ€ ์‹œ๊ฐํ™” ๋˜๊ธฐ ์œ„ํ•ด์„œ ๋ฐ˜๋“œ์‹œ ์ •์˜๋˜์–ด์•ผ ํ•˜๋Š” layer

Data(๋ฐ์ดํ„ฐ) layer
Aesthetics(๋ฏธํ•™์ ) layer
Geometries(๊ธฐํ•˜ํ•™) layer

 

 

๐Ÿ“ ggplot2 ์‚ฐ์ ๋„ ๊ทธ๋ž˜ํ”„ 


 

 

๐Ÿ“ ggplot2 ์„  ๊ทธ๋ž˜ํ”„ 

 

 

๐Ÿ“ ggplot2 ๋ง‰๋Œ€ ๊ทธ๋ž˜ํ”„ 

 

 

๐Ÿ“ ggplot2 ํžˆ์Šคํ† ๊ทธ๋žจ 

 

 

๐Ÿ“ ggplot2 ์ƒ์ž๊ทธ๋ฆผ 

 

 

๐Ÿ“ ggplot2 ์˜ต์…˜ layer 

๋ฐ์ดํ„ฐ๊ฐ€ ์‹œ๊ฐํ™” ์™„์„ฑ๋„๋ฅผ ๋†’์—ฌ์ฃผ๋Š” layer

Facets(์–‘์ƒ) layer
Statistics(ํ†ต๊ณ„) layer
Coordinates(์ขŒํ‘œ) layer
Themes(ํ…Œ๋งˆ) layer

 

 

๐Ÿ“ ggplot2 - Facets layer 

๋ฒ”์ฃผํ˜• ์ปฌ๋Ÿผ์˜ ๋ณ€์ˆ˜๋ณ„ ์„œ๋ธŒ ๊ทธ๋ž˜ํ”„๋ฅผ ๊ฐ๊ธฐ ๋‹ค๋ฅธ ํŒจ๋„์— ๊ทธ๋ ค์ฃผ๋Š” ์ธต (์ผ์ข…์˜ ํ™”๋ฉด ๋ถ„ํ•  ๊ธฐ๋Šฅ)

facet_wrap() facet_grid()

 

 

๐Ÿ“ ggplot2 - Statistics layer 

๋ฐ์ดํ„ฐ์— ๋Œ€ํ•œ ํ†ต๊ณ„๊ฐ’์„ ์‹œ๊ฐํ™” ํ•ด์ฃผ๋Š” ์ธต

stat_smooth() stat_summary()

 

 

๐Ÿ“ ggplot2 - Coordinate layer 

x์ถ• ๋˜๋Š” y์ถ• ์ •๋ณด๋ฅผ ๋ณ€ํ˜•ํ•˜๋Š” ์‹œ๊ฐํ™” ์ธต

coord_cartesian(xlim, ylim) coord_flip() coord_polar()
x์ถ•, y์ถ• ๋ฒ”์œ„ ์ง€์ • x์ถ•, y์ถ• ๋ฐ˜์ „ (x,y) ์ขŒํ‘œ๊ณ„๋ฅผ ๊ทน์ขŒํ‘œ๊ณ„๋กœ ๋ณ€ํ™˜

 

 

๐Ÿ“ ggplot2 - Theme layer 

๋ฐ์ดํ„ฐ์™€ ๋ฌด๊ด€ํ•œ ์‹œ๊ฐํ™” ์š”์†Œ๋ฅผ ๊พธ๋ฐ€ ์ˆ˜ ์žˆ๋Š” ์ธต

 

 

๐Ÿ“ ๊ฐ€์„ค๊ฒ€์ • 

๋ชจ์ง‘๋‹จ์— ๋Œ€ํ•œ ๊ฐ€์„ค์„ ๋ชจ์ง‘๋‹จ์œผ๋กœ๋ถ€ํ„ฐ ์ถ”์ถœํ•œ ํ‘œ๋ณธ์„ ์‚ฌ์šฉํ•˜์—ฌ ๊ฒ€ํ† ํ•˜๋Š” ์ถ”๋ก  ๋ฐฉ๋ฒ•

โ‘  ๋ฐ์ดํ„ฐ ์…‹ ์ˆ˜์ง‘ 

 โžก๏ธ 20๋Œ€ ๋‚จ์„ฑ ํ‚ค ๋ฐ์ดํ„ฐ์…‹ ์ˆ˜์ง‘

โ‘ก ๊ฐ€์„ค ์„ค์ •(๋ฌธ์ œ ์„ค์ •)

 โžก๏ธ 20๋Œ€ ๋‚จ์„ฑ ํ‰๊ท  ์‹ ์žฅ์€ 175๋กœ ์•Œ๋ ค์ ธ์žˆ๋‹ค. ์•„๋ž˜ ์ˆ˜์ง‘ํ•œ ๋ฐ์ดํ„ฐ์…‹์„ ๋ณด์•˜์„ ๋•Œ, ์ด๋Š” ํƒ€๋‹นํ•œ๊ฐ€?

๊ท€๋ฌด๊ฐ€์„ค ๋Œ€๋ฆฝ๊ฐ€์„ค
· ์ฐจ์ด๊ฐ€ ์—†๋Š” ๊ฒฝ์šฐ์˜ ๊ฐ€์„ค
· ์ฒ˜์Œ๋ถ€ํ„ฐ ๋ฒ„๋ฆด ๊ฒƒ์„ ์˜ˆ์ƒํ•˜๋Š” ๊ฐ€์„ค
· Ex) 20๋Œ€ ๋‚จ์„ฑ ํ‰๊ท  ํ‚ค๋Š” 175๊ฐ€ ๋งž๋‹ค
· ์ฐจ์ด๊ฐ€ ์žˆ๋Š” ๊ฒฝ์šฐ์˜ ๊ฐ€์„ค
· ๊ฒ€์ฆํ•˜๊ณ  ์‹ถ์€ ๊ฐ€์„ค
· Ex)20๋Œ€ ๋‚จ์„ฑ ํ‰๊ท  ํ‚ค๋Š” 175๊ฐ€ ์•„๋‹ˆ๋‹ค

โ‘ข ํŒ๋‹จ ์›๋ฆฌ

 โžก๏ธ ํ†ต๊ณ„๋Ÿ‰์„ ๊ณ„์‚ฐํ•œ ํ›„, ์œ ์˜ ์ˆ˜์ค€์„ ๋„˜๋Š”์ง€ ๋น„๊ต

  · ํ†ต๊ณ„๋Ÿ‰

    · ํŒ๋‹จ์„ ์œ„ํ•ด์„œ ๊ณ„์‚ฐํ•˜์—ฌ ์–ป๋Š” 1์ข… ์˜ค๋ฅ˜๊ฐ€ ๋ฐœ์ƒํ•  ํ™•๋ฅ ์˜ ํ—ˆ์šฉํ•œ๊ณ„ ํŠน์ • ๊ฐ’ (๋ณดํ†ต5%) 

    · z๊ฐ’, t๊ฐ’ ๋“ฑ ..

    · z๊ฐ’์„ ์‚ฌ์šฉํ•œ๋‹ค๋ฉด z-test, t๊ฐ’์„ ์‚ฌ์šฉํ•œ๋‹ค๋ฉด t-test ๋“ฑ์œผ๋กœ ๋ถ€๋ฆ„

  · ์œ ์˜์ˆ˜์ค€

    · 1์ข… ์˜ค๋ฅ˜๊ฐ€ ๋ฐœ์ƒํ•  ํ™•๋ฅ ์˜ ํ—ˆ์šฉํ•œ๊ณ„ (๋ณดํ†ต5%) 

  ๊ท€๋ฌด๊ฐ€์„ค์ด ์ฐธ
(โžก๏ธ ํ‰๊ท  ํ‚ค 175 ๋งž์Œ)
๊ท€๋ฌด๊ฐ€์„ค์ด ๊ฑฐ์ง“
(โžก๏ธ ํ‰๊ท  ํ‚ค 175 ์•„๋‹˜)
๊ท€๋ฌด๊ฐ€์„ค ๊ธฐ๊ฐ X ์˜ณ์€ ๊ฒฐ์ • 2์ข… ์˜ค๋ฅ˜
๊ท€๋ฌด๊ฐ€์„ค ๊ธฐ๊ฐ O 1์ข… ์˜ค๋ฅ˜
(์›๋ž˜ ๋งž๋˜ ๊ฑธ ํ‹€๋ ธ๋‹ค ํ•จ)
์˜ณ์€ ๊ฒฐ์ •

 

 

๐Ÿ“z-๊ฒ€์ • 

๊ฐ€์ • ํ†ต๊ณ„๋Ÿ‰ : Z๊ฐ’ ํŠน์ง•
๋ชจ์ง‘๋‹จ์€ ์ •๊ทœ ๋ถ„ํฌ๋ฅผ ๋”ฐ๋ฅธ๋‹ค๊ณ  ๊ฐ€์ •
· ์ •๊ทœ๋ถ„ํฌ์—์„œ๋Š” ์œ ์˜ ์ˆ˜์ค€์— ๋”ฐ๋ฅธ ๋น„๊ต ๊ฐ’์ด ๊ณ ์ •
·
๋ชจ์ง‘๋‹จ์˜ ํ‰๊ท ๊ณผ ํ‘œ์ค€ํŽธ์ฐจ๋ฅผ ์•Œ ๋•Œ ์‚ฌ์šฉ
· ์œ ์˜ ์ˆ˜์ค€ ๊ฐ’๋ณด๋‹ค z๊ฐ’์ด ํฌ๋‹ค๋ฉด ๊ท€๋ฌด๊ฐ€์„ค ๊ธฐ๊ฐ

 


๐Ÿ’ญ ์˜ค๋Š˜ ๊ธฐ์–ตํ•ด์•ผ ํ•  ๋‚ด์šฉ

โ‘  ggplot์„ ์ด์šฉํ•œ ๊ทธ๋ž˜ํ”„ ํ‘œํ˜„ ๋ฐฉ๋ฒ•

 ํŽธ๋ฆฌํ•œ ๋ฐฉ๋ฒ•์œผ๋กœ ์‹œ๊ฐํ™” ํ‘œํ˜„์„ ํ•˜๋„๋ก ๊ณ ์•ˆ๋œ ๊ฒƒ ํŒจํ‚ค์ง€์ด๊ธฐ ๋•Œ๋ฌธ์ธ์ง€ ๊ทธ๋ž˜ํ”„๋ฅผ ๊ทธ๋ฆฌ๋Š” ๋ฐฉ๋ฒ•์ด ์ˆ˜์›”ํ–ˆ๋‹ค.

 ์—ฌ๋Ÿฌ ๋ ˆ์ด๋Ÿฌ๋ฅผ ์ด์šฉํ•˜์—ฌ ๊ทธ๋ž˜ํ”„๋ฅผ ๊ทธ๋ ค๋ณด๋Š” ์—ฐ์Šต์„ ํ•ด์•ผ๊ฒ ๋‹ค !

 

โ‘ก ๊ฐ€์„ค ๊ฒ€์ฆ์— ๊ด€ํ•œ ํ†ต๊ณ„ ๊ฐœ๋…

 ๊ฐ€์„ค ๊ฒ€์ฆ, z๊ฒ€์ฆ, t๊ฒ€์ฆ

 

 

 

โœ๐Ÿป ํšŒ๊ณ 

์˜ค๋Š˜์€ R์—์„œ ggplot2 ํŒจํ‚ค์ง€๋ฅผ ์ด์šฉํ•˜์—ฌ ๊ทธ๋ž˜ํ”„๋ฅผ ๊ทธ๋ฆฌ๋Š” ๋ฐฉ๋ฒ•, ๊ฐ€์„ค ๊ฒ€์ฆ์— ๊ด€ํ•œ ํ†ต๊ณ„ ๊ฐœ๋…์— ๊ด€ํ•ด ๋ฐฐ์› ๋‹ค.

 

ํ…์ŠคํŠธ ๋ถ„์„์— ๊ด€ํ•œ ์‹ค์Šต์„ ์ง„ํ–‰ํ•˜์ง€ ๋ชปํ•ด ์ถ”๊ฐ€์ ์œผ๋กœ ํ•ด๋ด์•ผ๊ฒ ๋‹ค..!!

 

๋‚ด์ผ๋ถ€ํ„ฐ๋Š” ์˜คํ”„๋ผ์ธ ๊ฐ•์˜๊ฐ€ ์ง„ํ–‰๋  ์˜ˆ์ •์ด๋ผ ๋„ˆ๋ฌด ๊ถ๊ธˆํ•˜๋‹ค ..!!!๐Ÿคฉ