R: Plot maps of the factor scores of the observations for a...
GraphDistatisCompromise
R Documentation
Plot maps of the factor scores of the observations for a DISTATIS analysis
Description
Plot maps of the factor scores of the observations for a distatis
analysis. GraphDistatis gives a map of the factor scores for the observations. The labels of the observations are plotted by defaults but can be omitted
(see the nude=TRUE option).
The factor scores of the observations ($res4Splus$Ffrom distatis).
axis1
The dimension for the horizontal axis of the plots.
axis2
The dimension for the vertical axis of the plots.
constraints
constraints for the axes
item.colors
A I*1 matrix (with I = # observations)
of color names for the observations. If NULL (default), prettyGraphs chooses.
ZeTitle
General title for the plots.
nude
When nude is TRUE the labels for the observations are not plotted (useful when editing the graphs for publication).
Ctr
Contributions of each observation. If NULL (default), these are computed from FS
Details
Note that, in the current version, the graphs are plotted as R-plots
and are not passed back by the routine.
So the graphs need to be saved "by hand" from the R graphic windows.
We plan to improve this in a future version.
Value
constraints
A set of plot constraints that are returned.
item.colors
A set of colors for the observations are returned.
Author(s)
Derek Beaton and Herve Abdi
References
The plots are similar to the graphs from
Abdi, H., Valentin, D., O'Toole, A.J., & Edelman, B. (2005).
DISTATIS: The analysis of multiple distance matrices.
Proceedings of the IEEE Computer Society: International Conference on Computer Vision and Pattern Recognition.
(San Diego, CA, USA). pp. 42-47.
# 1. Load the DistAlgo data set (available from the DistatisR package)
data(DistAlgo)
# DistAlgo is a 6*6*4 Array (face*face*Algorithm)
#-----------------------------------------------------------------------------
# 2. Call the DISTATIS routine with the array of distance (DistAlgo) as parameter
DistatisAlgo <- distatis(DistAlgo)
# 3. Plot the compromise map with the labels for the first 2 dimensions
# DistatisAlgo$res4Splus$F are the factors scores for the 6 observations (i.e., faces)
# DistatisAlgo$res4Splus$PartialF are the partial factors scores
##(i.e., one set of factor scores per algorithm)
GraphDistatisCompromise(DistatisAlgo$res4Splus$F)
Results
R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.
Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
> library(DistatisR)
Loading required package: prettyGraphs
Loading required package: car
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/DistatisR/GraphDistatisCompromise.Rd_%03d_medium.png", width=480, height=480)
> ### Name: GraphDistatisCompromise
> ### Title: Plot maps of the factor scores of the observations for a
> ### DISTATIS analysis
> ### Aliases: GraphDistatisCompromise
> ### Keywords: DistatisR mds
>
> ### ** Examples
>
> # 1. Load the DistAlgo data set (available from the DistatisR package)
> data(DistAlgo)
> # DistAlgo is a 6*6*4 Array (face*face*Algorithm)
> #-----------------------------------------------------------------------------
> # 2. Call the DISTATIS routine with the array of distance (DistAlgo) as parameter
> DistatisAlgo <- distatis(DistAlgo)
> # 3. Plot the compromise map with the labels for the first 2 dimensions
> # DistatisAlgo$res4Splus$F are the factors scores for the 6 observations (i.e., faces)
> # DistatisAlgo$res4Splus$PartialF are the partial factors scores
> ##(i.e., one set of factor scores per algorithm)
> GraphDistatisCompromise(DistatisAlgo$res4Splus$F)
[1] "Making constraints"
dev.new(): using pdf(file="Rplots140.pdf")
$constraints
$constraints$minx
[1] -0.7378471
$constraints$maxx
[1] 0.7378471
$constraints$miny
[1] -0.7378471
$constraints$maxy
[1] 0.7378471
$item.colors
[,1]
[1,] "#305ABF"
[2,] "#84BF30"
[3,] "#BF30AD"
[4,] "#30BFA7"
[5,] "#BF7D30"
[6,] "#5430BF"
>
>
>
>
>
> dev.off()
png
2
>