set.seed(12346)
my.df <- data.frame(x = rnorm(50, sd = 4),
y = 10^-runif(50, min = 0, max = 20))
ggplot(my.df, aes(x, y)) +
geom_point() +
scale_x_logFC() +
scale_y_Pvalue()
ggplot(my.df, aes(x, y)) +
geom_point() +
scale_x_logFC() +
scale_y_FDR(limits = c(NA, 1e-20))
Run the code above in your browser using DataLab