How to properly add marginal density plot to a ggplot object?

Question

I am trying to add a marginal density plot for a ggplot object, denoted by g in the next script:

library(tidyr)
library(ggplot2)
library