Un pacchetto che ho scritto in R ha solo stato accettato per la CRAN, pagina web è www.ggtern.com:
Si basa off ggplot2, che ho usato come una piattaforma. La forza trainante per me era il desiderio di avere coerenza nel mio lavoro e, dal momento che utilizzo pesantemente ggplot2, lo sviluppo del pacchetto era una progressione logica.
Per quelli di voi che usano ggplot2, l'uso di ggtern dovrebbe essere un gioco da ragazzi, e, ecco un paio di dimostrazioni di ciò che può essere raggiunto.
Prodotto con il seguente codice:
# Load data
data(Feldspar)
# Sort it by decreasing pressure
# (so small grobs sit on top of large grobs
Feldspar <- Feldspar[with(Feldspar, order(-P.Gpa)), ]
# Build and Render the Plot
ggtern(data = Feldspar, aes(x = An, y = Ab, z = Or)) +
#the layer
geom_point(aes(fill = T.C,
size = P.Gpa,
shape = Feldspar)) +
#scales
scale_shape_manual(values = c(21, 24)) +
scale_size_continuous(range = c(2.5, 7.5)) +
scale_fill_gradient(low = "green", high = "red") +
#theme tweaks
theme_tern_bw() +
theme(legend.position = c(0, 1),
legend.justification = c(0, 1),
legend.box.just = "left") +
#tweak guides
guides(shape= guide_legend(order =1,
override.aes=list(size=5)),
size = guide_legend(order =2),
fill = guide_colourbar(order=3)) +
#labels and title
labs(size = "Pressure/GPa",
fill = "Temperature/C") +
ggtitle("Feldspar - Elkins and Grove 1990")
grafici di contorno sono stati anche patch per l'ambiente ternario, e, l'inserimento di una nuova geometria per rappresentare intervalli di confidenza via il Mahalanobis Distanza.
Prodotto con il seguente codice:
ggtern(data=Feldspar,aes(An,Ab,Or)) +
geom_confidence(aes(group=Feldspar,
fill=..level..,
alpha=1-..level..),
n=2000,
breaks=c(0.01,0.02,0.03,0.04,
seq(0.05,0.95,by=0.1),
0.99,0.995,0.9995),
color=NA,linetype=1) +
geom_density2d(aes(color=..level..)) +
geom_point(fill="white",aes(shape=Feldspar),size=5) +
theme_tern_bw() +
theme_tern_nogrid() +
theme(ternary.options=element_ternary(padding=0.2),
legend.position=c(0,1),
legend.justification=c(0,1),
legend.box.just="left") +
labs(color="Density",fill="Confidence",
title="Feldspar - Elkins and Grove 1990 + Confidence Levels + Density") +
scale_color_gradient(low="gray",high="magenta") +
scale_fill_gradient2(low="red",mid="orange",high="green",
midpoint=0.8) +
scale_shape_manual(values=c(21,24)) +
guides(shape= guide_legend(order =1,
override.aes=list(size=5)),
size = guide_legend(order =2),
fill = guide_colourbar(order=3),
color= guide_colourbar(order=4),
alpha= "none")
Ci sono un paio di opzioni di ricerca di seguito elencati; prova 'library (sos); findFn ("{ternary plot}") ' –
un pacchetto R appena creato fa quello che ti serve (e più) è basato su ggplot, il sito web è www.ggtern.com –
@CristianCiupitu fatto –