Smaller labels on x axis.

iansealy · Jan 29, 2015 · 6858abb · 6858abb
1 parent 58e322f
commit 6858abb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/script/graph_counts.R b/script/graph_counts.R
@@ -29,7 +29,7 @@ for (i in 1:nrow(data)) {
     counts <- data[i, grepl(".normalised.count$", names(data)) ]
     par(mar=c(8.1, 4.1, 4.1, 2.1), xpd=TRUE)
     plot(as.numeric(counts), axes=FALSE, ann=FALSE, pch=21, bg=colours)
-    axis(1, at=1:length(labels), lab=labels, las=2)
+    axis(1, at=1:length(labels), lab=labels, las=2, cex.axis=0.5)
     axis(2)
     title(main=sprintf("%s:%d-%d %s\n%.2f",
                        data[i,"Chr"], data[i,"Region.start"],