Heat maplike representation with proportional symbols
Description
This function represents a two dimensional table plot with proportional or colored squares or circles for each value.
Usage
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, ...)

Arguments
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

Value
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
.
Note
For the symbol size, if the method is size
, we use perceptual scaling (Tanimura et al. 2006) .
Author(s)
Alice JulienLaferriere, Aurelie Siberchicot aurelie.siberchicot@univlyon1.fr and Stephane Dray
References
Tanimura, S. and Kuroiwa, C. and Mizota, T. 2006 Proportional symbol mapping in R Journal of Statistical Software 15, 1–7
See Also
T.value
T.cont
ADEg.T
Examples
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  ## 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"))
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)

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker. Vote for new features on Trello.