Minus log-10 transformation
1 |
1 2 3 4 5 6 7 8 | require(ggplot2)
df <- data.frame(y = runif(1000))
ggplot(df, aes(sample = y)) +
stat_qq(distribution = stats::qunif) +
scale_y_continuous(trans = "mlog10") +
scale_x_continuous(trans = "mlog10") +
geom_abline(intercept = 0, slope = 1)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.