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.