Plot a confusion matrix in r showing percentages (ggplot)

Question

So I have these two columns which I want to turn into a confusion matrix

faceEmotion
neutral
sad
happy
disgusted
angry
fearful
neutral
sad
sad
happy
happy
fea