library(dplyr)
df <- hai_scale_zero_one_vec(.x = mtcars$mpg) %>%
hai_distribution_comparison_tbl()
dist_data_tbl <- hai_get_dist_data_tbl(df)
hai_density_hist_plot(
.data = dist_data_tbl,
.dist_name_col = distribution,
.value_col = dist_data,
.alpha = 0.5,
.interactive = FALSE
)
Run the code above in your browser using DataLab