ggplot/test/hist.R at main · rsharp-lang/ggplot · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
require(ggplot);

options(strict = FALSE);

let data = read.csv(file = `${@dir}/log2FC.csv`);
data[, "-log10(p-value)"] = -log10(data[, "p.value"]);

print(head(data));
setwd(@dir);

bitmap(file = "./pvalue_hist.png", size = [2700, 2000]) {
	ggplot(data, aes(x = "-log10(p-value)"), padding = "padding:250px 600px 250px 300px;")
	 + geom_histogram(bins = 50,  color = "steelblue")
	 + ggtitle("Frequency of -logP")
	        + scale_x_continuous(labels = "F2")
       + scale_y_continuous(labels = "F0")
	 + theme_default()
	 ;
}

svg(file = "./pvalue_hist.svg", size = [2700, 2000]) {
	ggplot(data, aes(x = "-log10(p-value)"), padding = "padding:250px 600px 250px 300px;")
	 + geom_histogram(bins = 50,  color = "steelblue")
	 + ggtitle("Frequency of -logP")
	        + scale_x_continuous(labels = "F2")
       + scale_y_continuous(labels = "F0")
	 + theme_default()
	 ;
}