Estou tentando construir um gráfico em que plogo variáveis normalmente distribuídas, mostrando sua média no eixo xe o desvio padrão (DP) no eixo y. Como um gráfico de densidade, mas em vez de ter a densidade no eixo y, quero ter o SD (valor

Estou trabalhando com os dados abaixo,

set.seed(1)
mu1 <- rnorm(10^5, mean = 1, sd = 1)
mu3 <- rnorm(10^5, mean = 3, sd = 2)

duas variáveis normalmente distribuídas. Aqui sua média e sd,

# install.packages("tidyverse", dependencies = TRUE)
require(tidyverse)
tibble(mu1, mu3) %>% summarise_all(funs(mean, sd))
#> # A tibble: 1 x 4
#>    mu1_mean mu3_mean    mu1_sd   mu3_sd
#>       <dbl>    <dbl>     <dbl>    <dbl>
#> 1 0.9993454 3.000825 0.9982848 1.998234

Eu brinquei com ggplot2, e outro tidyverse packages, para me aproximar do que eu quero. Eu também tentei copiaresta função de uma trama de caixa fazendo algo semelhante, tendo conseguido aind

qui está o meu começ

tibble(mu1, mu3) %>% gather() %>% ggplot() + 
  geom_density(aes(x = value, colour = key)) + 
  labs(x = 'mean', y = 'currently density, but I would like sd')