Today I worked on 3 things:
- Modularizing the emoji data science code
- Updating the emojis on the ggplot
- Counting the emojis a day after election day
The code
The R Script for this little project is found here.
Using a different set of emojis
The emojis are updated by specifying a different font …
library(emojifont)
## Before
## OpenSansEmoji.ttf is downloaded from https://github.com/MorbZ/OpenSansEmoji
load.emojifont("OpenSansEmoji.ttf")
plt + geom_text(family="OpenSansEmoji", size=5)
## After
## EmojiOne.ttf is downloaded from https://github.com/eosrei/emojione-color-font
load.emojifont("EmojiOne.ttf")
plt + geom_text(family="EmojiOne", size=5)
… producing the following figure (with nicer emojis).
Emojis tweeted after BC election day
When we reran the program (but this time adjusting the tweet date), we found that most tweets (with an emoji) is the tangerine (which makes sense because the BC NDP party – typically represented by orange – is the official opposition).