This function represents a two dimensional table plot with proportional or colored squares or circles for each value.
1 2 3 4 5  table.value(dftab, coordsx = 1:ncol(as.matrix(dftab)), coordsy =
nrow(as.matrix(dftab)):1, labelsx, labelsy, breaks = NULL, method =
c("size", "color"), symbol = c("square", "circle", "diamond",
"uptriangle", "downtriangle"), col = NULL, nclass = 3, center = 0,
centerpar = NULL, plot = TRUE, storeData = TRUE, add = FALSE, pos = 1, ...)

dftab 
a data frame, matrix, contingency table or distance matrix used to produce the plot 
coordsx 
an integer or a vector indicating the columns of 
coordsy 
an integer or a vector indicating the rows of 
labelsx 
columns labels 
labelsy 
rows labels 
breaks 
a vector of values to split 
method 

symbol 
value for symbol type 
col 
a color or a colors vector to color symbols.
If 
nclass 
an integer for the number of desired intervals, ignored if 
center 
a center value for method 
centerpar 
a logical or a list to represent center value using elements in the

plot 
a logical indicating if the graphics is displayed 
storeData 
a logical indicating if the data should be stored in
the returned object. If 
add 
a logical. If 
pos 
an integer indicating the position of the
environment where the data are stored, relative to the environment
where the function is called. Useful only if 
... 
additional graphical parameters (see

An object of class ADEg
(subclass T.cont
if dftab
is an table
object,
otherwise subclass T.value
) or ADEgS
(if add
is TRUE
).
The result is displayed if plot
is TRUE
.
For the symbol size, if the method is size
, we use perceptual scaling (Tanimura et al. 2006) .
Alice JulienLaferriere, Aurelie Siberchicot aurelie.siberchicot@univlyon1.fr and Stephane Dray
Tanimura, S. and Kuroiwa, C. and Mizota, T. 2006 Proportional symbol mapping in R Journal of Statistical Software 15, 1–7
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31  ## data.frame
data(olympic, package = "ade4")
w < olympic$tab
w < data.frame(scale(w))
wpca < ade4::dudi.pca(w, scann = FALSE)
g1 < table.value(w, ppoints.cex = 0.5, axis.line = list(col = "darkblue"),
axis.text = list(col = "darkgrey"))
# update the legend position
update(g1, key = list(space = "left"))
update(g1, key = list(columns = 1))
g2 < table.value(w, coordsy = rank(wpca$li[, 1]), ppoints.cex = 0.5,
axis.line = list(col = "darkblue"), axis.text = list(col = "darkgrey"))
g3 < table.value(w, coordsy = wpca$li[, 1], coordsx = wpca$co[, 1], ppoints.cex = 0.5,
axis.line = list(col = "darkblue"), axis.text = list(col = "darkgrey"))
## distance
data(eurodist)
g5 < table.value(eurodist, symbol = "circle",
ptable.margin = list(bottom = 5, top = 16, left = 5, right = 16))
## Not run:
## table
data(rpjdl, package = "ade4")
w < data.frame(t(rpjdl$fau))
wcoa < ade4::dudi.coa(w, scann = FALSE)
g6 < table.value(as.table(as.matrix(w)), meanY = TRUE, coordsx = wcoa$c1[,1],
coordsy = rank(wcoa$l1[,1]), ppoints.cex = 0.2, labelsx = "", col = "black")
## End(Not run)

Questions? Problems? Suggestions? Tweet to @rdrrHQ or email at ian@mutexlabs.com.
Please suggest features or report bugs with the GitHub issue tracker.
All documentation is copyright its authors; we didn't write any of that.