2 #datadm<-read.csv2(file('TableCont.csv', encoding='utf-8'))
4 plotqrtafc<- function(afc,x=1,y=2,supcol=NA,filename='afcdiv4_',width=480,height=480,quality=75,reso=200,ptsize=12,PARCEX=PARCEX) {
10 noc<-afc$colnames[supcol[1]:supcol[2]]
11 colcoord<-afc$colcoord[supcol[1]:supcol[2],]
17 for (i in 1:(nrow(colcoord))) {
18 if (colcoord[,x][i]<0) {
19 if (colcoord[,y][i]<0) {
20 foqrt[i,1]<-colcoord[i,x]
21 foqrt[i,2]<-colcoord[i,y]
25 fiqrt[i,1]<-colcoord[i,x]
26 fiqrt[i,2]<-colcoord[i,y]
31 if (colcoord[,2][i]<0) {
32 thqrt[i,1]<-colcoord[i,x]
33 thqrt[i,2]<-colcoord[i,y]
37 seqrt[i,1]<-colcoord[i,x]
38 seqrt[i,2]<-colcoord[i,y]
43 list_name<-c('hg','bg','hd','bd')
44 list_table<-list(fiqrt,foqrt,seqrt,thqrt)
46 if (Sys.info()["sysname"]=='Darwin') {
50 quartz(file=paste(filename,x,y,list_name[i],'.jpeg',sep=''),type='jpeg',width=width,height=height)#,pointsize=5)
52 jpeg(paste(filename,x,y,list_name[i],'.jpeg',sep=''),quality=quality,pointsize=ptsize,res=reso,width=width,height=height)
55 #par(mar=c(0.01,0.01,0.01,0.01))
56 plot(list_table[[i]][,1],list_table[[i]][,2],pch='')
57 text(list_table[[i]][,1],list_table[[i]][,2],list_table[[i]][,3])
60 # jpeg(paste(filename,x,y,'bg','.jpeg',sep=''),quality=quality,pointsize=ptsize,res=reso,width=width,height=height)
62 # plot(foqrt[,1],foqrt[,2],pch='')
63 # text(foqrt[,1],foqrt[,2],foqrt[,3])
65 # jpeg(paste(filename,x,y,'hd','.jpeg',sep=''),quality=quality,pointsize=ptsize,res=reso,width=width,height=height)
67 # plot(seqrt[,1],seqrt[,2],pch='')
68 # text(seqrt[,1],seqrt[,2],seqrt[,3])
70 # jpeg(paste(filename,x,y,'bd','.jpeg',sep=''),quality=quality,pointsize=ptsize,res=reso,width=width,height=height)
72 # plot(thqrt[,1],thqrt[,2],pch='')
73 # text(thqrt[,1],thqrt[,2],thqrt[,3])
77 #plotqrtafc(afc,x=1,y=2,PARCEX=0.7,quality=100,ptsize=12,reso=200,width=1000,height=1000)