CompromisePlot {LinkHD} | R Documentation

## Compromise-Plot

### Description

Plot a `CompromisePlot` of a DiStatis object

### Usage

    ## S4 method for signature 'DistStatis'
    CompromisePlot(x,x_lab=NULL, y_lab=NULL,
    Name=NULL, pchPoints=2, colObs=NULL,...)

### Arguments

`x` | DistStatis class object.
`x_lab` | a character indicating x_label. Default is x.
`y_lab` | a character indicating y_label. Default is y.
`Name` | a character indicating plot title.
`pchPoints` | pch for points in scatter plot.
`colObs` | is a character indicating the color for the observations. By Default is the QR (indicating the Quality of Representation of observations)
`...` | additional parameters from ggplot2 library

### Value

plotted CompromisePlot/s of the component/s of the given DistStatis object.

### Author(s)

Laura M. Zingaretti

### Examples

    {

    data(Taraoceans)
    pro.phylo <- Taraoceans$taxonomy[ ,'Phylum']
    TaraOc<-list(Taraoceans$phychem,as.data.frame(Taraoceans$pro.phylo),
    as.data.frame(Taraoceans$pro.NOGs))
    TaraOc_1<-scale(TaraOc[[1]])
    Normalization<-lapply(list(TaraOc[[2]],TaraOc[[3]]),
    function(x){DataProcessing(x,Method='Compositional')})
    colnames(Normalization[[1]])=pro.phylo
    colnames(Normalization[[2]])=Taraoceans$GO
    TaraOc<-list(TaraOc_1,Normalization[[1]],Normalization[[2]])
    names(TaraOc)<-c('phychem','pro_phylo','pro_NOGs')
    TaraOc<-lapply(TaraOc,as.data.frame)
    Output<-LinkData(TaraOc,Scale =FALSE,Distance = c('ScalarProduct','Euclidean','Euclidean'))
    CompromisePlot(Output) +
    theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
    panel.background = element_blank(), axis.line = element_line(colour = 'black'))

    }

[Package LinkHD version 1.6.0 Index]