72 lines
1.4 KiB
R
72 lines
1.4 KiB
R
|
#!/usr/bin/env Rscript
|
||
|
|
#
|
||
|
|
# plot summary graphics of comparisons
|
||
|
|
#
|
||
|
|
#
|
||
|
|
|
||
|
|
LIBDIR <- Sys.getenv("LIB_DIR")
|
||
|
|
if (LIBDIR == "") LIBDIR = "."
|
||
|
|
|
||
|
|
source(paste0(LIBDIR, "/util.plot.r"))
|
||
|
|
|
||
|
|
COLORS <- 2:10
|
||
|
|
|
||
|
|
#
|
||
|
|
|
||
|
|
OUT.DEV <- TRUE
|
||
|
|
OUT.TYPE <- "pdf"
|
||
|
|
OUT.FILE <- "compare"
|
||
|
|
if (OUT.DEV) uplot.init.dev(OUT.FILE, OUT.TYPE)
|
||
|
|
|
||
|
|
#
|
||
|
|
|
||
|
|
tab <- read.table("compare.txt", header=T, comment.char="", stringsAsFactors=F)
|
||
|
|
|
||
|
|
#
|
||
|
|
|
||
|
|
par(xpd=NA)
|
||
|
|
|
||
|
|
#
|
||
|
|
|
||
|
|
sel <- c("cor", "alcor", "acc", "wrong", "over", "misstot")
|
||
|
|
tab$ptot <- rowSums(tab[,sel])
|
||
|
|
for (s in sel)
|
||
|
|
tab[,paste0("p", s)] <- tab[,s] * 100 / tab$ptot
|
||
|
|
|
||
|
|
colors <- head(COLORS, length(sel))
|
||
|
|
|
||
|
|
cols <- paste0("p", sel)
|
||
|
|
ord <- order(tab$pcor+tab$palcor+tab$pacc, decreasing=T)
|
||
|
|
|
||
|
|
barplot(t(tab[ord,cols]), names.arg=tab$X.org[ord],
|
||
|
|
ylim=c(0,100), col=colors, las=2, cex.names=0.5)
|
||
|
|
|
||
|
|
legend(0, 110, sel, fill=colors, cex=0.7, horiz=T)
|
||
|
|
|
||
|
|
#
|
||
|
|
|
||
|
|
sel <- c("cor", "alcor", "acc", "wrong", "over", "misschlo")
|
||
|
|
tab$rtot <- rowSums(tab[,sel])
|
||
|
|
for (s in sel)
|
||
|
|
tab[,paste0("r", s)] <- tab[,s] * 100 / tab$rtot
|
||
|
|
|
||
|
|
colors <- head(COLORS, length(sel))
|
||
|
|
|
||
|
|
cols <- paste0("r", sel)
|
||
|
|
ord <- order(tab$rcor+tab$ralcor+tab$racc, decreasing=T)
|
||
|
|
|
||
|
|
barplot(t(tab[ord,cols]), names.arg=tab$X.org[ord],
|
||
|
|
ylim=c(0,100), col=colors, las=2, cex.names=0.5)
|
||
|
|
|
||
|
|
legend(0, 110, sel, fill=colors, cex=0.7, horiz=T)
|
||
|
|
|
||
|
|
#
|
||
|
|
|
||
|
|
if (OUT.DEV) {
|
||
|
|
cat("# plot file:", paste0(OUT.FILE, ".", OUT.TYPE), "\n")
|
||
|
|
invisible(dev.off())
|
||
|
|
}
|
||
|
|
|
||
|
|
quit(save='no')
|
||
|
|
|