Mercurial > hg > plosone_underreview

diff scripts_R/Metadata_subsetBLSM.R @ 91:d3e05cd49feb branch-tests

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
trying to plot wrt PLOSONE guidelines
author Maria Panteli <m.x.panteli@gmail.com>
date Mon, 02 Oct 2017 15:32:51 +0100
parents bde45ce0eeab
children
line wrap: on
line diff
--- a/scripts_R/Metadata_subsetBLSM.R	Mon Oct 02 12:37:55 2017 +0100
+++ b/scripts_R/Metadata_subsetBLSM.R	Mon Oct 02 15:32:51 2017 +0100
@@ -12,17 +12,17 @@
 par(family="Arial")
 
 #pdf(file="data/country_distribution_BL.pdf")
-pdf(file="../data/results/country_distribution.pdf")
+pdf(file="../data/results/country_distribution.pdf", pointsize=12, width=6, height=4)
 PlotCountryCounts(df)
 dev.off()
-postscript(file="../data/results/country_distribution.eps")
+postscript(file="../data/results/country_distribution.eps", pointsize=12, width=6, height=4)
 PlotCountryCounts(df)
 dev.off()
 
-pdf(file="../data/results/year_distribution.pdf", width=6, height=4)
+pdf(file="../data/results/year_distribution.pdf", width=6, height=4, pointsize=12)
 PlotYearDistribution(df)
 dev.off()
-postscript("../data/results/year_distribution.eps", width=10)
+postscript("../data/results/year_distribution.eps", width=10, pointsize=12)
 PlotYearDistribution(df)
 dev.off()
 #PlotBarChart(df, cat="Year", ordercat="REGION", mincount=10)
@@ -33,10 +33,10 @@
 levels(df$Language)[which(levels(df$Language)=="Lesser Antillean Creole French")]="Lesser Antil. Creole French"
 df$Language[which(df$Language=="Lesser Antillean Creole French")] = "Lesser Antil. Creole French"
 df$REGION[which(df$Country=="French Guiana")] = "South America"
-pdf(file="../data/results/language_distribution.pdf")
+pdf(file="../data/results/language_distribution.pdf", pointsize=12)
 PlotBarChart(df, cat="Language", ordercat="Region", mincount=10)
 dev.off()
-postscript("../data/results/language_distribution.eps", width=8, height=10)
+postscript("../data/results/language_distribution.eps", width=8, height=10, pointsize=12)
 PlotBarChart(df, cat="Language", ordercat="Region", mincount=10)
 dev.off()
 
@@ -128,5 +128,5 @@
 g = g+guides(fill = guide_legend(title = "Region"))+theme(legend.position="top",legend.title = element_text(size=9),legend.text = element_text(size=9))
 g = g+theme(panel.border = element_rect(colour = "white"),strip.background=element_rect(fill="white"),strip.text.x = element_blank())
 #g = g+theme(axis.text.y = element_text(colour = ddata$labels$col))
-ggsave('../data/results/clusters_top3.pdf',plot=g)
-ggsave('../data/results/clusters_top3.eps',plot=g)
+ggsave('../data/results/clusters_top3.pdf',plot=g, pointsize=12)
+ggsave('../data/results/clusters_top3.eps',plot=g, pointsize=12)