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๋ฐฐ ์ด์์ด ๋ง๋ค๋ ์ฌ์ค๊ณผ ๋ํด ์ด๋ฅผ ํตํด ํ๊ท ์ ๋๋ ์ง์ญ์
์์์์ธ์ ๋น์จ์ด ํ๊ท ์ ๋นํด ๋ง์ด ๋๋ค๊ณ ์๊ฐ๋๋ค.
'R' ์นดํ ๊ณ ๋ฆฌ์ ๋ค๋ฅธ ๊ธ
์์ ์๋ฃ์ ๋ฆฌ : ํ ์คํธ ๋ง์ด๋ (0) | 2019.05.30 |
---|---|
R๋ฐ์ดํฐ ๋ถ์ 4 (0) | 2019.04.15 |
R ๋ฐ์ดํฐ๋ถ์ 3 (0) | 2019.03.26 |
R๋ฐ์ดํฐ ๋ถ์ 2 (0) | 2019.03.26 |
R ๋ฐ์ดํฐ ๋ถ์ ๋ฐฐ์ฐ๊ธฐ (0) | 2019.03.19 |