Continuing with the concepts around beautifying visualizations, here is a quick sample around using Google fonts along with ggplot2.

The changes to graphics output with a range of fonts is pretty remarkable and impactful. The below chart drives home the point!

The code for generating the chart above is:

## load rtweet package
library(rtweet)

# credit: https://cran.rstudio.com/web/packages/showtext/vignettes/introduction.html
# install.packages("showtext")

# credit: https://stackoverflow.com/questions/34522732/changing-fonts-in-ggplot2
library(showtext)
## Loading Google fonts (https://fonts.google.com/)
font_add_google("Gochi Hand", "gochi")
font_add_google("Schoolbell", "bell")


# to get over issues mentioned at https://cran.rstudio.com/web/packages/showtext/vignettes/introduction.html
quartz()


## Automatically use showtext to render text
showtext_auto()

## search for 18000 tweets using the rstudioconf2020 hashtag
rt <- search_tweets(
  "#rstudioconf2020", n = 18000, include_rts = FALSE
)



## plot time series of tweets
rt %>%
  ts_plot("3 hours") +
  ggplot2::theme_minimal() +
  ggplot2::theme(plot.title = ggplot2::element_text(face = "bold")) +
  ggplot2::labs(
    x = NULL, y = NULL,
    title = "Frequency of #rstudioconf2020 Twitter statuses from past 9 days",
    subtitle = "Twitter status (tweet) counts aggregated using three-hour intervals",
    caption = "\nSource: Data collected from Twitter's REST API via rtweet"
  ) + 
  theme(text=element_text(size=16,  family="gochi"))