IT ์‚ฌ๋ฌผํ•จ ๐Ÿป ์ž์„ธํžˆ๋ณด๊ธฐ

R

์‰ฝ๊ฒŒ ๋ฐฐ์šฐ๋Š” R๋ฐ์ดํ„ฐ ๋ถ„์„, ๋ถ„์„๋„์ „

๋ž˜๋ฆฌ๋ž˜๋ฆฌ 2019. 4. 8. 18:02

์‰ฝ๊ฒŒ ๋ฐฐ์šฐ๋Š” R๋ฐ์ดํ„ฐ๋ถ„์„ P.123์ชฝ์— ์žˆ๋Š” ๋ถ„์„๋„์ „์„ ํ•ด๋ณด์ž.

library ํ•จ์ˆ˜๋ฅผ ํ†ตํ•ด ggplot2์™€readxl์„ ๋ถˆ๋Ÿฌ์˜จ๋‹ค.

gglot2 ์†์— ํฌํ•จ๋œ midwest์ž๋ฃŒ๋ฅผ ๋ฐ์ดํ„ฐํ”„๋ ˆ์ž„ ํ˜•ํƒœ๋กœ ๋ถˆ๋Ÿฌ์˜จ๋‹ค.

dim()ํ•จ์ˆ˜๋ฅผ ํ†ตํ•ด midwest์˜ ํ–‰๊ณผ ์—ด์„ ํŒŒ์•…ํ•œ๋‹ค.

437ํ–‰๊ณผ 28์—ด์ด๋‹ค.

 

 

str() ํ•จ์ˆ˜๋ฅผ ํ†ตํ•ด ๋ฐ์ดํ„ฐ์˜ ์†์„ฑ์„ ํŒŒ์•…ํ•œ๋‹ค.

int, chr, num๋“ฑ์ด ์žˆ๋‹ค.

summary() ํ•จ์ˆ˜๋ฅผ ํ†ตํ•ด ๊ฐ ์ตœ์†Œ ์ตœ๋Œ€๋“ฑ ์š”์•ฝ ํ†ต๊ณ„๋Ÿ‰์„ ํŒŒ์•…ํ•œ๋‹ค.

library()ํ•จ์ˆ˜๋ฅผ ํ†ตํ•ด dplyr๋ฅผ ๋ถ€๋ฅธ๋‹ค.

rename()ํ•จ์ˆ˜๋ฅผ ํ†ตํ•ด poptotal์„ total๋กœ popasian์„ asian์œผ๋กœ ์ด๋ฆ„์„ ๋ฐ”๊พผ๋‹ค.

(asian/total)*100์˜ ์ˆ˜์‹์„ ํ†ตํ•ด '์ „์ฒด ์ธ๊ตฌ ๋Œ€๋น„ ์•„์‹œ์•„ ์ธ๊ตฌ ๋ฐฑ๋ถ„์œจ'์„ ๊ตฌํ•˜๊ณ 

hist()ํ•จ์ˆ˜๋ฅผ ํ†ตํ•ด ํžˆ์Šคํ† ๊ทธ๋žจ์„ ๋งŒ๋“ค์–ด ํ™•์ธํ•ด ๋ณด์•˜๋‹ค.

์•„์‹œ์•„ ์ธ๊ตฌ ๋ฐฑ๋ถ„์œจ ์ „์ฒด ํ‰๊ท ์„ ๊ตฌํ•˜๊ธฐ ์œ„ํ•ด mean()ํ•จ์ˆ˜๋ฅผ ์‚ฌ์šฉํ•˜์—ฌ ํ™•์ธํ•˜์˜€๋‹ค.

ํ‰๊ท ์— ๋Œ€ํ•œ ํฌ๊ณ  ์ž‘์Œ์„ ํ‘œํ˜„ํ•˜๊ธฐ ์œ„ํ•ด ํŒŒ์ƒ๋ณ€์ˆ˜๋ฅผ ๋งŒ๋“ค๊ณ  ํ‰๊ท ๋ณด๋‹ค ํฌ๋ฉด 'large'

์ž‘์œผ๋ฉด 'small'์„ ํ‘œํ˜„ํ•œ๋‹ค.

qplot()ํ•จ์ˆ˜๋ฅผ ํ†ตํ•ด ๋ง‰๋Œ€ ๊ทธ๋ž˜ํ”„๋ฅผ ์ƒ์„ฑํ•˜์˜€๋‹ค.

์ด๋Ÿฌํ•œ ๋ถ„์„๊ณผ์ •์„ ํ†ตํ•ด ๋ฏธ๊ตญ ๋™๋ถ์ค‘๋ถ€ 437๊ฐœ ์ง€์—ญ์˜ ์•„์‹œ์•„ ์ธ๊ตฌ์˜ ๋ฐฑ๋ถ„์œจ๊ณผ ํ‰๊ท ๋“ฑ์„ ์•Œ ์ˆ˜ ์žˆ์—ˆ๊ณ 

์•„์‹œ์•„ ์ธ์˜ ๋น„์œจ์€ ๊ทนํžˆ ์ ๋‹ค๋Š” ๊ฒฐ๋ก ์ด ๋‚˜์˜ค๊ฒŒ ๋˜์—ˆ๋‹ค.

๋ฟ๋งŒ ์•„๋‹ˆ๋ผ ํ‰๊ท ์„ ๋„˜์ง€ ๋ชปํ•˜๋Š” ์ง€์—ญ์ด 2๋ฐฐ ์ด์ƒ์ด ๋งŽ๋‹ค๋Š” ์‚ฌ์‹ค๊ณผ ๋”ํ•ด ์ด๋ฅผ ํ†ตํ•ด ํ‰๊ท ์„ ๋„˜๋Š” ์ง€์—ญ์€

์•„์‹œ์•„์ธ์˜ ๋น„์œจ์ด ํ‰๊ท ์— ๋น„ํ•ด ๋งŽ์ด ๋†’๋‹ค๊ณ  ์ƒ๊ฐ๋œ๋‹ค.