如何使用Plotly可视化正态分布图？

Question

Plot- Normal Distribution chart (Six Sigma) Package- Plotly

I have tried something like this but it is not working

library(plotly)

y <- rgamma(1000, shape = 0.25, rate = 0.0054)
dens <- data.frame(x = density(y)$x, y = density(y)$y)
miny <- 0
maxy <- max(dens$y)

plot_ly() %>% 
add_histogram(x = y) %>% 
add_lines(data = dens, x = ~x, y = ~y, yaxis = "y2", line = list(width = 3)) %>% layout(yaxis2 = list(overlaying = "y", side = "right", range = c(miny, maxy), showgrid = F, zeroline = F))

Answer 1

Use corrlY Package

# download package from 
devtools::install_github("maheshKulkarniX/corrlY")
library(corrlY)
normal_distribution(data = mtcars, parameter = mtcars$mpg, xname = "MPG")

You Can see a realtime example on this link Normal Distribution Chart Using R Plotly

Github Repository link Corrly- Data Visualization Package using plotly which provides all types of statistical Charts