|
|
|
@@ -14,6 +14,7 @@ library(knitr) |
|
|
|
library(magrittr) |
|
|
|
library(desctable) |
|
|
|
library(plotly) |
|
|
|
library(FactoMineR) |
|
|
|
|
|
|
|
opts_chunk$set(message = F, |
|
|
|
echo = F, |
|
|
|
@@ -111,3 +112,14 @@ DT::renderDataTable({ |
|
|
|
datatable |
|
|
|
}, server = F) |
|
|
|
``` |
|
|
|
|
|
|
|
#### PCA |
|
|
|
|
|
|
|
```{r resultat_PCA} |
|
|
|
renderPlot({ |
|
|
|
data_abondances() %>% |
|
|
|
select(one_of(c(input$groupes_abondances,input$variables_abondances))) %>% |
|
|
|
PCA(quali.sup=1, graph = F) %>% |
|
|
|
plotellipses(keepvar = 1) |
|
|
|
}) |
|
|
|
``` |
