다시 그려진 그래프를 보니 한글이 잘 나온다. 이제 투표를 많이 받은 범주를 시각화해 보자. coord_flip을 사용해 x축과 y축을 바꿔 본다.
(ggplot(petitions) + aes(x='category', y='votes') + geom_col(fill='skyblue') + ggtitle('카테고리별 투표수') + coord_flip() + theme(text=element_text(family=font_family)) )
실행 결과
