View source: R/defineclassesandfunctions.R
addsupplementary | R Documentation |
addsupplementary
calculates principal coordinate values for supplementary rows or columns in SCA,
or supplementary variables in MCA, then plots them on the current selected graph, which it assumes to be appropriate.
addsupplementary( x, supp, thing = "columns", suppsymbol = "*", suppcolour = "blue", plotsupp = TRUE, varandcat = TRUE )
x |
An object of class |
supp |
A data frame in the format: |
thing |
Whether to calculate the supplementary principal coordinates for
Note that "rows" is only needed for supplementary rows in SCA. |
suppsymbol |
The plot symbol used for the supplementary points |
suppcolour |
The colour of the supplementary points and their labels |
plotsupp |
TRUE if you want the points plotted on the currently active graph, FALSE otherwise |
varandcat |
Flag for how to construct column names for supplementary variables in MCA:
|
To add supplementary rows in SCA, define the parameter supp as a data frame with one named row for each supplementary row
and with the columns the same as in the original data.
If plotting the points, ensure that the plot for rows is selected.
To add supplementary columns in SCA define the parameter supp as a data frame with one named row for each supplementary column
and with the columns the same as the rows in the original data.
If plotting the points, ensure that the plot for columns is selected.
To add supplementary variables in MCA define the parameter supp as a data frame with one column for each supplementary variable in
individuals by variables format.
Each row represents the same individual as the same row in the original data,
and each entry is the category value for that supplementary variable.
Hence the new columns should just look exactly like new columns in the 'nbyp' format.
If plotting the points, any of the standard plots is suitable.
A matrix containing the principal coordinates of the supplementary points
cabootcrs-package
, cabootcrs
, plotca
, cabootcrsresults
results <- cabootcrs(DreamData) # SCA case two supplementary columns, make sure that the Columns plot is active suppcols <- data.frame(rbind(c(5,3,6,8,12),c(1,7,3,1,5))) suppcolpc <- addsupplementary(results, suppcols) suppcolpc ## Not run: # SCA case one supplementary row, make sure that the Rows plot is active supprow <- data.frame(cbind(12,4,8,3),row.names="supprow") supprowpc <- addsupplementary(results, supprow, thing="rows") supprowpc # MCA case, one or two supplementary variables, plots the same on any of the usual plots results3 <- cabootcrs(DreamData223by3, catype="mca", varandcat=FALSE, datasetname="Dream data with extra random column") newsupcol <- c(rep(c(rep("s1",10),rep("s2",10),rep("s3",10)),8))[1:223] newsupcol2 <- c(rep(c(rep("t1",5),rep("t2",15),rep("t3",25),rep("t4",35)),5))[1:223] newsupcols <- cbind(newsupcol,newsupcol2) suppvarpc <- addsupplementary(results3, newsupcol, varandcat=FALSE) supp2varpc <- addsupplementary(results3, newsupcols, varandcat=FALSE) ## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.