двухсторонний график плотности в сочетании с односторонним графиком плотности с выбранными регионами в r

# data 
set.seed (123)
xvar <- c(rnorm (1000, 50, 30), rnorm (1000, 40, 10), rnorm (1000, 70, 10))
yvar <-   xvar + rnorm (length (xvar), 0, 20)
myd <- data.frame (xvar, yvar)


# density plot for xvar
            upperp = 80   # upper cutoff
            lowerp = 30   # lower cutoff
            x <- myd$xvar
            plot(density(x))
            dens <- density(x)
            x11 <- min(which(dens$x <= lowerp))
            x12 <- max(which(dens$x <= lowerp))
            x21 <- min(which(dens$x > upperp))
            x22 <- max(which(dens$x > upperp))
            with(dens, polygon(x = c(x[c(x11, x11:x12, x12)]),
                y = c(0, y[x11:x12], 0), col = "green"))
             with(dens, polygon(x = c(x[c(x21, x21:x22, x22)]),
                y = c(0, y[x21:x22], 0), col = "red"))
            abline(v = c(mean(x)), lwd = 2, lty = 2, col = "red")
# density plot with yvar
    upperp = 70  # upper cutoff
    lowerp = 30   # lower cutoff
    x <- myd$yvar
    plot(density(x))
    dens <- density(x)
    x11 <- min(which(dens$x <= lowerp))
    x12 <- max(which(dens$x <= lowerp))
    x21 <- min(which(dens$x > upperp))
    x22 <- max(which(dens$x > upperp))
    with(dens, polygon(x = c(x[c(x11, x11:x12, x12)]),
        y = c(0, y[x11:x12], 0), col = "green"))
     with(dens, polygon(x = c(x[c(x21, x21:x22, x22)]),
        y = c(0, y[x21:x22], 0), col = "red"))
    abline(v = c(mean(x)), lwd = 2, lty = 2, col = "red")

Мне нужно построить двухсторонний график плотности, я не уверен, что есть лучший способ, чем следующий:

ggplot(myd,aes(x=xvar,y=yvar))+
    stat_density2d(aes(fill=..level..), geom="polygon") +
    scale_fill_gradient(low="blue", high="green") + theme_bw()

Я хочу объединить все три типа в один (я не знал, смогу ли я создать двусторонний график в ggplot), нет никаких преференций в отношении того, являются ли решения графиками в ggplot, base или mixed. Я надеюсь, что это выполнимый проект, учитывая надежность R. Я лично предпочитаю ggplot2.

enter image description here

Примечание: нижняя штриховка на этом графике не правильная, красный цвет всегда должен быть ниже, а зеленый верхний на графиках xvar и yvar, что соответствует заштрихованной области на графике плотности xy.

Edit: Окончательное ожидание на графике (спасибо Сету и Джону за очень близкий ответ) (1) удаление меток с пробелами, осями и т. Д., Чтобы сделать его компактным
(2) выравнивание сеток таким образом, чтобы средние метки и сетки совпадали с боковыми метками и метками, а размеры графиков выглядели одинаково. enter image description here

Ответы на вопрос(3)

Ваш ответ на вопрос