๋ฐ์ดํฐ๋ฅผ ๋ณด๊ธฐ ์ฝ๊ฒ ๊ทธ๋ฆผ์ผ๋ก ํํํ ๊ฒ์ ๊ทธ๋ํ(graph)๋ผ๊ณ ํฉ๋๋ค.
๋ฐ์ดํฐ ์์๋ฃ๋ ํต๊ณํ๋ ์๋ง์ ์ซ์์ ๋ฌธ์๋ก ๊ตฌ์ฑ๋์ด์์ด์ ์๋ฏธ๋ฅผ ํ์ ํ๊ธฐ ์ด๋ ต์ต๋๋ค.
๋ฐ์ดํฐ๋ฅผ ๊ทธ๋ํ๋ก ํํํ๋ฉด ์ถ์ธ์ ๊ฒฝํฅ์ฑ์ด ๋๋ฌ๋์ ์ด๋ฌํ ํน์ง์ ์ฝ๊ฒ ์ดํดํ ์ ์์ต๋๋ค.
1. R์ ๊ทธ๋ํ ์ข ๋ฅ
R์๋ 2์ฐจ์๊ทธ๋ํ ๋ฟ๋ง ์๋๋ผ 3์ฐจ์ ๊ทธ๋ํ, ์ง๋ ๊ทธ๋ํ, ๋คํธ์ํฌ ๊ทธ๋ํ, ์๊ฐ์ ๋ฐ๋ผ ๋ณํํ๋ ๋ชจ์ ์ฐจํธ ๋ฑ์ด ์กด์ฌํฉ๋๋ค.
ggplot2๋ ๊ทธ๋ํ๋ฅผ ๋ง๋ค๋ ๊ฐ์ฅ ๋ง์ด ์ฌ์ฉํ๋ ํจํค์ง ์ ๋๋ค.
ggplot2๋ฅผ ์ด์ฉํด ์งง์ ๋ฌธ๋ฒ์ผ๋ก ๊ทธ๋ํ๋ฅผ ๋ง๋ค ์ ์๋ ๋ฐฉ๋ฒ์ ์์๋ณด๊ฒ ์ต๋๋ค.
2. ์ฐ์ ๋ - ๋ณ์ ๊ฐ ๊ด๊ณ ํํํ๊ธฐ
์ฐ์ ๋: ๋ฐ์ดํฐ๋ฅผ x์ถ๊ณผ y์ถ์ ์ ์ผ๋ก ํํํ ๊ทธ๋ํ๋ฅผ ์ฐ์ ๋๋ผ๊ณ ํฉ๋๋ค.
์ฐ์ ๋๋ ๋์ด์ ์๋์ฒ๋ผ ์ฐ์๊ฐ์ผ๋ก ๋ ๋ ๋ณ์์ ๊ด๊ณ๋ฅผ ํํํ ๋ ์ฌ์ฉํฉ๋๋ค.
#x์ถ์ displ, y์ถ์ hwy๋ก ์ง์ ํด ๋ฐฐ๊ฒฝ์์ฑ
ggplot(Data = mpg, aes(x = displ, y = hwy))
#๋ฐฐ๊ฒฝ์ ์ฐ์ ๋ ์ถ๊ฐ
ggplot(data = mpg, aes(x = displ, y = hwy)) + geom_point()
#x์ถ ๋ฒ์ 3~6์ผ๋ก ์ง์
ggplot(data = mpg, aes(x = displ, y = hwy)) + geom_point() + xlim(3,6)
#์ถ ๋ฒ์ 3~6, y์ถ ๋ฒ์ 10~30์ผ๋ก ์ง์
ggplot(data = mpg, aes(x = displ, y = hwy)) + geom_point() + xlim(3,6) + ylim(10,30)
์์์ ์ค์ตํ ๊ฒ ์ฒ๋ผ ggplot()ํจ์๋ ๋ ์ด์ด ๊ตฌ์กฐ๋ก ๋์ด์์ต๋๋ค.
๊ฐ๊ฐ์ ์์๋ฅผ ์ด๋ป๊ฒ ์ง์ ํ๋๋์ ๋ฐ๋ผ ๋ค๋ฅธ ๊ทธ๋ํ๊ฐ ๋ง๋ค์ด์ง๋๋ค.
+๊ทธ๋ํ๋ฅผ ์ด๋ฏธ์ง ํ์ผ๋ก ์ ์ฅํ๊ธฐ
ํ๋กฏ ์ฐฝ ๋ฉ๋ด์ [Export]๋ฒํผ์ ํด๋ฆญํ๋ฉด ๊ทธ๋ํ๋ฅผ ์ด๋ฏธ์ง ํ์ด๋ก ์ ์ฅํ๋ ๊ธฐ๋ฅ์ ์ด์ฉํ ์ ์์ต๋๋ค.
[Save as Image]๋ฅผ ํด๋ฆญํ๋ฉด JPEG, PNG๋ฑ์ ์ด๋ฏธ์ง ํ์ด๋ก ์ ์ฅํ ์ ์๊ณ
[Save as PDF]๋ฅผ ํด๋ฆญํ๋ฉด PDFํฌ๋งท์ผ๋ก ์ ์ฅํ ์ ์์ต๋๋ค.