isopleuros

Diagrammes ternaires

isopleuros est un package R qui permet de créer des diagrammes ternaires. Il offre des fonctions permettant d’afficher les données dans l’espace ternaire, d’ajouter ou d’ajuster des éléments graphiques et d’afficher des résumés statistiques. Ce package permet également de créer des diagrammes ternaires courants en archéologie (diagrammes de texture du sol, diagrammes de phase des matériaux céramiques...).

isopleuros est un package sans dépendance conçu pour être aussi simple que possible.

Ce package fait partie du projet tesselle.

Installation

Vous pouvez installer la dernière version depuis le CRAN avec :

install.packages("isopleuros")

Et la version de développement depuis Codeberg avec :

# install.packages("remotes")
remotes::install_git("https://codeberg.org/tesselle/isopleuros")

Utilisation

## Charger le package
library(isopleuros)

## Paramètres graphiques
par(mfrow = c(1, 2), mar = c(0, 0, 0, 0) + 0.1)

## Définition des couleurs
col <- c("blue", "red")

## Diagramme ternaire
## (données issues de Aitchison 1986)
ternary_plot(
  x = lava, 
  panel.first = ternary_grid(),
  col = col[as.factor(lava$A > 30)],
)

## Séparer les données
groups <- split(lava, f = lava$A > 30)

## Ajouter les ellipses de tolérance
for (i in seq_along(groups)) {
  ternary_tolerance(groups[[i]], level = 0.975, lty = 2, border = col[[i]])
}

## Contours de densités
ternary_plot(lava, panel.first = ternary_grid())
ternary_density(lava, n = 500, nlevels = 10)
Diagrammes ternaires réalisés avec le package R isopleuros 
## Installer les packages supplémentaires
## (si nécessaire)
# install.packages("folio")

## Données issues de Barrera et Velde 1989
data("verre", package = "folio")

## Sélectionner les variables
coda <- verre[, c("Na2O", "CaO", "K2O", "MgO", "P2O5", "Al2O3")]

## Diagrammes ternaires
ternary_pairs(coda, col = as.factor(coda$Na2O > 5))

## Paramètres graphiques
par(mfrow = c(2, 2), mar = c(0, 0, 0, 0) + 0.1)

## Diagrammes de phases
ternary_plot(NULL, axes = FALSE, ann = FALSE, frame.plot = TRUE)
triangle_phase_cas(symbol = TRUE, pch = 16)

ternary_plot(NULL, xlab = "CaO", ylab = "Al2O3", zlab = "SiO2")
triangle_phase_ceramic(symbol = TRUE, pch = 16)

## HYPRES
ternary_plot(NULL, xlab = "sand", ylab = "silt", zlab = "clay")
triangle_soil_hypres()

## USDA (1951)
ternary_plot(NULL, xlab = "sand", ylab = "silt", zlab = "clay")
triangle_soil_usda(symbol = TRUE)
Voir en ligne : Documentation.

Publié le 16 mai 2023 , mis à jour le 12 janvier 2026.