Ваш вопрос очень неясен, но я нашел "плотности по обе стороны от оси х" потенциально интересными.Поэтому, возможно, вы пытаетесь сделать что-то вроде этого:
d <- data.frame(x = rnorm(1000),x1 = rnorm(1000,sd = 0.5))
ggplot(data = d,aes(x = x)) +
geom_density() +
geom_density(aes(x = x1,y = -(..density..)))