Commit e2b4c1eb authored by Romain Feron's avatar Romain Feron
Browse files

Minor fix to plot scripts

parent f97cdd74
......@@ -12,7 +12,7 @@ popmap_file_path = args[nargs - 1]
output_dir_path = args[nargs]
if (substr(output_dir_path, nchar(output_dir_path), nchar(output_dir_path)) != "/") {
output_dir_path = cat(output_dir_path, "/")
output_dir_path = paste(output_dir_path, "/", sep="")
}
script_dir = ""
......
......@@ -22,7 +22,7 @@ colnames(data) = c("Frequency", "Count")
g = ggplot(data, aes(x=Frequency, y=Count/sum(Count))) +
geom_bar(stat="identity", colour="black", fill="#CCCCCC") +
ggtitle(paste("Total tags: ", sum(data$Count), sep='')) + theme(plot.title = element_text(hjust = 0.5)) +
xlab("Number of individuals in which a tag is present") + ylab("Frequency (%)") +
xlab("Number of individuals in which a tag is present") + ylab("Frequency of haplotypes (%)") +
scale_y_continuous(labels=percent)
png(output_file_path, width=1600, height=1000, res=130)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment