mirror of
http://43.156.76.180:8026/YuuMJ/EukPhylo.git
synced 2025-12-28 04:10:26 +08:00
35 lines
1.0 KiB
Plaintext
35 lines
1.0 KiB
Plaintext
|
|
args<-commandArgs();
|
|
if(length(args)!=9) {
|
|
cat("USAGE: R --slave --args raw_data out_fig fig_width < Guidance_Plot.R\n");
|
|
q();
|
|
}
|
|
raw_data <- args[4];
|
|
out_fig <- args[5];
|
|
cols <- as.integer(args[6]);
|
|
gaps <- as.integer(args[7]);
|
|
x_width_thick <- as.integer(args[8]);
|
|
Program <-args[9];
|
|
#Note that the args vector contains everything you wrote in the commandline. In this case:
|
|
#args[1]: /usr/lib64/R/bin/exec/R
|
|
#args[2]: --slave
|
|
#args[3]: --args
|
|
#args[4]: raw_data
|
|
#args[5]: out_fig
|
|
#args[5]: fig_width
|
|
|
|
#fig_width=13.15*x_width;
|
|
#fig_width=14.5*x_width;
|
|
#fig_width=14.916*cols-26*gaps;
|
|
fig_width=15*cols+gaps;
|
|
x_thick_num=x_width_thick/10;
|
|
print (raw_data);
|
|
print (out_fig);
|
|
print (fig_width);
|
|
|
|
guidance_col <- read.csv(file=raw_data,head=TRUE,sep=",");
|
|
png(out_fig, width=fig_width,height=500);
|
|
plot ( guidance_col[,1], guidance_col[,2],type="b",col = "blue",ylab=paste(Program," Score"),xlab="Column",ylim=c(0,1),xlim=c(0,x_width_thick),xaxp=c(0,x_width_thick,x_thick_num),yaxp=c(0,1,10),xaxs="i",lty=3);
|
|
|
|
dev.off()
|