R에서는 기본적으로 Times New Roman 폰트를 사용한다. 해당 폰트 또한 예쁘다고 생각된다. 하지만 우리는 시각화를 좀 더 예쁘게 하기 위해 폰트를 변경하고 싶을 수도 있다. 그럼 R에서 어떻게 폰트를 적용할지 알아보도록 하자.

폰트 목록 확인

R에서 폰트를 설정해주는 패키지는 extrafont 패키지와 showtext 패키지가 존재한다. showtext 패키지는 ttf 타입 외의 폰트도 지원하므로 showtext 패키지를 활용하고자 한다. font_families_google()로 설치 가능한 폰트 목록을 확인할 수 있다.

library(showtext)
library(sysfonts)

font_families_google()

폰트 다운로드

아래 명령어는 google에서 제공하고 있는 폰트를 다운로드 받는 명령어이다.  family 옶션에 앞으로 R에서 쓰고자 하는 family 이름을 설정하면 된다. 

font_add_google('Nanum Pen Script', family='nanumpen')
font_add_google('Noto Sans KR', family='notosanskr')

다운로드 받은 폰트가 R 내에서 바로 적용되지 않기 때문에 showtext_auto()함수를 사용하여야 한다. 적용된 폰트를 해제하고 싶다면 show_text_auto(FALSE)를 실행하면 된다. 

library(ggplot)
show_auto()
ggplot(data=data,aes(x='',y=count,fill=cut_type))+
  geom_bar(stat='identity',width=1)+
  coord_polar("y",start=0)+
  theme(text=element_text(size=20,family = 'nanumpen'))
show_auto(FALSE)

자 이제 다운로드 받은 폰트를 사용해보자.

무료 폰트를 제공하는 사이트는 많으나 보고서에 주로 활용되는 대표적 폰트인 Kopub을 적용해보고자 한다.

Kopub World - 한국출판인회의
KOR ENG 한국출판인회의 인사말 창립선언문 조직구성 연혁 CI소개 찾아오시는 길 주요사업 회원권리증진 출판정책연구 저작권권리확보 출판유통환경개선 전자출판진흥 독서문화활성화 대외협력기반마련 서울북인스티튜트운영 소식&자료 공지사항 자료실 회원사 회원사명단 회원사가입안내 한출산악회 대관신청 Kopub 서체 출판산업뿐만 아니라 다양한 산업에서활용할 수 있는 ‘KoPub 서체’를 개발·배포합니다. KoPub 서체 KoPub World KoPub 2.0 KoPubWorld 돋움체 KoPubWorld 바탕체 통합본_KoPub서체+다국어 전자…
한국출판인회의 - Korea Publishers Society
눈누
상업용 무료한글폰트 사이트
눈누

위 Kopub 링크를 다운 받자.

font_add(family='kopub_batang_bold',
  regular=
    'C:/Users/qkdrk/Desktop/KOPUBWORLD_TTF_FONTS-1/KoPubWorld Dotum Bold.ttf')
font_families()

showtext_auto()
ggplot(data=data,aes(x='',y=count,fill=cut_type))+
  geom_bar(stat='identity',width=1)+
  coord_polar("y",start=0)+
  theme(text=element_text(size=20,family = 'kopub_batang_bold'))
showtext_auto(FALSE)