projects
/
iramuteq
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
search
[iramuteq]
/
Rscripts
/
Rgraph.R
diff --git
a/Rscripts/Rgraph.R
b/Rscripts/Rgraph.R
index
4759448
..
85f1ff8
100644
(file)
--- a/
Rscripts/Rgraph.R
+++ b/
Rscripts/Rgraph.R
@@
-318,10
+318,14
@@
make_afc_graph <- function(toplot,classes,clnb, xlab, ylab, cex.txt = NULL, leg
cl.color <- rain[classes]
plot(toplot[,1],toplot[,2], pch='', xlab = xlab, ylab = ylab)
abline(h=0,v=0, lty = 'dashed')
cl.color <- rain[classes]
plot(toplot[,1],toplot[,2], pch='', xlab = xlab, ylab = ylab)
abline(h=0,v=0, lty = 'dashed')
+ #print('ATTENTION Rgraph.R : utilisation de maptools !')
+ #library(maptools)
if (is.null(cex.txt))
if (is.null(cex.txt))
+ #pointLabel(toplot[,1],toplot[,2],rownames(toplot),col=cl.color)
text(toplot[,1],toplot[,2],rownames(toplot),col=cl.color)
else
text(toplot[,1],toplot[,2],rownames(toplot),col=cl.color)
else
- text(toplot[,1],toplot[,2],rownames(toplot),col=cl.color, cex = cex.txt)
+ #pointLabel(toplot[,1],toplot[,2],rownames(toplot),col=cl.color, cex = cex.txt)
+ text(toplot[,1],toplot[,2],rownames(toplot),col=cl.color, cex = cex.txt)
if (!cmd) {
dev.off()
if (!cmd) {
dev.off()