๋ณธ ๋์์ธ ์์คํ ์ StatGarten์ ๋์์ธ์์น๊ณผ UI ๊ตฌ์ฑ ์์์ ๋ชจ์์ ๋๋ค. ์ด๋ ์์, ํฐํธ, ์คํ์ผ๊ณผ ๊ฐ์ ์ผ๊ด๋ UI ์์๋ฅผ ์ ๊ณตํฉ๋๋ค. ๊ฐ๋ฐ์๋ ์ด๋ฌํ ๊ตฌ์ฑ ์์๋ฅผ ๋ค์ํ ์กฐํฉ์ผ๋ก ์ฌ์ฌ์ฉํ์ฌ, ๋งค๋ฒ ๋์์ธ ์์๋ฅผ ๋ค์ ์ค๊ณํ๋ ๋ฐ ์ฐ์ด๋ ์๊ฐ์ ๋ญ๋นํ์ง ์์ ์ ์์ต๋๋ค. ๋์์ธ ์์คํ ์ '์์ฑ'๋์ง ์์ต๋๋ค. StatGarten์ด ๋ฐ์ ํจ์ ๋ฐ๋ผ ์ธ์ ๋ ์๋ก์ด UX ๋ฐ UI ๋์์ธ ์์๊ฐ ์ถ๊ฐ ๋ ์ ์์ต๋๋ค. ๊ฒฐ๊ณผ์ ์ผ๋ก SGDS๋ ์ ์ฒด ํ๋ซํผ์ ์ผ๊ด์ฑ ์๊ฒ ์ ์งํ๊ณ ๊ฒฐํฉํ๋ ๊ฒฐํฉ์กฐ์ง์ ์ญํ ์ ํจ์ ๋ชฉ์ ์ผ๋ก ํฉ๋๋ค.
palette <- c("#C70A80", "#37E2D5", "#FBCB0A", "#3EC70B", "#590696")
# For ggplot2 ----
iris %>%
ggplot(aes(Sepal.Length, Sepal.Width, color = Species)) +
geom_point() +
scale_color_manual(values = c("#C70A80", "#37E2D5", "#FBCB0A", "#3EC70B", "#590696"))
๊ธฐ๋ณธ ํฐํธ๋ Pretendard๋ฅผ ์ฌ์ฉํจ์ ์์น์ผ๋ก ํฉ๋๋ค. ์ด๋ SIL ์คํ ํฐํธ ๋ผ์ด์ ๋ก ๊ธ๊ผด ๋จ๋
ํ๋งค๋ฅผ ์ ์ธํ ๋ชจ๋ ์์
์ ํ์ ๋ฐ ์์ , ์ฌ๋ฐฐํฌ๊ฐ ๊ฐ๋ฅํฉ๋๋ค.
Download the Pretendard fonts here
2์ฐจ ํฐํธ๋ Noto Sans KR์ ์ฌ์ฉํจ์ ์์น์ผ๋ก ํฉ๋๋ค. ์ด๋ ์คํ ํฐํธ ๋ผ์ด์ผ์ค์ ๋ฐ๋ผ ์ฌ์ฉ์ด ํ๊ฐ๋ฉ๋๋ค. ์ธ์ ๋๋ ๋์งํธ, ์์ ๋๋ ๊ธฐํ ์ ํ ๋ฐ ํ๋ก์ ํธ์์ ์ฌ์ฉํ ์ ์์ต๋๋ค. Download the Pretendard fonts here
library(dplyr)
library(ggplot2)
library(showtext)
font_add_google("Noto Sans KR", "notosanskr")
showtext_auto()
iris %>%
ggplot(aes(Sepal.Length, Sepal.Width, color = Species)) +
geom_point() +
scale_color_manual(values = c("#C70A80", "#37E2D5", "#FBCB0A", "#3EC70B", "#590696")) +
labs(
title = "Noto Sans KR ์ฌ์ฉ ๊ทธ๋ํ ์์",
subtitle = "Statgarten์ ๋ณด์กฐ ํฐํธ๋ก Noto Sans KR์ ์ฌ์ฉํฉ๋๋ค."
) +
ggthemes::theme_fivethirtyeight(base_family = "notosanskr")


